' $Id$

Import noddybox.simplegui
Import noddybox.bitmapfont

Incbin "font.bmf"

Const SCRW=800
Const SCRH=600

SetGraphicsDriver GLMax2DDriver()
Graphics SCRW,SCRH,32,60' Or HARDSYNC

Global font:TBitmapFont=TBitmapFont.Load("incbin::font.bmf",0)

TGUIFont.font=font

Global gui:TGUIHandler=TGUIHandler.Create()

Global label1:TLabel=TLabel.Create(gui,0,0,"Text 1:")
Global label2:TLabel=TLabel.Create(gui,0,20,"Text 2:")
Global text1:TText=TText.Create(gui,label1.w,0,"Text entry 1",20,False,TextCallback)
Global text2:TText=TText.Create(gui,label2.w,20,"Text entry 2",30,False)
Global check1:TCheckbox=TCheckbox.Create(gui,400,0,"Check 1",CheckCallback)
Global check2:TCheckbox=TCheckbox.Create(gui,400,20,"Check 2")
Global button1:TButton=TButton.Create(gui,0,360,100,30,"Test Alerts",ButtonCallback)
Global button2:TButton=TButton.Create(gui,110,360,100,30,"Quit",ButtonCallback)
Global buttonlist:TButtonList=TButtonList.Create(gui,500,0,["Hidden","Globally","Widgets"],0,Null)
Global vscroll:TScrollbar=TScrollbar.Create(gui,780,20,20,200,ScrollCallback)
Global hscroll:TScrollbar=TScrollbar.Create(gui,600,220,200,20,ScrollCallback)
Global hscroll2:TScrollbar=TScrollbar.Create(gui,600,250,200,20,ScrollCallback)

TLabel.Create(gui,0,60,"Float:")
Global numberf:TNumberDouble=TNumberDouble.Create(gui,80,60)

TLabel.Create(gui,0,80,"Int:")
Global numberi:TNumberInt=TNumberInt.Create(gui,80,80)

vscroll.SetBar(0,20,1)
hscroll.SetBar(0,10,1)
hscroll2.SetBar(0,1,1)
numberf.minval=0
numberf.maxval=100
numberf.change=1


TLabel.Create(gui,0,100,"Float")
TText.Create(gui,100,100,"",20,TText.NUMERIC)
TLabel.Create(gui,0,110,"Float pos")
TText.Create(gui,100,110,"",20,TText.NUMERIC|TText.POSITIVE)
TLabel.Create(gui,0,120,"Int")
TText.Create(gui,100,120,"",20,TText.NUMERIC|TText.INTEGER)
TLabel.Create(gui,0,130,"Int pos")
TText.Create(gui,100,130,"",20,TText.NUMERIC|TText.INTEGER|TText.POSITIVE)

Global textlist:TTextList=TTextList.Create(gui,0,400,100,5,TextListCallback)
Global tlscroll:TScrollbar=TScrollbar.Create(gui,101,400,10,textlist.h,TextListScrollCallback)
TButton.Create(gui,0,501,100,30,"Top Row to 3",TextTopCallback)
TButton.Create(gui,110,501,100,30,"Ens. Vis. to 6",TextEnsureCallback)

textlist.SetOptions(["A long, long long index 0","1","2","3","4","5","6","7","8","9","10","11","12"])
tlscroll.Setbar(0,13-5+1,1)		' Test of count-rows+1

Global dialog:TGUIHandler=TGUIHandler.Create()
Global dpanel:TPanel=TPanel.Create(dialog,-1,-1,400,300)
Global dlab:TLabel=TLabel.Create(dialog,dpanel.x+5,dpanel.y+5,"Enter a number:")
Global dnum:TNumberInt=TNumberInt.Create(dialog,dpanel.x+25,dpanel.y+25)
Global dok:TButton=TButton.Create(dialog,dpanel.x+5,dpanel.y+dpanel.h-25,dpanel.w/2-10,20,"OK",Null)
Global dcan:TButton=TButton.Create(dialog,dpanel.x+dpanel.w/2+5,dpanel.y+dpanel.h-25,dpanel.w/2-10,20,"Cancel",Null)

Global fname:String=Null
TButton.Create(gui,300,501,100,30,"Load",LoadCallback)
TButton.Create(gui,410,501,100,30,"Save",SaveCallback)


SetBlend(ALPHABLEND)

Global quit=False

While Not KeyHit(KEY_ESCAPE) And Not quit
	Cls
	
	gui.EventLoop()
	
	If KeyHit(KEY_MOUSERIGHT)
		Menu()
	EndIf
	
	SetColor(255,0,0)
	DrawRect(390,300,10,numberf.value)
	SetColor(0,255,0)
	DrawRect(400,300,10,numberi.value)
	
	Flip
	FlushMem
Wend

EndGraphics
End

Function TextCallback(w:TWidget)
	GUINotify(w.Text)
End Function

Function CheckCallback(w:TWidget)
	Local c:TCheckbox=TCheckbox(w)
	
	check2.enabled=c.checked
	text2.enabled=c.checked
	button2.enabled=c.checked
End Function

Function ButtonCallback(w:TWidget)
	If w.text="Quit"
		quit=GUIYesNo("Really quit this really rather impressive (cough) demo?")
	Else
		
		GUINotify(w.text + " pressed")
		GUINotify("Hello|World")
		If GUIYesNo("Test yes/no?")
			GUINotify("yes")
		Else
			GUINotify("no")
		EndIf
		If GUIYesNo("Test yes/no|with some very very very long|multiple lines?")
			GUINotify("yes")
		Else
			GUINotify("no")
		EndIf
	EndIf
End Function


Function Menu()
	Local opt:Int=GUIMenu("A long long Menu",["Test Dialog","Option 1","Option 2","Option 3"],MouseX(),MouseY())
	
	If opt>-1
		If opt=0
			dnum.value=numberi.value
			
			If GUIDialog(dialog,dok,dcan)
				numberi.value=dnum.value
			EndIf
		Else
			GUINotify("Selected " + opt)
		EndIf
	EndIf
End Function

Function ScrollCallback(w:TWidget)
	Local s:TScrollbar=TScrollbar(w)
	numberf.value=s.GetValue()
End Function

TButton.Create(gui,0,501,100,30,"Top Row to 3",TextTopCallback)
TButton.Create(gui,110,501,100,30,"Ens. Vis. to 6",TextEnsureCallback)


Function TextListCallback(w:TWidget)
	Local t:TTextList=TTextList(w)
	Local o:Object=t.GetSelectedItem()
	Local i:Int=t.GetSelectedIndex()
	GUINotify("Item=" + o.ToString() + "|index=" + i)
End Function

Function TextListScrollCallback(w:TWidget)
	Local s:TScrollbar=TScrollbar(w)
	textlist.SetTopRow(s.GetValue())
End Function

Function TextTopCallback(w:TWidget)
	textlist.SetTopRow(3)
	tlscroll.SetValue(3)
End Function

Function TextEnsureCallback(w:TWidget)
	textlist.EnsureVisible(6)
	tlscroll.SetValue(textlist.GetTopRow())
End Function

Function LoadCallback(w:TWidget)
	Local f:String=GUIFileSelect("Load a file",fname,False)
	
	If f<>Null
		GUINotify("path="+f)
		fname=f
	EndIf
End Function

Function SaveCallback(w:TWidget)
	Local f:String=GUIFileSelect("Save a file",fname,True)
	
	If f<>Null
		GUINotify("path="+f)
		fname=f
	EndIf
End Function