KeyDown() without Graphics()

BlitzMax Forums/BlitzMax Programming/KeyDown() without Graphics()

i think it only lets you use EVENT_KEYDOWN when a canvas is active.

enabledpolledinput() just lets you use keydown() keyhit() and such like.

Strict

Local win_main:tgadget=CreateWindow("Test",50,50,300,200,Null,WINDOW_TITLEBAR)
Local can_main:tgadget=CreateCanvas(0,0,ClientWidth(win_main),ClientHeight(win_main), win_main)

ActivateGadget can_main

enablepolledinput()
While True
	WaitEvent 
	Print CurrentEvent.ToString()
	Select EventID()		
		Case EVENT_WINDOWCLOSE
			End
	End Select
	
	If KeyHit(KEY_ESCAPE) Then End

Wend