equal
deleted
inserted
replaced
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libview2' }" |
12 "{ Package: 'stx:libview2' }" |
13 |
13 |
14 View subclass:#ActiveHelpView |
14 View subclass:#ActiveHelpView |
15 instanceVariableNames:'myView shapeStyle' |
15 instanceVariableNames:'myView shapeStyle controllingHelpListener' |
16 classVariableNames:'' |
16 classVariableNames:'' |
17 poolDictionaries:'' |
17 poolDictionaries:'' |
18 category:'Interface-Help' |
18 category:'Interface-Help' |
19 ! |
19 ! |
20 |
20 |
145 self resizeToFit |
145 self resizeToFit |
146 |
146 |
147 "Modified: 27.4.1996 / 15:14:56 / cg" |
147 "Modified: 27.4.1996 / 15:14:56 / cg" |
148 ! |
148 ! |
149 |
149 |
|
150 controllingHelpListener:something |
|
151 controllingHelpListener := something. |
|
152 ! |
|
153 |
150 shapeStyle:aStyleSymbol |
154 shapeStyle:aStyleSymbol |
151 "set the shapeStyle. |
155 "set the shapeStyle. |
152 Currently, only nil and #cartoon are supported" |
156 Currently, only nil and #cartoon are supported" |
153 |
157 |
154 shapeStyle := aStyleSymbol. |
158 shapeStyle := aStyleSymbol. |
177 self addSubView:aView. |
181 self addSubView:aView. |
178 myView := aView. |
182 myView := aView. |
179 myView borderWidth:0 |
183 myView borderWidth:0 |
180 |
184 |
181 "Modified: 27.4.1996 / 15:16:46 / cg" |
185 "Modified: 27.4.1996 / 15:16:46 / cg" |
|
186 ! ! |
|
187 |
|
188 !ActiveHelpView methodsFor:'event handling'! |
|
189 |
|
190 keyPress:key x:x y:y |
|
191 controllingHelpListener hideHelp |
182 ! ! |
192 ! ! |
183 |
193 |
184 !ActiveHelpView methodsFor:'initialization'! |
194 !ActiveHelpView methodsFor:'initialization'! |
185 |
195 |
186 initStyle |
196 initStyle |
365 "return true - I am a popUp type of view (no decoration, pop-to-top)" |
375 "return true - I am a popUp type of view (no decoration, pop-to-top)" |
366 |
376 |
367 ^ true |
377 ^ true |
368 |
378 |
369 "Modified: 12.5.1996 / 21:58:12 / cg" |
379 "Modified: 12.5.1996 / 21:58:12 / cg" |
|
380 ! |
|
381 |
|
382 wantsFocusWithButtonPress |
|
383 ^ false |
370 ! ! |
384 ! ! |
371 |
385 |
372 !ActiveHelpView class methodsFor:'documentation'! |
386 !ActiveHelpView class methodsFor:'documentation'! |
373 |
387 |
374 version |
388 version |
375 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.39 2013-09-16 10:56:18 cg Exp $' |
389 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.40 2013-09-19 16:29:21 cg Exp $' |
376 ! |
390 ! |
377 |
391 |
378 version_CVS |
392 version_CVS |
379 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.39 2013-09-16 10:56:18 cg Exp $' |
393 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.40 2013-09-19 16:29:21 cg Exp $' |
380 ! ! |
394 ! ! |
381 |
395 |