' $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

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,TextCallback)
Global text2:TText=TText.Create(gui,label2.w,20,"Text entry 2",30)
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)

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

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

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",["Option 1","Option 2","Option 3"],MouseX(),MouseY())
	
	If opt>-1
		GUINotify("Selected " + opt)
	EndIf
End Function