MojoX -> RequestInt -> Can't suspend main fiber

[RatchetParticipant]

Every time I try to call RequestInt the program stops and the outputs says

Can’t suspend main fiber

What am I doing wrong?

Monkey

Class CharRect Extends View Field Amount: Int = 1 Method OnMouseEvent(event: MouseEvent) Override Select event.Type Case EventType.MouseDown Select event.Button Case MouseButton.Right Amount = RequestInt("Anzahl:", "", Amount, 1, 0, 99) End End End End

1 2 3 4 5 6 7 8 9 10 11 12 13

Class CharRect Extends View Field Amount: Int = 1   Method OnMouseEvent(event: MouseEvent) Override Select event.Type Case EventType.MouseDown Select event.Button Case MouseButton.Right Amount = RequestInt("Anzahl:", "", Amount, 1, 0, 99) End End End End

[codifiesParticipant]

Its fairly common in a number of GUI’s that you can’t actually call anything creating a UI item from within an event, try just setting a flag in the event and responding to the flag in your main loop…

[Mark SiblyKeymaster]

You currently need to create a ‘fiber’ inside event handlers if you are writing blocking code, as event handlers run on the main thread and you can’t block the main thread or the entire app will halt.

In this case, something like this should work:

Monkey

#Import "<std>" #Import "<mojo>" #Import "<mojox>" Using std.. Using mojo.. Using mojox.. Class MyWindow Extends Window Field amount:Int Method New() Super.New( "Simple Mojo Gui App",640,480,WindowFlags.Resizable ) End Method OnMouseEvent(event: MouseEvent) Override Select event.Type Case EventType.MouseDown Select event.Button Case MouseButton.Right New Fiber( Lambda() amount=RequestInt("Anzahl:", "", amount, 1, 0, 99) End ) End End 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

#Import "<std>" #Import "<mojo>" #Import "<mojox>"   Using std.. Using mojo.. Using mojox..   Class MyWindow Extends Window   Field amount:Int   Method New() Super.New( "Simple Mojo Gui App",640,480,WindowFlags.Resizable ) End   Method OnMouseEvent(event: MouseEvent) Override Select event.Type Case EventType.MouseDown Select event.Button Case MouseButton.Right New Fiber( Lambda() amount=RequestInt("Anzahl:", "", amount, 1, 0, 99) End ) End End End End   Function Main()   New AppInstance New MyWindow App.Run() End

[RatchetParticipant]

Great, thanks a lot!
By the way: Monkey2 rocks

[Author]

Posts