;********************************************************************
; Windows API Controls for GLpro
; Example by G-media
;********************************************************************

merge wctrls.txt

video 640 480 8

clearscr 255 255 255

color 0 0 0

text 20 10 "Windows controls example for GLpro"

listbox 350 50 150 200 testlbox 2000

winbutton 200 50 100 30 testbtn 2001 "Add"

winedit 20 50 150 30 testedit 2002 "Edit me"

wincheck 200 100 100 30 testcheck 2003 "Enable"

mark
	getbtnstate testbtn
	if @0&0x0004
		getbtnstate testcheck

		if @0&0x0003
			itemgettext testedit
			listboxadd testlbox @0
		endif

		mark
			getbtnstate testbtn
			if !(@0&0x0004) break
		loop
	endif
loop

wait
exit
