ca marche pas les ai mi dans:
Pure Basic\PureLibraries\UserLibraries
voici le code
Procedure Window0()
If OpenWindow(0, 0, 0, 500, 600, #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_ScreenCentered, "Editeur")
If CreateMenu(0, WindowID())
MenuTitle("Fichier")
MenuItem(0, "Ouvrir")
MenuItem(1, "Enregistrer")
MenuItem(2, "Enregistrer sous")
MenuItem(3, "Quitter")
EndIf
If CreateGadgetList(WindowID())
ScrollAreaGadget(0, 0, 0, WindowWidth(), WindowHeight() - 20, WindowWidth() * 3, WindowHeight() * 3, 50, #PB_ScrollArea_BorderLess)
EditorGadget(1, 0, 0, WindowWidth() * 3, WindowHeight() * 3)
CloseGadgetList()
EndIf
EndIf
EndProcedure
Procedure window1()
If OpenWindow(1, 0, 0, 400, 230, #PB_Window_ScreenCentered, "Ouvrir un fichier")
If CreateGadgetList(WindowID())
ExplorerListGadget(4, 10, 10, 380, 180, "", #PB_Explorer_MultiSelect | #PB_Explorer_AlwaysShowSelection )
ButtonGadget(5, 10, 200, 70, 20, "Ouvrir")
ButtonGadget(6, 320, 200, 70, 20, "Annuler")
EndIf
EndIf
EndProcedure
menu :
window0()
Repeat
event = WaitWindowEvent()
If event = #pb_eventmenu
If EventMenuID() = 0
CloseWindow(0)
window1()
Repeat
WaitWindowEvent()
event = EventGadgetID()
Until event <> 0
If event = 1 : dir.s = GetGadgetText(0) + GetGadgetItemText(0, GetGadgetState(0), 0) : Else : dir.s = "" : EndIf
CloseWindow(1)
ClearGadgetItemList(1)
Editor_OFile(1,dir, "Le fichier n'a pas pus être ouvert")
ElseIf EventMenuID() = 1
ElseIf EventMenuID() = 2
ElseIf EventMenuID() = 3
End
EndIf
EndIf
Until event = #pb_event_closewindow
je suis sur que la ligne
Editor_OFile(1,dir, "Le fichier n'a pas pus être ouvert")
bug mais j'suis novice
