First impressions…

[EdzUpParticipant]

Having a play with v1.0.0 of MonkeyX2 under Windows 10 I have a few things that seem rather odd or are missing, now I know this is alpha and everything is subject to change so here goes

1. There is no way to quit an app from within the code or none that I could find. I tried the old MonkeyX Error command but its not recognised. I was using Keyboard.KeyDown( Key.Escape ) Then Error( “” ) but it errored out. Old C/C++ used Exit( value ) to quit out with a return value maybe something like Exit( value$ ) might help so we could push error strings out to the system or something of that ilk.
2. Page Up and Page Down do not work at all in the editor so all navigation has to be done with cursor keys.

Its not a bad system and I look forwards to road testing it as time goes on and I hope these things can be fixed or adjusted as time goes on.

[Matthew SmithParticipant]

EdzUp,

Add this to your App Class:

Monkey

Method OnKeyEvent( event:KeyEvent ) Override select event.Type Case EventType.KeyDown If ( event.Key=Key.Enter And event.Modifiers & Modifier.Alt ) Fullscreen=Not Fullscreen If ( event.Key=Key.Escape ) App.Terminate() End End

1 2 3 4 5 6 7 8 9

Method OnKeyEvent( event:KeyEvent ) Override select event.Type Case EventType.KeyDown If ( event.Key=Key.Enter And event.Modifiers & Modifier.Alt ) Fullscreen=Not Fullscreen If ( event.Key=Key.Escape ) App.Terminate() End End

App.Terminate() does what you need here.

[EdzUpParticipant]

@Matthew Smith: thanks. I think App.Terminate is a good thing very Delphi where it was Application.Terminate

[PakzParticipant]

I use this to exit the app. From my example git.

 

Monkey

#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Method New() End method Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Activate this method ' if key escape then quit If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() End Method End Class Function Main() New AppInstance New MyWindow App.Run() End Function

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

#Import "<std>" #Import "<mojo>"   Using std.. Using mojo..     Class MyWindow Extends Window   Method New() End method Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Activate this method ' if key escape then quit If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() End Method End Class   Function Main() New AppInstance New MyWindow App.Run() End Function

[Author]

Posts