La barre d'outil que je veux créer n'apparait pas...
Voici le code (tout simple):
Code : Tout sélectionner
Global App_Name.s
Global App_Version.s
App_Name = "MyEdit"
App_Version = "0.0.1"
Enumeration
#Win_Main
#Win_Main_Menu
#Win_Main_Menu_New
#Win_Main_Menu_Open
#Win_Main_Menu_Save
#Win_Main_Menu_SaveAs
#Win_Main_Menu_Close
#Win_Main_Menu_Quit
#Win_Main_Toolbar
#Win_Main_Toolbar_New
#Win_Main_Toolbar_Open
#Win_Main_Toolbar_Save
#Win_Main_Toolbar_SaveAs
#Win_Main_Toolbar_Close
EndEnumeration
OpenWindow(#Win_Main,0,0,300,200,#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered,App_Name+" "+App_Version)
;CreateMenu(#Win_Main_Menu,WindowID(#Win_Main))
;MenuTitle("File")
;MenuItem(#Win_Main_Menu_New, "New" +Chr(9)+"Ctrl+N")
;MenuItem(#Win_Main_Menu_Open, "Open" +Chr(9)+"Ctrl+O")
;MenuItem(#Win_Main_Menu_Save, "Save" +Chr(9)+"Ctrl+S")
;MenuItem(#Win_Main_Menu_SaveAs, "Save as"+Chr(9)+"Ctrl+A")
;MenuItem(#Win_Main_Menu_Close, "Close"+Chr(9)+"Ctrl+Q")
;MenuItem(#Win_Main_Menu_Quit,"Quit")
If CreateToolBar(#Win_Main_Toolbar,WindowID())
ToolBarStandardButton(#Win_Main_Toolbar_New, #PB_ToolBarIcon_New)
ToolBarStandardButton(#Win_Main_Toolbar_Open, #PB_ToolBarIcon_Open)
MessageRequester("Info","Toolbar created",#PB_MessageRequester_Ok)
Else
MessageRequester("Info","Tollbar not created",#PB_MessageRequester_Ok)
EndIF
;CreateGadgetList(WindowID(#Win_Main))
Repeat
Event = WindowEvent()
If Event = #PB_Event_CloseWindow
Quit = 1
ElseIf Event = #PB_Event_Gadget
;Select EventGadgetID()
;Case
;EndSelect
ElseIf Event = #PB_Event_Menu
Select EventMenuID()
Case #Win_Main_Menu_Quit
Quit = 1
EndSelect
EndIf
Until Quit = 1

Pas cool, alors que ça marche sans problème sous win32...
Quelqu'un a-t-'il eu se problème sous linux?