Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
changed: #initiateHelpFor:at:now:
authorClaus Gittinger <cg@exept.de>
Sat, 24 Oct 2009 14:14:11 +0200
changeset 2774 7894ba397774
parent 2773 eaec2e45bd8d
child 2775 3d2b7f1ffc9b
changed: #initiateHelpFor:at:now: only one activehelp process at any time
FlyByHelp.st file | annotate | diff | comparison | revisions 
--- a/FlyByHelp.st	Fri Oct 23 17:23:33 2009 +0200
+++ b/FlyByHelp.st	Sat Oct 24 14:14:11 2009 +0200
@@ -225,9 +225,12 @@
             showProcess := 
                 [
                     Delay waitForSeconds:delayTime.
-                    showProcess := nil.
-                    aView device anyButtonPressed ifFalse:[
-                        self showHelp:text for:aView
+                    [
+                        aView device anyButtonPressed ifFalse:[
+                            self showHelp:text for:aView
+                        ]
+                    ] ensure:[
+                        showProcess := nil.
                     ]
                 ] forkAt:(Processor userSchedulingPriority + 1).
         ] ifFalse:[
@@ -375,11 +378,11 @@
 !FlyByHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.32 2009-10-01 07:53:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.33 2009-10-24 12:14:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.32 2009-10-01 07:53:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.33 2009-10-24 12:14:11 cg Exp $'
 ! !
 
 FlyByHelp initialize!
hg/stx-libview2