BlitzMax Graphics WIn Inside maxgui?

Strict

Import maxgui.drivers

Global Win:TGadget = CreateWindow("Canvas graphics",0,0,400,400,Null,WINDOW_DEFAULT|WINDOW_CENTER)
Global Canvas:TGadget = CreateCanvas(0,0,ClientWidth(Win),ClientHeight(Win),Win)
Global Timer:TTimer = CreateTimer(60) '60 FPS

Repeat
	WaitEvent()
	
	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
			
		Case EVENT_TIMERTICK
			RedrawGadget(Canvas)
			
		Case EVENT_GADGETPAINT
			Select EventSource()
				Case Canvas
					SetGraphics(CanvasGraphics(Canvas)) 'Set Max2D so all drawing is done on the Canvas
					
					Cls
					DrawText("Testing",10,10)
					Flip 0
			EndSelect
	EndSelect
Forever