Cower GUI

it seems to be that last window created that remains functional. (tested by creating more than two).

*EDIT*
it seems to be that each of them will accept movement (or focus) twice, then all but the last stop responding.

Import Cower.GUI

Graphics 1280,960,32,85

While CGUI.SkinPath="./"
	Cls()
	DrawText "Pick a skin: 1- WinXP,  2- Steam,  3- Eniretu      Press the number key to pick the skin",4,4
	Select True
		Case KeyDown(KEY_1)
			CGUI.SkinPath="skins/WinXP/"
		Case KeyDown(KEY_2)
			CGUI.SkinPath="skins/Steam/"
			CGUI.TitleR = 192
			CGUI.TitleG = 192
			CGUI.TitleB = 192
		Case KeyDown(KEY_3)
			CGUI.SkinPath="skins/Eniretu/"
	End Select
	Flip()
Wend

font = GetImageFont()

CGUI.FontPath="eurotype.ttf"
gui:CGUI = New CGUI



Type TmyWindow Extends CWindow
	
	Field Button1:CButton = CButton.Create(Self,32,32,128,128,"Captain Weeblness")
	
	' Creates a window

	Function Create:TmyWindow(X:Float,Y:Float,Width:Float,Height:Float,Caption:String="",TitleBar:Int=0,CloseButton:Int=0,MinButton:Int=0)
		Local this:TmyWindow 	= New TmyWindow 
		this.X			=	X
		this.Y			=	Y
		this.Width		=	Width
		this.Height		=	Height
		this.Caption	=	Caption
		If TitleBar Then
			this.Flags						:|	TmyWindow .CW_TITLEBAR
			this.Y :+ 24
			this.Height :- 24
		EndIf
		If CloseButton Then this.Flags		:|	TmyWindow .CW_CLOSEBUTTON
		If MinButton Then this.Flags		:|	TmyWindow .CW_MINIMIZEBUTTON
		this.Link = CGUI.RegisterGadget(this)
		Return this
	End Function

End Type


myWindow : TmyWindow = TmyWindow.Create(32,32,256,256,"Weebl",1)
myWindow2 : TmyWindow = TmyWindow.Create(0,0,256,256,"Weebl Too!",1)
myWindow3 : TmyWindow = TmyWindow.Create(0,0,256,256,"Weebl Three!",1)
myWindow4 : TmyWindow = TmyWindow.Create(0,0,256,256,"Weebl Four!",1)
myWindow5 : TmyWindow = TmyWindow.Create(0,0,256,256,"Weebl Five!",1)
myWindow6 : TmyWindow = TmyWindow.Create(0,0,256,256,"Weebl Six!",1)
myWindow7 : TmyWindow = TmyWindow.Create(0,0,256,256,"Weebl Seven!",1)
myWindow8 : TmyWindow = TmyWindow.Create(0,0,256,256,"Weebl Eight!",1)

SetClsColor(192,192,192)

While Not KeyDown(KEY_ESCAPE)
	Cls()
	
	gui.Update()
	
	Flip
Wend

End