equal
deleted
inserted
replaced
86 ]. |
86 ]. |
87 |
87 |
88 "/ don't start tooltip, if this view is not active |
88 "/ don't start tooltip, if this view is not active |
89 "/ does not work, because motion events are reported for the current focus-view, |
89 "/ does not work, because motion events are reported for the current focus-view, |
90 "/ which is always active. Must check after we have determined the view under the pointer |
90 "/ which is always active. Must check after we have determined the view under the pointer |
91 "/ aView topView isActive ifFalse:[^ false]. |
91 "/ aView topView isActive ifFalse:[^ false]. |
92 |
92 |
93 ^ super buttonMotion:buttonAndModifierState x:x y:y view:aView |
93 ^ super buttonMotion:buttonAndModifierState x:x y:y view:aView |
94 ! |
94 ! |
95 |
95 |
96 buttonPress:button x:x y:y view:aView |
96 buttonPress:button x:x y:y view:aView |
253 "/ do not allow for more than 200 ms to be spent in the |
253 "/ do not allow for more than 200 ms to be spent in the |
254 "/ helpText gatherer (the codeView parses the code for the variable under the cursor) |
254 "/ helpText gatherer (the codeView parses the code for the variable under the cursor) |
255 [ |
255 [ |
256 Error handle:[:ex | |
256 Error handle:[:ex | |
257 ('FlyByhelp [warning]: error while asking for helpText: ',ex description) errorPrintCR. |
257 ('FlyByhelp [warning]: error while asking for helpText: ',ex description) errorPrintCR. |
|
258 Transcript showCR:'-------------------------'. |
258 ex suspendedContext fullPrintAllOn:Transcript. |
259 ex suspendedContext fullPrintAllOn:Transcript. |
259 "/ self halt. |
260 "/ self halt. |
260 ] do:[ |
261 ] do:[ |
261 text := self helpTextFor:aView at:aPointOrNil. |
262 text := self helpTextFor:aView at:aPointOrNil. |
262 ]. |
263 ]. |
303 currentlyShownView |
304 currentlyShownView |
304 ^ currentHelpView |
305 ^ currentHelpView |
305 ! |
306 ! |
306 |
307 |
307 toolTipFollowsMouse |
308 toolTipFollowsMouse |
|
309 "if true, the tooltip-window moves with the pointer |
|
310 so that it stays away from (does not cover) the mouse pointer" |
|
311 |
308 ^ false |
312 ^ false |
309 ! ! |
313 ! ! |
310 |
314 |
311 !FlyByHelp methodsFor:'show & hide help'! |
315 !FlyByHelp methodsFor:'show & hide help'! |
312 |
316 |