Selaa lähdekoodia

Added windowtest banana.

Mark Sibly 8 vuotta sitten
vanhempi
commit
2cf1f0b6bb
1 muutettua tiedostoa jossa 62 lisäystä ja 0 poistoa
  1. 62 0
      bananas/windowtest/windowtest.monkey2

+ 62 - 0
bananas/windowtest/windowtest.monkey2

@@ -0,0 +1,62 @@
+
+Namespace myapp
+
+#Import "<std>"
+#Import "<mojo>"
+
+Using std..
+Using mojo..
+
+Class MyWindow Extends Window
+
+	Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )
+
+		Super.New( title,width,height,WindowFlags.Center|WindowFlags.Maximized|WindowFlags.Resizable )
+
+	End
+	
+	Method OnKeyEvent( event:KeyEvent ) Override
+	
+		If event.Type=EventType.KeyDown
+			Select event.Key
+			Case Key.Up
+				If Minimized Restore() Else Maximize()
+			Case Key.Down
+				If Maximized Restore() Else Minimize()
+			End
+		Endif
+	End
+	
+	Method OnWindowEvent( event:WindowEvent ) Override
+	
+		Select event.Type
+		Case EventType.WindowMaximized
+			Print "Maximized!"
+		Case EventType.WindowMinimized
+			Print "Minimized!"
+		Case EventType.WindowRestored
+			Print "Restored!"
+		Case EventType.WindowResized
+			Print "Resized!"
+		End
+		
+		Super.OnWindowEvent( event )
+	End
+
+	Method OnRender( canvas:Canvas ) Override
+	
+		Print "OnRender: Width="+Width+", Height="+Height
+	
+		canvas.DrawText( "Hello World!",Width/2,Height/2,.5,.5 )
+	End
+	
+End
+
+Function Main()
+
+	New AppInstance
+	
+	New MyWindow
+	
+	App.Run()
+End