--- a/FlyByHelp.st	Fri May 01 19:36:53 2009 +0200
+++ b/FlyByHelp.st	Sat May 02 11:17:58 2009 +0200
@@ -247,6 +247,14 @@
 
     |org p v dev|
 
+    view windowGroup isInModalLoop ifTrue:[
+"/ Transcript showCR:'1'.
+        view windowGroup isModal ifFalse:[
+"/ Transcript showCR:'2'.
+            ^ self
+        ].
+    ].
+
     view == currentView ifTrue:[
         lastHelpText = aHelpText ifTrue:[
             ^ self
@@ -323,7 +331,7 @@
 !FlyByHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.25 2009-03-11 00:50:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.26 2009-05-02 09:17:58 cg Exp $'
 ! !
 
 FlyByHelp initialize!