Any games that use MaxGUI for windowed mode?

BlitzMax Forums/BlitzMax Programming/Any games that use MaxGUI for windowed mode?

See the code below. The icon can be set via a resource file which need to be setup first and can then be imported during compile.

SuperStrict

Import MaxGui.Drivers

Global	Window1:TGadget

Local Logic_Gui:TGadget = CreateWindow:TGadget("Logic_Gui",235,115,611,497,Null,WINDOW_TITLEBAR|WINDOW_RESIZABLE |WINDOW_MENU |WINDOW_STATUS |WINDOW_CLIENTCOORDS )
		Window1:TGadget = CreateWindow:TGadget("Window1",13,102,303,147,Logic_Gui:TGadget,WINDOW_TITLEBAR|WINDOW_RESIZABLE |WINDOW_STATUS |WINDOW_CLIENTCOORDS |WINDOW_ACCEPTFILES )
			SetGadgetAlpha( Window1:TGadget, 0.740000010 )
			SetGadgetColor( Window1:TGadget,181,210,240, True )
			Local Ok1:TGadget = CreateButton:TGadget("Move Window to 100,100 and set size to 400,300",20,71,272,23,Window1:TGadget,BUTTON_OK)

Repeat
	WaitEvent()
	Select EventID()
		Case EVENT_WINDOWCLOSE
			Select EventSource()
				Case Logic_Gui	Logic_Gui_WC( Logic_Gui:TGadget )
				Case Window1	Window1_WC( Window1:TGadget )
			End Select

		Case EVENT_GADGETACTION
			Select EventSource()
				Case Ok1	Ok1_GA( Ok1:TGadget )
			End Select

	End Select
Forever

Function Logic_Gui_WC( Window:TGadget )
	DebugLog "Window Logic_Gui wants to be closed"
	End
End Function

Function Window1_WC( Window:TGadget )
	DebugLog "Window Window1 wants to be closed"
	End
End Function

Function Ok1_GA( Button:TGadget )
	DebugLog "Button Ok1 was pressed"
	SetGadgetShape(Window1,100,100,400,300)
End Function