equal
deleted
inserted
replaced
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 InfoBox subclass:#AboutBox |
13 InfoBox subclass:#AboutBox |
14 instanceVariableNames:'' |
14 instanceVariableNames:'' |
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 |
81 CachedIcon := Form fromFile:'SmalltalkX.xbm' resolution:100. |
81 CachedIcon := Form fromFile:'SmalltalkX.xbm' resolution:100. |
82 ]. |
82 ]. |
83 ^ CachedIcon |
83 ^ CachedIcon |
84 ! ! |
84 ! ! |
85 |
85 |
|
86 !AboutBox methodsFor:'accessing'! |
|
87 |
|
88 backgroundColor:aColor |
|
89 |lbl| |
|
90 |
|
91 self withAllSubViewsDo:[:s | s viewBackground:aColor]. |
|
92 |
|
93 (lbl := self formLabel) viewBackground:aColor. |
|
94 lbl backgroundColor:aColor. |
|
95 (lbl := self textLabel) viewBackground:aColor. |
|
96 lbl backgroundColor:aColor. |
|
97 |
|
98 "Created: 24.3.1996 / 18:19:35 / cg" |
|
99 ! ! |
|
100 |
86 !AboutBox methodsFor:'initialization'! |
101 !AboutBox methodsFor:'initialization'! |
87 |
102 |
88 initialize |
103 initialize |
89 |dark green lbl| |
104 |dark green lbl| |
90 |
105 |
98 ] ifFalse:[ |
113 ] ifFalse:[ |
99 green := Color white. |
114 green := Color white. |
100 dark := Color black. |
115 dark := Color black. |
101 ]. |
116 ]. |
102 |
117 |
103 self withAllSubViewsDo:[:s | s viewBackground:dark]. |
118 self backgroundColor:dark. |
104 |
|
105 self form:(self class defaultIcon). |
|
106 (lbl := self formLabel) viewBackground:dark. |
|
107 lbl foregroundColor:green backgroundColor:dark. |
|
108 (lbl := self textLabel) viewBackground:dark. |
|
109 lbl foregroundColor:White backgroundColor:dark. |
|
110 self title:(self class aboutText). |
|
111 self okText:'close'. |
|
112 |
119 |
113 "Created: 7.12.1995 / 17:03:09 / cg" |
120 "Created: 7.12.1995 / 17:03:09 / cg" |
|
121 "Modified: 24.3.1996 / 18:58:36 / cg" |
114 ! ! |
122 ! ! |
115 |
123 |
116 !AboutBox methodsFor:'show / hide'! |
124 !AboutBox methodsFor:'show / hide'! |
117 |
125 |
118 show |
126 show |
127 ! ! |
135 ! ! |
128 |
136 |
129 !AboutBox class methodsFor:'documentation'! |
137 !AboutBox class methodsFor:'documentation'! |
130 |
138 |
131 version |
139 version |
132 ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.13 1995-12-07 16:03:22 cg Exp $' |
140 ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.14 1996-03-24 17:59:04 cg Exp $' |
133 ! ! |
141 ! ! |