; Module/File:     Panel_SetTabsPos.pb
; Function:        Set the PanelGadget-position of the tabs - 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

ImportC ""
	gtk_notebook_set_tab_reorderable(*notebook.GtkNotebook, *child.GtkWidget, reorderable)
EndImport

; Object constants
#Win_Main= 0

#CBbox1  = 0
#Panel1  = 1


; Enumeration GtkPositionType
; 	#GTK_POS_LEFT
; 	#GTK_POS_RIGHT
; 	#GTK_POS_TOP
; 	#GTK_POS_BOTTOM
; EndEnumeration

Global.i gEvent, gQuit
Global.i gI


If OpenWindow(#Win_Main, 0, 0, 410, 310, "PanelGadget: Set pos of tab-bar", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
	TextGadget(#PB_Any, 5, 7, 100, 20, "Choose tab-pos: ")
	ComboBoxGadget(#CBbox1, 105, 2, 150, 26)
	AddGadgetItem(#CBbox1, 0, "Left")
	AddGadgetItem(#CBbox1, 1, "Right")
	AddGadgetItem(#CBbox1, 2, "Top")
	AddGadgetItem(#CBbox1, 3, "Bottom")
	SetGadgetState(#CBbox1, #GTK_POS_TOP)
	
	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()= #CBbox1
					gtk_notebook_set_tab_pos_(GadgetID(#Panel1), GetGadgetState(#CBbox1))
				EndIf
		EndSelect
		
	Until gQuit
	
EndIf

End  
; IDE Options = PureBasic 5.46 LTS Beta 1 (Linux - x86)
; CursorPosition = 31
; EnableUnicode
; EnableXP
; CurrentDirectory = /home/charly-xubuntu/Programming/PureBasic/purebasic/