equal
deleted
inserted
replaced
1 " |
1 " |
2 COPYRIGHT (c) 1995 by Claus Gittinger |
2 COPYRIGHT (c) 1995 by Claus Gittinger |
3 All Rights Reserved |
3 All Rights Reserved |
4 |
4 |
5 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
6 only in accordance with the terms of that license and with the |
6 only in accordance with the terms of that license and with the |
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
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 controllingHelpListener' |
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 |
21 !ActiveHelpView class methodsFor:'documentation'! |
21 !ActiveHelpView class methodsFor:'documentation'! |
22 |
22 |
23 copyright |
23 copyright |
24 " |
24 " |
25 COPYRIGHT (c) 1995 by Claus Gittinger |
25 COPYRIGHT (c) 1995 by Claus Gittinger |
26 All Rights Reserved |
26 All Rights Reserved |
27 |
27 |
28 This software is furnished under a license and may be used |
28 This software is furnished under a license and may be used |
29 only in accordance with the terms of that license and with the |
29 only in accordance with the terms of that license and with the |
30 inclusion of the above copyright notice. This software may not |
30 inclusion of the above copyright notice. This software may not |
31 be provided or otherwise made available to, or used by, any |
31 be provided or otherwise made available to, or used by, any |
92 |
92 |
93 helpView := self onDevice:aDevice. |
93 helpView := self onDevice:aDevice. |
94 (someText startsWith:'<HTML>') ifTrue:[ |
94 (someText startsWith:'<HTML>') ifTrue:[ |
95 textView := HTMLView onDevice:aDevice. |
95 textView := HTMLView onDevice:aDevice. |
96 textView level:0. |
96 textView level:0. |
|
97 textView extent:(600@400). |
97 textView contents:someText. |
98 textView contents:someText. |
98 textView preferredExtent:(textView extentOfContents + 20 min:(Display extent * 2 // 3)). |
99 textView preferredExtent:(textView extentOfContents + 20 min:(Display extent * 2 // 3)). |
|
100 textView extent:(textView extentOfContents + 20 min:(Display extent * 2 // 3)). |
|
101 textView contents:someText. |
99 ^ helpView withView:textView |
102 ^ helpView withView:textView |
100 ] ifFalse:[ |
103 ] ifFalse:[ |
101 textView := Label onDevice:aDevice. |
104 textView := Label onDevice:aDevice. |
102 textView font:(helpView font onDevice:aDevice). |
105 textView font:(helpView font onDevice:aDevice). |
103 ^ (helpView withView:textView) contents:someText |
106 ^ (helpView withView:textView) contents:someText |
397 ! ! |
400 ! ! |
398 |
401 |
399 !ActiveHelpView class methodsFor:'documentation'! |
402 !ActiveHelpView class methodsFor:'documentation'! |
400 |
403 |
401 version |
404 version |
402 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.45 2014-03-19 10:05:12 stefan Exp $' |
405 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.46 2014-03-23 01:18:42 cg Exp $' |
403 ! |
406 ! |
404 |
407 |
405 version_CVS |
408 version_CVS |
406 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.45 2014-03-19 10:05:12 stefan Exp $' |
409 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.46 2014-03-23 01:18:42 cg Exp $' |
407 ! ! |
410 ! ! |
408 |
411 |