SuperStrict

Graphics 800,600,0

Type Button
	Field Name:String
	Field PosX:Int,PosY:Int
	Field SizeX:Int,SizeY:Int
	Field Image:TImage
	
	Global ButtonList:TList=CreateList()
	
	Function CreateButton(Text:String,PosX:Int=0,PosY:Int=0)
		Local But:Button=New Button
		But.Name=Text
		But.PosX=PosX
		But.PosY=PosY
		But.SizeX=64
		But.SizeY=64
		Cls
		DrawRect (0,0,64,64)
		SetColor 0,0,0
		DrawText (text,10,10) 
		But.Image=CreateImage (64,64)
		GrabImage(But.Image,0,0)
		ListAddFirst(ButtonList,But) 
	End Function
	
	Function DrawButton()
	For Local b:Button=EachIn Button.ButtonList
		DrawImage b.image,b.posx,b.posy
		Print b.name
		Print b.posx
		Print b.posy
		Print CurrentTime()
	Next
End Function

End Type




		
button.createbutton("Button1")
button.createbutton("Button2",100,100)
button.createbutton("Button3",200,200)
SetColor 255,255,255
While Not KeyHit(KEY_ESCape)
Cls

Button.DrawButton()
Flip

Wend

Cls
DrawRect (0, 0, 64, 64)
SetColor 0,0,0
DrawText (Text,10,10)