Too may GraphicsWindow.MouseMove events

[nonkit]

Too may GraphicsWindow.MouseMove events occur in Debug.

Sample code:

' Drag and Drop Sample
' Original Program ID NWQ566
' Modified for SBO v0.91

'GraphicsWindow.Title = "Drag and Drop Sample"
Init()
MainLoop()

Sub MainLoop
  ' main loop
  While "True"
    While Not[mouseDown]  ' wait until mouse down
      Program.Delay(200)
    EndWhile
    x1 = Shapes.GetLeft(rect)
    y1 = Shapes.GetTop(rect)
    x2 = x1 + size
    y2 = y1 + size
    If (x1 <= mx) Then
      If (mx < x2) Then
        If (y1 <= my) Then
          If (my < y2) Then
            ' mouse clicked on the rectangle
            dx = mx - x1
            dy = my - y1
            While mouseDown ' move the rectangle while mouse down
              If mouseMove Then
                Shapes.Move(rect, mx - dx, my - dy)
                mouseMove = "False"
              EndIf
            EndWhile
          EndIf
        EndIf
      EndIf
    EndIf
  EndWhile
EndSub

Sub Init
  ' initialization
  Not["True"] = "False"
  Not["False"] = "True"
  GraphicsWindow.BackgroundColor = "#333333"
  GraphicsWindow.PenWidth = 0
  GraphicsWindow.BrushColor = "Gold"
  size = 40
  rect = Shapes.AddEllipse(size, size)
  mouseDown = "False"
  mouseMove = "False"
  GraphicsWindow.MouseDown = OnMouseDown
  GraphicsWindow.MouseUp = OnMouseUp
  GraphicsWindow.MouseMove = OnMouseMove
EndSub

Sub OnMouseDown
  ' mouse down event handler
  mx = GraphicsWindow.MouseX
  my = GraphicsWindow.MouseY
  mouseDown = "True"
EndSub

Sub OnMouseUp
  ' mouse up event handler
  mouseDown = "False"
EndSub

Sub OnMouseMove
  ' mouse move event handler
  mx = GraphicsWindow.MouseX
  my = GraphicsWindow.MouseY
  mouseMove = "True"
EndSub

[OmarTawfik]

1. We should have a scrollbar on methods (same as variables)
2. We should investigate why the stack is not cleared when exiting events.

[nonkit]

Mouse move event and Timer event may happen before ending previous events. Hardware events may have higher priority than round robin or other task switch. So one way is to ignore events in call stack view. Anyway scrollbar may be needed for such as recursive calling.

[OmarTawfik]

Lets keep this issue for adding scrollbars.
I filed #78 separately because we shouldn't be queuing another instance of an event if one is already there (and it was still queued).

[OmarTawfik]

Thanks @nonkit for reporting :) this is now fixed.