浏览代码

Fixed mojo-x test

build error for mojo-x *menu test* occured from using invalid paramters.

- made the MenuBar the owner
Abrahim 7 年之前
父节点
当前提交
0a3031112d
共有 1 个文件被更改,包括 4 次插入3 次删除
  1. 4 3
      modules/mojox/tests/menu_test.monkey2

+ 4 - 3
modules/mojox/tests/menu_test.monkey2

@@ -1,4 +1,3 @@
-
 #import "<std>"
 #import "<std>"
 #import "<mojo>"
 #import "<mojo>"
 #import "<mojox>"
 #import "<mojox>"
@@ -8,6 +7,8 @@ Using mojo..
 Using mojox..
 Using mojox..
 
 
 Class MyWindow Extends Window
 Class MyWindow Extends Window
+	
+	Field menuBar:MenuBar
 
 
 	Method New()
 	Method New()
 		Super.New( "Dialogs Demo",640,480,WindowFlags.Resizable )
 		Super.New( "Dialogs Demo",640,480,WindowFlags.Resizable )
@@ -55,7 +56,7 @@ Class MyWindow Extends Window
 			Alert( "Paste Selected..." )
 			Alert( "Paste Selected..." )
 		End
 		End
 
 
-		Local menuBar:=New MenuBar
+		menuBar=New MenuBar
 		
 		
 		menuBar.AddMenu( fileMenu )
 		menuBar.AddMenu( fileMenu )
 		menuBar.AddMenu( editMenu )
 		menuBar.AddMenu( editMenu )
@@ -75,7 +76,7 @@ Class MyWindow Extends Window
 				menu.AddAction( "Action 2" )
 				menu.AddAction( "Action 2" )
 				menu.AddAction( "Action 3" )
 				menu.AddAction( "Action 3" )
 				
 				
-				menu.Open( event.Location,event.View )
+				menu.Open( event.Location,event.View,menuBar )
 				
 				
 				event.Eat()
 				event.Eat()
 			End
 			End