equal
deleted
inserted
replaced
93 buttonPress:button x:x y:y view:aView |
93 buttonPress:button x:x y:y view:aView |
94 aView == currentHelpView ifTrue:[ |
94 aView == currentHelpView ifTrue:[ |
95 self hideHelp. |
95 self hideHelp. |
96 ^ true |
96 ^ true |
97 ]. |
97 ]. |
98 |
|
99 ^ super buttonPress:button x:x y:y view:aView |
98 ^ super buttonPress:button x:x y:y view:aView |
100 ! |
99 ! |
101 |
100 |
102 keyPress:key x:x y:y view:aView |
101 keyPress:key x:x y:y view:aView |
103 aView == currentHelpView ifTrue:[ |
102 aView == currentHelpView ifTrue:[ |
104 key == #Escape ifTrue:[ |
103 key == #Escape ifTrue:[ |
105 self hideHelp. |
104 self hideHelp. |
106 ^ true |
105 ^ true |
107 ]. |
106 ]. |
108 ]. |
107 ]. |
109 ^ false |
108 ^ super keyPress:key x:x y:y view:aView |
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. |
380 ! ! |
379 ! ! |
381 |
380 |
382 !FlyByHelp class methodsFor:'documentation'! |
381 !FlyByHelp class methodsFor:'documentation'! |
383 |
382 |
384 version |
383 version |
385 ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.37 2009-11-02 14:54:16 cg Exp $' |
384 ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.38 2009-11-11 19:29:18 cg Exp $' |
386 ! |
385 ! |
387 |
386 |
388 version_CVS |
387 version_CVS |
389 ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.37 2009-11-02 14:54:16 cg Exp $' |
388 ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.38 2009-11-11 19:29:18 cg Exp $' |
390 ! ! |
389 ! ! |
391 |
390 |
392 FlyByHelp initialize! |
391 FlyByHelp initialize! |