equal
deleted
inserted
replaced
225 showProcess := |
225 showProcess := |
226 [ |
226 [ |
227 Delay waitForSeconds:delayTime. |
227 Delay waitForSeconds:delayTime. |
228 [ |
228 [ |
229 aView device anyButtonPressed ifFalse:[ |
229 aView device anyButtonPressed ifFalse:[ |
|
230 showProcess := nil. |
230 self showHelp:text for:aView |
231 self showHelp:text for:aView |
231 ] |
232 ] |
232 ] ensure:[ |
233 ] ensure:[ |
233 showProcess := nil. |
234 showProcess := nil. |
234 ] |
235 ] |
376 ! ! |
377 ! ! |
377 |
378 |
378 !FlyByHelp class methodsFor:'documentation'! |
379 !FlyByHelp class methodsFor:'documentation'! |
379 |
380 |
380 version |
381 version |
381 ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.33 2009-10-24 12:14:11 cg Exp $' |
382 ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.34 2009-10-25 00:21:08 cg Exp $' |
382 ! |
383 ! |
383 |
384 |
384 version_CVS |
385 version_CVS |
385 ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.33 2009-10-24 12:14:11 cg Exp $' |
386 ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.34 2009-10-25 00:21:08 cg Exp $' |
386 ! ! |
387 ! ! |
387 |
388 |
388 FlyByHelp initialize! |
389 FlyByHelp initialize! |