--- a/FlyByHelp.st	Fri May 16 09:49:59 2014 +0200
+++ b/FlyByHelp.st	Fri May 16 09:50:17 2014 +0200
@@ -344,7 +344,8 @@
     "show the help text for aView"
 
     |wg applicationOrNil org p v dev helpTextShown textLines
-     helpViewWidth helpViewHeight usableWidth monitorBounds usableHeight|
+     helpViewWidth helpViewHeight usableWidth monitorBounds usableHeight
+     showTime|
 
     "/ thisContext fullPrintAllOn:Transcript.
     (wg := view windowGroup) notNil ifTrue:[
@@ -415,10 +416,11 @@
     currentHelpView := v.
     currentView := view.
 
-    self showTime notNil ifTrue:[
+    showTime := self showTime.
+    (showTime notNil and:[showTime > 0]) ifTrue:[
         closeProcess := [
                 [
-                    (Delay forSeconds:self showTime) wait.
+                    (Delay forSeconds:showTime) wait.
                     [
                         |v|
                         (v := currentHelpView) notNil ifTrue:[
@@ -453,10 +455,10 @@
 !FlyByHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.66 2014-03-28 13:24:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.67 2014-05-16 07:50:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.66 2014-03-28 13:24:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.67 2014-05-16 07:50:17 cg Exp $'
 ! !