Toolbar once more ...

[Shardik]

While RASHAD's examples work truely cross-platform, you always have to take care for a correctly dimensioned array to contain the button states. I have therefore taken wombat's MacOS API solution with additional CompilerCase parts and the respective API codes for Linux (currently works only with Gtk3!) and Windows. I have tested my example successfully with PB 5.46 in ASCII and Unicode mode on these operating systems:
- Linux Mint 18.3 Sylvia x64 with Cinnamon
- MacOS 10.13.6 'High Sierra'
- Windows 7 SP1 x64

Code: Select all

EnableExplicit

UsePNGImageDecoder()

CompilerIf #PB_Compiler_OS = #PB_OS_Linux
  ImportC ""
    gtk_widget_is_sensitive(*Widget.GtkWidget)
  EndImport
CompilerEndIf

Define i.I

Procedure IsToolBarButtonEnabled(ToolBarID.I, ButtonIndex.I)
  CompilerSelect #PB_Compiler_OS
    CompilerCase #PB_OS_Linux
      Protected *ToolItem.GtkToolItem
      *ToolItem = gtk_toolbar_get_nth_item_(ToolBarID(ToolBarID), ButtonIndex)
      ProcedureReturn gtk_widget_is_sensitive(*ToolItem)
    CompilerCase #PB_OS_Windows
      Protected ButtonInfo.TBBUTTON
      SendMessage_(ToolBarID(ToolBarID), #TB_GETBUTTON, ButtonIndex,
        @ButtonInfo)
      ProcedureReturn (ButtonInfo\fsState & #TBSTATE_ENABLED) >> 2
    CompilerCase #PB_OS_MacOS
      Protected ItemArray.I
      Protected ToolbarItem.I
      ItemArray = CocoaMessage(0, ToolBarID(ToolbarID), "items")
      ToolbarItem = CocoaMessage(0, ItemArray, "objectAtIndex:", ButtonIndex)
      ProcedureReturn CocoaMessage(0, ToolbarItem, "isEnabled")
  CompilerEndSelect
EndProcedure

OpenWindow(0, 200, 100, 200, 70, "ToolBar example")

If CreateToolBar(0, WindowID(0))
  ToolBarImageButton(0, LoadImage(0, #PB_Compiler_Home +
    "examples/sources/Data/ToolBar/New.png"))
  ToolBarImageButton(1, LoadImage(0, #PB_Compiler_Home +
    "examples/sources/Data/ToolBar/Open.png"))
  ToolBarImageButton(2, LoadImage(0, #PB_Compiler_Home +
    "examples/sources/Data/ToolBar/Save.png"))
EndIf

; ----- Disable 2nd ToolBar button
DisableToolBarButton(0, 1, #True)

; ----- Display ToolBar button states
For i = 0 To 2
  Debug "ToolBar button " + Str(i) + ": " + IsToolBarButtonEnabled(0, i)
Next i

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
    Case #PB_Event_Menu
      Debug "ToolBar button " + Str(EventMenu()) + " was pressed"
  EndSelect
ForEver

[Oma]

Thanks all.
Under Linux it should work even from Gtk2.18.
I just tested it on Gtk2.24.32.

[Shardik]

Under Linux it should work even from Gtk2.18.
I just tested it on Gtk2.24.32.

RASHAD's non-API example works with GTK 2 and 3. My API example doesn't work with GTK 2.24.30 on Linux Mint 18.3 'Sylvia' with PB 5.46. And this is not caused by the GTK framework but by PureBasic 5.46 because PureBasic changed the underlying gadgets in the ToolBar for GTK 3. You may check this with my ToolBar widget mapper. In GTK 2 PureBasic utilizes a GtkButton and in GTK 3 a GtkToolButton instead of the GtkButton. Therefore when using GTK 2, PureBasic 5.46 displays the following warning and error and the detection of the toolbar button state doesn't work:

Gtk (WARNING): Mixing deprecated and non-deprecated GtkToolbar API is not allowed
Gtk (Critical): IS_gtk_widget_is_sensitive: assertion 'GTK_IS_WIDGET (widget)' failed

These are the underlying GTK widgets in PureBasic 5.46:
GTK 2


GTK 3


But you are right for PureBasic 5.70. In PureBasic 5.70 the GTK 2 subsystem was changed to utilize GtkToolButton instead of GtkButton, so in PureBasic 5.70 the widget mapper displays the same structure for GTK 2 and GTK 3...

[wombats]

Thanks for covering GTK and Windows, Shardik. I tried to do it with the Qt subsystem, but I can't see a way for QtScript() to access the toolbar items.