Freezed graphics when moving a windowed game

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

TomToad

EVENT_WINDOWMOVE isn't recognized? BMax v1.24 does. Also processing is not suspended using hooks.

Strict
Global Window:TGadget = CreateWindow("Test",10,10,320,240)
Global Canvas:TGadget = CreateCanvas(0,0,320,240,Window)
Global Timer:TTimer = CreateTimer(30)
Global x:Int = 0
AddHook EmitEventHook, MyHook


Repeat
	WaitEvent()
Forever

Function MyHook:Object(id:Int,data:Object,context:Object)
	Local Event:TEvent = TEvent(data)
	Print Event.ToString()
	Select Event.id
		Case EVENT_WINDOWCLOSE
			End
		Case EVENT_GADGETPAINT
			SetGraphics CanvasGraphics(Canvas)
			Cls
			DrawOval x-5,115,10,10
			Flip
			Return Null
		Case EVENT_TIMERTICK
			x :+ 2
			If x >= 320 Then x = 0
			RedrawGadget Canvas
			Return Null
	End Select
	Return data
End Function