--- a/FlyByHelp.st	Mon Sep 09 18:25:41 2013 +0200
+++ b/FlyByHelp.st	Mon Sep 09 18:26:08 2013 +0200
@@ -359,7 +359,11 @@
 
     dev := view graphicsDevice.
 
-    v := ActiveHelpView for:aHelpText onDevice:dev.
+    (wg notNil and:[wg application notNil]) ifTrue:[
+        v := wg application activeHelpViewFor:aHelpText onDevice:dev
+    ] ifFalse:[
+        v := ActiveHelpView for:aHelpText onDevice:dev.
+    ].
     helpViewWidth := v width.
     helpViewHeight := v height.
 
@@ -423,10 +427,10 @@
 !FlyByHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.56 2013-09-03 15:23:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.57 2013-09-09 16:26:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.56 2013-09-03 15:23:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.57 2013-09-09 16:26:08 cg Exp $'
 ! !