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

gui:TGUIHandler=TGUIHandler.Create()

label1:TLabel=TLabel.Create(font,0,0,"Text 1:  ")
label2:TLabel=TLabel.Create(font,0,20,"Text 2:  ")
text1:TText=TText.Create(font,label1.w,0,"Text entry 1",20)
text2:TText=TText.Create(font,label2.w,20,"Text entry 2",30)

gui.Register(label1)
gui.Register(label2)
gui.Register(text1)
gui.Register(text2)

SetBlend(ALPHABLEND)

While Not KeyHit(KEY_ESCAPE)
	Cls
	
	If KeyHit(KEY_F1)
		gui.SetFocus(Null)
	EndIf
	
	If KeyHit(KEY_F2)
		gui.SetFocus(text1)
	EndIf
	
	If KeyHit(KEY_F3)
		gui.SetFocus(text2)
	EndIf
	
	gui.EventLoop()
	
	Flip
	FlushMem
Wend

EndGraphics
End