--- a/FlyByHelp.st	Fri Dec 06 11:57:07 2019 +0100
+++ b/FlyByHelp.st	Tue Dec 10 12:48:54 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2001 by eXept Software AG
               All Rights Reserved
@@ -285,6 +287,8 @@
 !FlyByHelp methodsFor:'event handling'!
 
 buttonMotion:buttonAndModifierState x:x y:y view:aView
+    (Suspended ? false) ifTrue:[^ false].   
+
     "/ DebuggingEvents := true
     "/ DebuggingEvents := false
     DebuggingEvents == true ifTrue:[
@@ -418,7 +422,7 @@
             currentView := prevView.
             ^ false
         ].
-        key == $§ ifTrue:[
+        key == $§ ifTrue:[
             "/ generate a line suitable for the resources file (a null translation)
             "/ into the clipboard; makes it easy to add missing translations to a .rs file,
             "/ by pressing paragraph whenever you see an untranslated helptext
@@ -478,6 +482,8 @@
 !
 
 mouseWheelMotion:state x:x y:y amount:amount deltaTime:dTime view:aView
+    (Suspended ? false) ifTrue:[^ false].   
+
     "/ DebuggingEvents := true
     "/ DebuggingEvents := false
     DebuggingEvents == true ifTrue:[
@@ -494,6 +500,8 @@
 !
 
 pointerLeave:state view:aView
+    (Suspended ? false) ifTrue:[^ false].   
+
     "/ DebuggingEvents := true
     "/ DebuggingEvents := false
     DebuggingEvents == true ifTrue:[
@@ -700,7 +708,8 @@
 
     |text delayTime|
 
-    suspended == true ifTrue:[^ self].
+    (Suspended ? false) ifTrue:[^ false].   
+    (suspended ? false) ifTrue:[^ self].
 
     "/ Timestamp now infoPrint. ' initiate ' infoPrint. aView infoPrint. ' ' infoPrint. aPointOrNil infoPrintCR.
     Debugging ifTrue:[