equal
deleted
inserted
replaced
318 ! ! |
318 ! ! |
319 |
319 |
320 !YesNoBox methodsFor:'initialization'! |
320 !YesNoBox methodsFor:'initialization'! |
321 |
321 |
322 initialize |
322 initialize |
|
323 <resource: #style (#'dialogBox.okAtLeft')> |
|
324 |
323 super initialize. |
325 super initialize. |
324 |
326 |
325 label := resources string:'Choose'. |
327 label := resources string:'Choose'. |
326 |
328 |
327 buttonPanel horizontalLayout:#fitSpace. "/ looks better; should it come from the StyleSheet ? |
329 buttonPanel horizontalLayout:#fitSpace. "/ looks better; should it come from the StyleSheet ? |
328 |
330 |
329 textLabel label:(resources string:'please confirm'). |
331 textLabel label:(resources string:'please confirm'). |
330 okButton label:(resources string:'yes'). |
332 okButton label:(resources string:'yes'). |
331 |
333 |
332 abortButton := Button abortButton. |
334 abortButton := Button abortButton. |
333 buttonPanel addSubView:abortButton before:okButton. |
335 (styleSheet at:'dialogBox.okAtLeft') ifTrue:[ |
|
336 buttonPanel addSubView:abortButton after:okButton. |
|
337 ] ifFalse:[ |
|
338 buttonPanel addSubView:abortButton before:okButton. |
|
339 ]. |
334 abortButton label:(resources string:'no'). |
340 abortButton label:(resources string:'no'). |
335 abortButton height:(okButton height). |
341 abortButton height:(okButton height). |
336 abortButton model:self; change:#noPressed |
342 abortButton model:self; change:#noPressed |
337 |
343 |
338 "Modified: 15.1.1997 / 23:32:21 / cg" |
344 "Modified: 15.1.1997 / 23:32:21 / cg" |
420 ! ! |
426 ! ! |
421 |
427 |
422 !YesNoBox class methodsFor:'documentation'! |
428 !YesNoBox class methodsFor:'documentation'! |
423 |
429 |
424 version |
430 version |
425 ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.39 1997-10-28 20:02:59 cg Exp $' |
431 ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.40 1999-03-06 01:58:19 cg Exp $' |
426 ! ! |
432 ! ! |