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 |
58 |distributor| |
58 |distributor expiration| |
59 |
59 |
60 distributor := ''. |
|
61 distributor := Smalltalk distributorString. |
60 distributor := Smalltalk distributorString. |
62 distributor notEmpty ifTrue:[ |
61 distributor notEmpty ifTrue:[ |
63 distributor := 'Distributed by: ' , distributor |
62 distributor := 'Distributor ...... ', distributor |
|
63 ]. |
|
64 expiration := Smalltalk expirationTime. |
|
65 expiration notNil ifTrue:[ |
|
66 expiration := 'Expires ........... ', expiration printString |
|
67 ] ifFalse:[ |
|
68 expiration := ''. |
64 ]. |
69 ]. |
65 |
70 |
66 ^ |
71 ^ |
67 'SmallTalk/X |
72 'SmallTalk/X |
68 |
73 |
69 Version ......... ' , Smalltalk versionString , '.' , Smalltalk releaseNr printString , |
74 Version ......... ', Smalltalk versionString , '.' , Smalltalk releaseNr printString , |
70 ' (' , Smalltalk versionDate printString , ') |
75 ' (' , Smalltalk versionDate printString , ') |
71 ' , distributor , ' |
76 ', distributor, ' |
72 Configuration ... ' , Smalltalk configuration , ' |
77 ', expiration , ' |
73 Running on ...... ' , OperatingSystem getHostName , ' |
78 Release ID ...... ', Smalltalk releaseIdentification, ' |
|
79 Configuration ... ', Smalltalk configuration, ' |
|
80 Running on ...... ', OperatingSystem getHostName, ' |
74 |
81 |
75 ' , Smalltalk copyrightString , ' |
82 ' , Smalltalk copyrightString , ' |
76 |
83 |
77 ' |
84 ' |
78 |
85 |
79 "Modified: 19.8.1996 / 18:09:39 / cg" |
86 "Modified: 19.8.1996 / 18:09:39 / cg" |
|
87 "Modified: 6.9.1996 / 10:11:08 / stefan" |
80 ! |
88 ! |
81 |
89 |
82 defaultIcon |
90 defaultIcon |
83 "return a smalltalk/X icon. |
91 "return a smalltalk/X icon. |
84 Can be redefined in custom subclasses." |
92 Can be redefined in custom subclasses." |
138 |
146 |
139 show |
147 show |
140 "show the box. |
148 "show the box. |
141 Redefined to automatically hide myself after some time" |
149 Redefined to automatically hide myself after some time" |
142 |
150 |
143 self autoHideAfter:10 with:[]. |
151 self autoHideAfter:15 with:[]. |
144 super showAtCenter. |
152 super showAtCenter. |
145 |
153 |
146 " |
154 " |
147 AboutBox new show |
155 AboutBox new show |
148 " |
156 " |
149 |
157 |
150 "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" |
151 ! ! |
160 ! ! |
152 |
161 |
153 !AboutBox class methodsFor:'documentation'! |
162 !AboutBox class methodsFor:'documentation'! |
154 |
163 |
155 version |
164 version |
156 ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.17 1996-08-19 16:10:01 cg Exp $' |
165 ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.18 1996-09-06 09:09:05 stefan Exp $' |
157 ! ! |
166 ! ! |