equal
deleted
inserted
replaced
87 ! |
87 ! |
88 |
88 |
89 keyPress:key x:x y:y view:aView |
89 keyPress:key x:x y:y view:aView |
90 currentHelpView notNil ifTrue:[ |
90 currentHelpView notNil ifTrue:[ |
91 "/ generate a line suitable for the resources file |
91 "/ generate a line suitable for the resources file |
92 key == #'Ctrl' ifTrue:[ |
92 key == $§ ifTrue:[ |
93 aView setClipboardText:(lastHelpText storeString , ' ' , lastHelpText storeString). |
93 aView setClipboardText:(lastHelpText storeString , ' ' , lastHelpText storeString). |
94 self hideHelp. |
94 self hideHelp. |
95 ^ true |
95 ^ true |
96 ]. |
96 ]. |
97 true "aView == currentHelpView" ifTrue:[ |
97 true "aView == currentHelpView" ifTrue:[ |
101 ]. |
101 ]. |
102 ]. |
102 ]. |
103 ]. |
103 ]. |
104 ^ super keyPress:key x:x y:y view:aView |
104 ^ super keyPress:key x:x y:y view:aView |
105 |
105 |
106 "Modified: / 28-01-2011 / 13:21:58 / cg" |
106 "Modified: / 13-07-2011 / 15:13:43 / cg" |
107 ! |
107 ! |
108 |
108 |
109 mouseWheelMotion:state x:x y:y amount:amount deltaTime:dTime view:aView |
109 mouseWheelMotion:state x:x y:y amount:amount deltaTime:dTime view:aView |
110 currentHelpView notNil ifTrue:[ |
110 currentHelpView notNil ifTrue:[ |
111 self handleMouseIn:aView x:x y:y. |
111 self handleMouseIn:aView x:x y:y. |
377 ! ! |
377 ! ! |
378 |
378 |
379 !FlyByHelp class methodsFor:'documentation'! |
379 !FlyByHelp class methodsFor:'documentation'! |
380 |
380 |
381 version_CVS |
381 version_CVS |
382 ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.48 2011-07-06 16:07:44 cg Exp $' |
382 ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.49 2011-07-13 13:15:21 cg Exp $' |
383 ! ! |
383 ! ! |