equal
deleted
inserted
replaced
15 classVariableNames:'RequestBitmap' |
15 classVariableNames:'RequestBitmap' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Views-DialogBoxes' |
17 category:'Views-DialogBoxes' |
18 ! |
18 ! |
19 |
19 |
20 !YesNoBox class methodsFor:'documentation'! |
20 !YesNoBox class methodsFor:'documentation'! |
21 |
21 |
22 copyright |
22 copyright |
23 " |
23 " |
24 COPYRIGHT (c) 1989 by Claus Gittinger |
24 COPYRIGHT (c) 1989 by Claus Gittinger |
25 All Rights Reserved |
25 All Rights Reserved |
146 ] |
146 ] |
147 [exEnd] |
147 [exEnd] |
148 " |
148 " |
149 ! ! |
149 ! ! |
150 |
150 |
151 !YesNoBox class methodsFor:'instance creation'! |
151 !YesNoBox class methodsFor:'instance creation'! |
152 |
152 |
153 title:t yesText:yesString noText:noString |
153 title:t yesText:yesString noText:noString |
154 "return a new YesNoBox with title, and buttonLabels yesString/noString" |
154 "return a new YesNoBox with title, and buttonLabels yesString/noString" |
155 |
155 |
156 ^ (self new) title:t yesText:yesString noText:noString |
156 ^ (self new) title:t yesText:yesString noText:noString |
157 |
157 |
158 "Modified: 23.4.1996 / 00:12:48 / cg" |
158 "Modified: 23.4.1996 / 00:12:48 / cg" |
159 ! ! |
159 ! ! |
160 |
160 |
161 !YesNoBox class methodsFor:'icon bitmap'! |
161 !YesNoBox class methodsFor:'icon bitmap'! |
162 |
162 |
163 iconBitmap |
163 iconBitmap |
164 "return the bitmap shown as icon in my instances" |
164 "return the bitmap shown as icon in my instances" |
165 |
165 |
166 RequestBitmap isNil ifTrue:[ |
166 RequestBitmap isNil ifTrue:[ |
170 ]. |
170 ]. |
171 ]. |
171 ]. |
172 ^ RequestBitmap |
172 ^ RequestBitmap |
173 ! ! |
173 ! ! |
174 |
174 |
175 !YesNoBox class methodsFor:'styles'! |
175 !YesNoBox class methodsFor:'styles'! |
176 |
176 |
177 updateStyleCache |
177 updateStyleCache |
178 "extract values from the styleSheet and cache them in class variables" |
178 "extract values from the styleSheet and cache them in class variables" |
179 |
179 |
180 <resource: #style (#requestBoxIcon)> |
180 <resource: #style (#requestBoxIcon)> |
295 label := resources string:'Choose'. |
295 label := resources string:'Choose'. |
296 |
296 |
297 buttonPanel horizontalLayout:#fitSpace. "/ looks better; should it come from the StyleSheet ? |
297 buttonPanel horizontalLayout:#fitSpace. "/ looks better; should it come from the StyleSheet ? |
298 |
298 |
299 textLabel label:'please Confirm'. |
299 textLabel label:'please Confirm'. |
300 okButton logo:(resources at:'yes'). |
300 okButton label:(resources at:'yes'). |
301 |
301 |
302 abortButton := Button abortButton. |
302 abortButton := Button abortButton. |
303 buttonPanel addSubView:abortButton before:okButton. |
303 buttonPanel addSubView:abortButton before:okButton. |
304 abortButton logo:(resources at:'no'). |
304 abortButton label:(resources at:'no'). |
305 abortButton height:(okButton height). |
305 abortButton height:(okButton height). |
306 abortButton model:self; change:#noPressed |
306 abortButton model:self; change:#noPressed |
|
307 |
|
308 "Modified: 28.10.1996 / 09:57:36 / cg" |
307 ! ! |
309 ! ! |
308 |
310 |
309 !YesNoBox methodsFor:'queries'! |
311 !YesNoBox methodsFor:'queries'! |
310 |
312 |
311 preferredExtent |
313 preferredExtent |
385 |
387 |
386 abortButton turnOffWithoutRedraw. |
388 abortButton turnOffWithoutRedraw. |
387 self hideAndEvaluate:abortAction |
389 self hideAndEvaluate:abortAction |
388 ! ! |
390 ! ! |
389 |
391 |
390 !YesNoBox class methodsFor:'documentation'! |
392 !YesNoBox class methodsFor:'documentation'! |
391 |
393 |
392 version |
394 version |
393 ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.32 1996-07-19 18:47:29 cg Exp $' |
395 ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.33 1996-10-28 08:58:17 cg Exp $' |
394 ! ! |
396 ! ! |