Is this a bug?

same shit, now with canvas..

; windowmenus howto

window=CreateWindow("w00t!",0,0,640,480)

Menu_file=CreateMenu("&File",0,WindowMenu(window))
	Menu_Open=CreateMenu("&Open",1,Menu_file)
	CreateMenu "",99999,Menu_file
	Menu_Save=CreateMenu("&Save",2,Menu_file)
	Menu_SaveAs=CreateMenu("Save &As",3,Menu_file)
	CreateMenu "",99999,Menu_file	
	Menu_Quit=CreateMenu("&Quit",4,Menu_file)
Menu_edit=CreateMenu("&Edit",100,WindowMenu(window))
	Menu_Cut=CreateMenu("C&ut",101,Menu_edit)
	Menu_Copy=CreateMenu("&Copy",102,Menu_edit)
	Menu_Paste=CreateMenu("&Paste",103,Menu_edit)
Menu_Tools=CreateMenu("&Tools",200,WindowMenu(window))
	Menu_Showmoney=CreateMenu("&Showmoney",201,Menu_tools)
Menu_help=CreateMenu("&Help",300,WindowMenu(window))
	Menu_About=CreateMenu("&About",301,Menu_help)

UpdateWindowMenu window ; otherwise you won't see changes


canvas=CreateCanvas(0,64,512,256,window)



MyButton=CreateButton("click here!",8,8,80,24,window)
MyOtherButton=CreateButton("click here too!",8,32,80,24,window)

Repeat
	WaitEvent()
	If EventID()=$803 quit=1
	
	If EventID()=$401
		If EventSource()=MyButton Notify "w00! button 1"
		If EventSource()=MyOtherButton Notify "w00! GANGBANG!"		
	EndIf
	
	If EventID()=$1001
		Select EventData()
			Case 1
				a$=RequestFile("anything..")
			Case 2
				a$=RequestFile("anything..",True)
			Case 3
				a$=RequestFile("anything..",True)
			Case 101
				Notify "cut"
			Case 102
				Notify "copy"
			Case 103
				Notify "paste"
			Case 201
				If MenuChecked(Menu_Showmoney) UncheckMenu Menu_Showmoney Else CheckMenu Menu_Showmoney
				UpdateWindowMenu window
			Case 301
				Notify "Random stuph"+Chr(13)+"All rights reserved"
		End Select
	EndIf
	
	If EventSource()=canvas
		If EventID()=$205
			ActivateGadget canvas
		EndIf
		
		If EventID()=$201
			updatecanvas canvas
		EndIf
		
		If EventID()=$203
			updatecanvas canvas
		EndIf
		
	EndIf
Until quit
End

Function updatecanvas(c)
	SetBuffer CanvasBuffer(c)
		ClsColor Rnd(255),128,128
		Cls
	FlipCanvas c
End Function