equal
deleted
inserted
replaced
89 "Modified: / 23-12-2011 / 20:37:28 / cg" |
89 "Modified: / 23-12-2011 / 20:37:28 / cg" |
90 ! |
90 ! |
91 |
91 |
92 keyPress:key x:x y:y view:aView |
92 keyPress:key x:x y:y view:aView |
93 currentHelpView notNil ifTrue:[ |
93 currentHelpView notNil ifTrue:[ |
94 "/ generate a line suitable for the resources file |
|
95 key == $§ ifTrue:[ |
94 key == $§ ifTrue:[ |
|
95 "/ generate a line suitable for the resources file (a null translation) |
|
96 "/ into the clipboard; makes it easy to add missing translations to a .rs file. |
96 aView setClipboardText:(lastHelpText storeString , ' ' , lastHelpText storeString). |
97 aView setClipboardText:(lastHelpText storeString , ' ' , lastHelpText storeString). |
97 self hideHelp. |
98 self hideHelp. |
98 ^ true |
99 ^ true |
99 ]. |
100 ]. |
100 true "aView == currentHelpView" ifTrue:[ |
101 key == #Escape ifTrue:[ |
101 key == #Escape ifTrue:[ |
102 self hideHelp. |
102 self hideHelp. |
103 ^ true |
103 ^ true |
|
104 ]. |
|
105 ]. |
104 ]. |
106 ]. |
105 ]. |
107 ^ super keyPress:key x:x y:y view:aView |
106 ^ super keyPress:key x:x y:y view:aView |
108 |
107 |
109 "Modified: / 13-07-2011 / 15:13:43 / cg" |
108 "Modified (format): / 25-12-2011 / 10:25:23 / cg" |
110 ! |
109 ! |
111 |
110 |
112 mouseWheelMotion:state x:x y:y amount:amount deltaTime:dTime view:aView |
111 mouseWheelMotion:state x:x y:y amount:amount deltaTime:dTime view:aView |
113 currentHelpView notNil ifTrue:[ |
112 currentHelpView notNil ifTrue:[ |
114 self handleMouseIn:aView x:x y:y. |
113 self handleMouseIn:aView x:x y:y. |
379 "Created: 28.6.1997 / 14:03:17 / cg" |
378 "Created: 28.6.1997 / 14:03:17 / cg" |
380 ! ! |
379 ! ! |
381 |
380 |
382 !FlyByHelp class methodsFor:'documentation'! |
381 !FlyByHelp class methodsFor:'documentation'! |
383 |
382 |
|
383 version |
|
384 ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.51 2011-12-25 09:25:41 cg Exp $' |
|
385 ! |
|
386 |
384 version_CVS |
387 version_CVS |
385 ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.50 2011-12-25 09:23:49 cg Exp $' |
388 ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.51 2011-12-25 09:25:41 cg Exp $' |
386 ! ! |
389 ! ! |