folgender Code funktioniert unter Windows aber nicht unter Xubuntu.
Die Toolbar wird dort nicht erstellt.
Code: Alles auswählen
Enumeration
#myWindow
#myContainer
#myToolbar
EndEnumeration
If OpenWindow(#myWindow, 0, 0, 300, 70, "ToolBar")
ContainerGadget(#myContainer, 0, 0, 300, 50)
If CreateToolBar(#myToolbar, GadgetID(#myContainer))
ToolBarStandardButton(0, #PB_ToolBarIcon_New)
ToolBarStandardButton(1, #PB_ToolBarIcon_Open)
ToolBarStandardButton(2, #PB_ToolBarIcon_Save)
Else
Debug "Couldn't create #myToolbar"
EndIf
CloseGadgetList()
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
Danke im Voraus & Grüße ... Kiffi
// Edit:
so gehts
Code: Alles auswählen
Enumeration
#myWindow
#myContainer
#myToolbar
EndEnumeration
If OpenWindow(#myWindow, 0, 0, 300, 70, "ToolBar")
ContainerGadget(#myContainer, 10, 10, 280, 50, #PB_Container_Flat)
If CreateToolBar(#myToolbar, WindowID(#myWindow))
CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Linux
gtk_widget_reparent_(ToolBarID(#myToolbar), GadgetID(#myContainer))
CompilerCase #PB_OS_Windows
SetParent_(ToolBarID(#myToolbar), GadgetID(#myContainer))
CompilerEndSelect
ToolBarStandardButton(0, #PB_ToolBarIcon_New)
ToolBarStandardButton(1, #PB_ToolBarIcon_Open)
ToolBarStandardButton(2, #PB_ToolBarIcon_Save)
EndIf
CloseGadgetList()
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
