Mouse Desktop Issue?

[APCParticipant]

Hello Mark,

This Mouse test displays the mouse coodinate on the screen.
When I build it for Desktop it does not update, but it runs fine when I build it for Emscriten and for Android too.

Monkey

[crayon-5cba95bb22464737826543 inline="true" ] #Import "" #Import ""

1 2 3

[crayon-5cba95bb22464737826543 inline="true" ] #Import "" #Import ""

[/crayon]

Using std..
Using mojo..

Class MyWindow Extends Window
Field x:Int
Field y:Int
Field lb:Int,rb:Int, md:Int
<p style=”padding-left: 30px;”>Method OnRender( canvas:Canvas ) Override
x=Mouse.X
y=Mouse.Y
lb=Mouse.ButtonDown(MouseButton.Left)
rb=Mouse.ButtonDown(MouseButton.Right)</p>
<p style=”padding-left: 60px;”>canvas.DrawText( “Mouse Test”,Width/2,Height/2,.5,.5 )
canvas.DrawText( “x:”+ x + ” y:” + y,Width/2,Height*.3,.5,.5 )
canvas.DrawText( “left button:”+lb+” right button”+rb ,Width/2,Height*.4,.5,.5 )</p>
<p style=”padding-left: 30px;”>End</p>
End

Function Main()
New AppInstance
New MyWindow
App.Run()
End

[Mark SiblyKeymaster]

The desktop version needs ‘RequestRender’ somewhere, either in a timer or you can just stick it at the top of OnRender, eg:

Monkey

Method OnRender( canvas:Canvas ) Override    RequestRender()   ...blah... End

1 2 3 4

Method OnRender( canvas:Canvas ) Override    RequestRender()   ...blah... End

Emscripten works a little differently and is ‘always rendering’.

[APCParticipant]

Hello Mark,

 

Thank you that works. Below is the updated code.

 

Monkey

#Import "<std>" #Import "<mojo>" #Import "<mojox>" Using std.. Using mojo.. Using mojox.. Class MyWindow Extends Window Field x:Int Field y:Int Field lb:Int,rb:Int, md:Int Method OnRender( canvas:Canvas ) Override RequestRender() x=Mouse.X y=Mouse.Y lb=Mouse.ButtonDown(MouseButton.Left) rb=Mouse.ButtonDown(MouseButton.Right) canvas.DrawText( "Mouse Test",Width/2,Height/2,.5,.5 ) canvas.DrawText( "x:"+ x + " y:" + y,Width/2,Height*.3,.5,.5 ) End ' Method OnMouseEvent( event:MouseEvent ) Override ' Print event.Location ' End End Function Main() New AppInstance New MyWindow App.Run() End

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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

#Import "<std>" #Import "<mojo>" #Import "<mojox>"   Using std.. Using mojo.. Using mojox..   Class MyWindow Extends Window Field  x:Int Field y:Int Field lb:Int,rb:Int, md:Int Method OnRender( canvas:Canvas ) Override RequestRender() x=Mouse.X y=Mouse.Y lb=Mouse.ButtonDown(MouseButton.Left) rb=Mouse.ButtonDown(MouseButton.Right) canvas.DrawText( "Mouse Test",Width/2,Height/2,.5,.5 ) canvas.DrawText( "x:"+ x + " y:" + y,Width/2,Height*.3,.5,.5 )   End   ' Method OnMouseEvent( event:MouseEvent ) Override ' Print event.Location ' End End   Function Main()   New AppInstance New MyWindow App.Run() End

[Mark SiblyKeymaster]

Also, emscripten should be working again with last master branch!

The emscripten compilers appear to have problems with long ‘relative’ paths (this has popped up a few times in the past too ), so I’ve made a few tweaks that should help – they do here anyway.

[Author]

Posts