equal
deleted
inserted
replaced
69 ! ! |
69 ! ! |
70 |
70 |
71 !FlyByWindowInformation methodsFor:'event handling'! |
71 !FlyByWindowInformation methodsFor:'event handling'! |
72 |
72 |
73 buttonMotion:buttonAndModifierState x:x y:y view:aView |
73 buttonMotion:buttonAndModifierState x:x y:y view:aView |
74 finished == true ifTrue:[self halt]. |
74 finished == true ifTrue:[^ self]. |
|
75 |
75 super buttonMotion:buttonAndModifierState x:x y:y view:aView. |
76 super buttonMotion:buttonAndModifierState x:x y:y view:aView. |
76 ^ true |
77 ^ true |
77 ! |
78 ! |
78 |
79 |
79 buttonPress:button x:x y:y view:aView |
80 buttonPress:button x:x y:y view:aView |
81 ^ true |
82 ^ true |
82 ! |
83 ! |
83 |
84 |
84 handleMouseIn:aView x:x y:y |
85 handleMouseIn:aView x:x y:y |
85 |
86 |
86 finished == true ifTrue:[self halt]. |
87 finished == true ifTrue:[^ self]. |
87 super handleMouseIn:aView x:x y:y |
88 super handleMouseIn:aView x:x y:y |
88 ! |
89 ! |
89 |
90 |
90 keyPress:key x:x y:y view:aView |
91 keyPress:key x:x y:y view:aView |
91 |obj action lcKey| |
92 |obj action lcKey| |
239 ! ! |
240 ! ! |
240 |
241 |
241 !FlyByWindowInformation methodsFor:'start & stop'! |
242 !FlyByWindowInformation methodsFor:'start & stop'! |
242 |
243 |
243 initiateHelpFor:aView at:aPointOrNil |
244 initiateHelpFor:aView at:aPointOrNil |
244 finished == true ifTrue:[self halt]. |
245 finished == true ifTrue:[^ self]. |
245 super initiateHelpFor:aView at:aPointOrNil |
246 super initiateHelpFor:aView at:aPointOrNil |
246 ! |
247 ! |
247 |
248 |
248 initiateHelpFor:aView at:aPointOrNil now:showItNow |
249 initiateHelpFor:aView at:aPointOrNil now:showItNow |
249 finished == true ifTrue:[self halt]. |
250 finished == true ifTrue:[^ self]. |
250 super initiateHelpFor:aView at:aPointOrNil now:showItNow |
251 super initiateHelpFor:aView at:aPointOrNil now:showItNow |
251 ! |
252 ! |
252 |
253 |
253 start |
254 start |
254 |l| |
255 |l| |
255 |
256 |
256 finished == true ifTrue:[self halt]. |
257 finished == true ifTrue:[^ self]. |
|
258 |
257 l := FlyByHelp currentHelpListener. |
259 l := FlyByHelp currentHelpListener. |
258 l notNil ifTrue:[ |
260 l notNil ifTrue:[ |
259 FlyByHelp stop. |
261 FlyByHelp stop. |
260 cleanupAction := [ FlyByHelp start ]. |
262 cleanupAction := [ FlyByHelp start ]. |
261 ]. |
263 ]. |