equal
deleted
inserted
replaced
15 classVariableNames:'CachedIcon' |
15 classVariableNames:'CachedIcon' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Views-DialogBoxes' |
17 category:'Views-DialogBoxes' |
18 ! |
18 ! |
19 |
19 |
20 !AboutBox class methodsFor:'documentation'! |
20 !AboutBox class methodsFor:'documentation'! |
21 |
21 |
22 copyright |
22 copyright |
23 " |
23 " |
24 COPYRIGHT (c) 1995 by Claus Gittinger |
24 COPYRIGHT (c) 1995 by Claus Gittinger |
25 All Rights Reserved |
25 All Rights Reserved |
47 |
47 |
48 AboutBox new showAtPointer |
48 AboutBox new showAtPointer |
49 " |
49 " |
50 ! ! |
50 ! ! |
51 |
51 |
52 !AboutBox class methodsFor:'defaults'! |
52 !AboutBox class methodsFor:'defaults'! |
53 |
53 |
54 aboutText |
54 aboutText |
55 "return a string to be shown in the box. |
55 "return a string to be shown in the box. |
56 Can be redefined in custom subclasses." |
56 Can be redefined in custom subclasses." |
57 |
57 |
90 defaultIcon |
90 defaultIcon |
91 "return a smalltalk/X icon. |
91 "return a smalltalk/X icon. |
92 Can be redefined in custom subclasses." |
92 Can be redefined in custom subclasses." |
93 |
93 |
94 CachedIcon isNil ifTrue:[ |
94 CachedIcon isNil ifTrue:[ |
95 CachedIcon := Form fromFile:'SmalltalkX.xbm' resolution:100. |
95 CachedIcon := Image fromFile:'bitmaps/SmalltalkX.xbm' resolution:100. |
96 ]. |
96 ]. |
97 ^ CachedIcon |
97 ^ CachedIcon |
98 |
98 |
99 "Modified: 23.4.1996 / 17:09:48 / cg" |
99 "Modified: 23.4.1996 / 17:09:48 / cg" |
100 ! |
100 ! |
157 |
157 |
158 "Modified: 23.4.1996 / 17:10:03 / cg" |
158 "Modified: 23.4.1996 / 17:10:03 / cg" |
159 "Modified: 6.9.1996 / 09:47:10 / stefan" |
159 "Modified: 6.9.1996 / 09:47:10 / stefan" |
160 ! ! |
160 ! ! |
161 |
161 |
162 !AboutBox class methodsFor:'documentation'! |
162 !AboutBox class methodsFor:'documentation'! |
163 |
163 |
164 version |
164 version |
165 ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.18 1996-09-06 09:09:05 stefan Exp $' |
165 ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.19 1996-12-20 11:15:13 cg Exp $' |
166 ! ! |
166 ! ! |