#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Fri, 28 Oct 2016 17:54:11 +0200
changeset 3766 4d3c0206456a
parent 3765 53f3e400ffce
child 3767 d88339439fb4
#BUGFIX by cg class: FlyByHelp changed: #initiateHelpFor:at:now: null check
FlyByHelp.st
--- a/FlyByHelp.st	Wed Oct 26 17:22:04 2016 +0200
+++ b/FlyByHelp.st	Fri Oct 28 17:54:11 2016 +0200
@@ -288,10 +288,12 @@
                 [
                     Delay waitForSeconds:delayTime.
                     [
-                        aView device anyButtonPressed ifFalse:[
-                            showProcess := nil.
-                            self showHelp:text for:aView
-                        ]
+                        aView device notNil ifTrue:[    
+                            aView device anyButtonPressed ifFalse:[
+                                showProcess := nil.
+                                self showHelp:text for:aView
+                            ]
+                        ].
                     ] ensure:[
                         showProcess := nil.
                     ]