author | Claus Gittinger <cg@exept.de> |
Fri, 28 Oct 2016 17:54:11 +0200 | |
changeset 3766 | 4d3c0206456a |
parent 3765 | 53f3e400ffce |
child 3767 | d88339439fb4 |
FlyByHelp.st | file | annotate | diff | comparison | revisions |
--- 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. ]