--- a/FlyByHelp.st	Fri Jun 12 17:44:36 2009 +0200
+++ b/FlyByHelp.st	Thu Jul 09 14:59:47 2009 +0200
@@ -58,6 +58,12 @@
     "Modified: 27.4.1996 / 15:07:27 / cg"
 ! !
 
+!FlyByHelp class methodsFor:'accessing'!
+
+currentlyShownView
+    ^ TheOneAndOnlyHelpListener currentlyShownView
+! !
+
 !FlyByHelp methodsFor:'defaults'!
 
 flyByHelpTimeoutMillis
@@ -231,6 +237,10 @@
 
 !FlyByHelp methodsFor:'queries'!
 
+currentlyShownView
+    ^ currentHelpView
+!
+
 toolTipFollowsMouse
     ^ false
 ! !
@@ -352,7 +362,7 @@
 !FlyByHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.30 2009-05-20 10:48:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.31 2009-07-09 12:59:47 cg Exp $'
 ! !
 
 FlyByHelp initialize!