Browse Source

Amiga-likes: do not call Drivers.GetSystemEvent, FV doesn't really handle it, and causes issues if the system events are swallowed by various components. the IDE has direct system event integration in its main loop.

git-svn-id: trunk@29332 -
Károly Balogh 10 years ago
parent
commit
136f845576
1 changed files with 6 additions and 0 deletions
  1. 6 0
      packages/fv/src/app.pas

+ 6 - 0
packages/fv/src/app.pas

@@ -947,8 +947,14 @@ BEGIN
            Drivers.GetMouseEvent(Event);              { Load mouse event }
            Drivers.GetMouseEvent(Event);              { Load mouse event }
            If (Event.What = evNothing) Then
            If (Event.What = evNothing) Then
              begin
              begin
+{$IFNDEF HASAMIGA}
+               { due to isses with the event handling in FV itself,
+                 we skip this here, and let the IDE to handle it
+                 directly on Amiga-like systems. The FV itself cannot
+                 handle the System Events anyway. (KB) }
                Drivers.GetSystemEvent(Event);         { Load system event }
                Drivers.GetSystemEvent(Event);         { Load system event }
                If (Event.What = evNothing) Then
                If (Event.What = evNothing) Then
+{$ENDIF}
                  Idle;     { Idle if no event }
                  Idle;     { Idle if no event }
              end;
              end;
          End;
          End;