Alt goes out of focus in a canvas

Im are going to create a application, wich use a windows and a canvas.

When Im using PollEvent as a keyevent, the ALT key(keycode 164) goes just out of focus and get the very dreadfull pulldown menu from the tooleft menu instead.

How can I get red of this problem, so the canvas get the focus alltimes and not trigger the pulldown menu instead?

I even tried something that this without luck (Data got the pulled data event):

If Do$="KeyDown" Then TControllers.KeyD[Data]=1 ; If Data=164 Then ActivateGadget(PaintID)

If Do$="KeyUp" Then TControllers.KeyD[Data]=0 ; If Data=164 Then ActivateGadget(PaintID)

Does this mean ALT cant being used in a BlitzMax game, when using a window?

Any runnable example code?

wx=ClientWidth(Desktop())/2-320
wy=ClientHeight(Desktop())/2-240
WindowID=CreateWindow("Test", wx, wy, 640, 480, Null, WINDOW_TITLEBAR | WINDOW_RESIZABLE | WINDOW_CLIENTCOORDS | WINDOW_ACCEPTFILES)
SetMinWindowSize WindowID, 256, 256
PaintID=CreateCanvas(0, 0, 640, 480, WindowID)

While(True)
	DO$=""
	WaitEvent
	Event$=CurrentEvent.ToString()
	If Left$(Event$,7)<>"Unknown"
		Find=Instr(Event$,":")
		Do$=Left$(Event$, Find-1)

		Find=Instr(Event$,"data=") 
		Find=Find+5
		Find2=Instr(Event$, " ",Find)
		data=Mid$(Event$,Find,Find2-Find-1).ToInt()
	EndIf
	
	If Do$="KeyDown" Then Print "KeyDown: "+Data ; If Data=164 Then ActivateGadget(PaintID)
	If Do$="KeyUp" Then Print "KeyUp: "+Data ; If Data=164 Then ActivateGadget(PaintID)


	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
	End Select
EndWhile

A awfull example, but it work. When pressing ALT, you get the topleft window pulldown (so it dosent pull anymore before pressing ESC).

Do you mean when the canvas is supposed to be active but ALT is pressed focus is passed to the menu?
If so, then that *IS* a terrible example as it has no menu.
Anyway, could SetGadgetFilter be used to not pass ALT key presses?

errr, your example doesnt do what you say the error is.

Edit: oh I see tonyg has pointed that out.

Well, on my Win 1.22 system alt doesnt pull down a menu.

Is this the problem?

wx=ClientWidth(Desktop())/2-320
wy=ClientHeight(Desktop())/2-240
WindowID:TGadget=CreateWindow("Test", wx, wy, 640, 480, Null, WINDOW_TITLEBAR | WINDOW_RESIZABLE | WINDOW_CLIENTCOORDS | WINDOW_ACCEPTFILES)
SetMinWindowSize WindowID, 256, 256
mymenu:TGadget=CreateMenu("FILE",0,WINDOWID)
UpdateWindowMenu(windowid)
PaintID:TGadget=CreateCanvas(0, 0, 640, 480, WindowID)
While(True)
	DO$=""
	WaitEvent
	Event$=CurrentEvent.ToString()
	If Left$(Event$,7)<>"Unknown"
		Find=Instr(Event$,":")
		Do$=Left$(Event$, Find-1)

		Find=Instr(Event$,"data=") 
		Find=Find+5
		Find2=Instr(Event$, " ",Find)
		data=Mid$(Event$,Find,Find2-Find-1).ToInt()
	EndIf
	
'	If Do$="KeyDown" Then Print "KeyDown: "+Data ; If Data=164 Then ActivateGadget(PaintID)
'	If Do$="KeyUp" Then Print "KeyUp: "+Data ; If Data=164 Then ActivateGadget(PaintID)
'	ActivateGadget(paintid)
			SetGraphics CanvasGraphics(paintid)
			SetOrigin 160,120
			SetLineWidth 5
			Cls
			Local t=MilliSecs()
			DrawLine 0,0,120*Cos(t),120*Sin(t)
			DrawLine 0,0,80*Cos(t/60),80*Sin(t/60)
			Flip

	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
	End Select
EndWhile

Notice that 'ALT' causes focus on the FILE menu and away from the canvas and you want to stop this? Is that right?
<edit> Can't use setgadgetfilter as, apparently, it works with textarea and textfield only.

Yes, it that problem.

When the menu is gone, it just doing that on ms window pulldown menu instead (wich is hidden until you press down).

The pulldown problem is only doing on some windows, like XP. I remember it diddent do that on 98.

Well I for one would expect any application I was using to jump to the menu system if I pressed alt.

That is you would be removing an essablished method of input, that would be more irritating removed than not removed.

If you dont want a menu system at all do whet you did in your first example. If you do want a menu system, just live with it, cos thats how it works.

The only problem is ALT is not usable, since it is on use on most MAME setups (mame is a arcade emulator).

Since I use the same default screme as mame, use ALT is used as button 2, wich is a common button.

ALT is also used in most PC games as well.

NB. I do not use a menu, but i would like to kill that hidden menu MS (wich can being seen if DOWN is pressed in my first example).

Found a way to get rid of it, there is what I did:

wx=ClientWidth(Desktop())/2-320
wy=ClientHeight(Desktop())/2-240
WindowID=CreateWindow("Test", wx, wy, 640, 480, Null, WINDOW_TITLEBAR | WINDOW_RESIZABLE | WINDOW_CLIENTCOORDS | WINDOW_ACCEPTFILES)
SetMinWindowSize WindowID, 256, 256
PaintID=CreateCanvas(0, 0, 640, 480, WindowID)

While(True)
	DO$=""
	WaitEvent
	Event$=CurrentEvent.ToString()
	If Left$(Event$,7)<>"Unknown"
		Find=Instr(Event$,":")
		Do$=Left$(Event$, Find-1)

		Find=Instr(Event$,"data=") 
		Find=Find+5
		Find2=Instr(Event$, " ",Find)
		data=Mid$(Event$,Find,Find2-Find-1).ToInt()
	EndIf
	
	If Do$="KeyDown" Then Print "KeyDown: "+Data ; If Data=164 Then DisableGadget(WindowID)
	If Do$="KeyUp" Then Print "KeyUp: "+Data ; If Data=164 Then EnableGadget(WindowID)


	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
	End Select
EndWhile

Some users may been annoying when window movement is disabled when alt is down, but it only that way to make a workaround.

The otherwice alt should of course work on the menu, if ALT is NOT remapped by the user, but does not doing in that on the new example.

[EDIT]
The only problem is, if the app is in igle, doing some thing, like loading, the pulldown menu is still noticable.

So not a 100% souluation.
[/EDIT]