canvas refresh and menu item selection problem

BlitzMax Forums/MaxGUI Module/canvas refresh and menu item selection problem

Jesse

(Posted 2010) [#1]

the code below has a problem refreshing when selecting "File" tab and moving moving the mouse over the other two tabs but it works if I start from any of the other two tabs:

SuperStrict
Import MaxGui.Drivers

AppTitle = "MaxGUI Application"

Local MyWindow:TGadget = CreateWindow(AppTitle,112,84,800,600,Null,WINDOW_TITLEBAR|WINDOW_MENU|WINDOW_CLIENTCOORDS)

Local filemenu:TGadget = CreateMenu("&File",0,WindowMenu(MyWindow))
CreateMenu "&New",101,filemenu,KEY_N,MODIFIER_COMMAND
CreateMenu "&Open file",102,filemenu,KEY_O,MODIFIER_COMMAND
CreateMenu "&Close file",103,filemenu,KEY_C,MODIFIER_COMMAND
CreateMenu "",0,filemenu
CreateMenu "&Save",104,filemenu,KEY_S,MODIFIER_COMMAND
CreateMenu "",0,filemenu
CreateMenu "&Open bitmap image",105,filemenu,KEY_I,MODIFIER_COMMAND
CreateMenu "",0,filemenu
CreateMenu "&Exit",106,fileMenu,KEY_F4,MODIFIER_COMMAND

Local editmenu:TGadget = CreateMenu("&Edit",0,WindowMenu(MyWindow))
CreateMenu "Cu&t",107,editmenu,KEY_X,MODIFIER_COMMAND
CreateMenu "&Copy",108,editmenu,KEY_C,MODIFIER_COMMAND
CreateMenu "&Paste",109,editmenu,KEY_V,MODIFIER_COMMAND

Local helpmenu:TGadget = CreateMenu("&Help",0,WindowMenu(MyWindow))
CreateMenu "&About",110,helpmenu

UpdateWindowMenu MyWindow

Global canvas:TGadget = CreateCanvas(0,0,800,640,MyWindow)
SetGraphics CanvasGraphics (canvas)

CreateTimer(100)

Repeat
	Select PollEvent() 'same problem with waitevent.
		Case EVENT_MENUACTION
		Case EVENT_TIMERTICK, EVENT_GADGETPAINT, EVENT_WINDOWMOVE, EVENT_APPRESUME
			redraw()
		Case EVENT_WINDOWSIZE
			SetViewport 0,0,ClientWidth(canvas),ClientHeight(canvas)
			Select EventData()
				Case 106
					End
				Case 110
					Notify "About stuff here"
			End Select
	End Select
Forever

Function ReDraw() 
	'Call ReDraw() every time you want to update the canvas
	SetGraphics CanvasGraphics(canvas)
	Local t:Long=MilliSecs()/100
	Cls
	DrawLine 400,300,400+120*Cos(t),300+120*Sin(t)
	DrawLine 400,300,400+80*Cos(t/60),300+80*Sin(t/60)
	Flip()
End Function

I can't figure out what I am doing wrong. Any help really appreciated.

[edit]
acutally it doesn't refresh for any but the larger one always covers the smaller one that's why it seems to be refreshing the other way around.