; Module/File: Panel_TabsInvisible.pb ; Function: PanelGadget-tabs invisible - Linux gtk2/gtk3 ; Author: Omi ; Date: Aug. 23, 2014 ; Version: 0.1 ; Target Compiler: PureBasic 5.22/5.31/5.4/5.6 ; Target OS: Linux: (X/K/L)ubuntu, Mint, 32/64, Ascii/Uni ;-------------------------------------------------------------- EnableExplicit ; Object constants #Win_Main= 0 #But1 = 0 #Panel1 = 1 Global.i gEvent, gQuit Global.i gI If OpenWindow(#Win_Main, 100, 120, 410, 310, "PanelGadget: tabs invisible", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ButtonGadget(#But1, 5, 2, 150, 25, "set tabs invisible", #PB_Button_Toggle) PanelGadget(#Panel1, 0, 30, 400, 270) For gI=0 To 3 AddGadgetItem(#Panel1, -1, " Tab (Rider) "+Str(gI)) TextGadget(#PB_Any, 5, 5, 200, 20, "Panel "+Str(gI)) Next gI CloseGadgetList() Repeat gEvent= WaitWindowEvent() Select gEvent Case #PB_Event_CloseWindow gQuit= #True Case #PB_Event_Gadget If EventGadget()= #But1 gtk_notebook_set_show_tabs_(GadgetID(#Panel1), GetGadgetState(#But1) !1) EndIf EndSelect Until gQuit EndIf End ; IDE Options = PureBasic 5.45 LTS (Linux - x86) ; CursorPosition = 16 ; EnableUnicode ; EnableXP ; CurrentDirectory = /home/charly-xubuntu/Programming/PureBasic/purebasic/