equal
deleted
inserted
replaced
33 hereby transferred. |
33 hereby transferred. |
34 " |
34 " |
35 ! |
35 ! |
36 |
36 |
37 version |
37 version |
38 ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.21 1995-11-11 16:21:59 cg Exp $' |
38 ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.22 1995-11-22 12:46:57 cg Exp $' |
39 ! |
39 ! |
40 |
40 |
41 documentation |
41 documentation |
42 " |
42 " |
43 OptionBoxes are like YesNoBoxes but with as many buttons as you like; |
43 OptionBoxes are like YesNoBoxes but with as many buttons as you like; |
249 formLabel := Label in:self. |
249 formLabel := Label in:self. |
250 self initFormBitmap. |
250 self initFormBitmap. |
251 formLabel borderWidth:0. |
251 formLabel borderWidth:0. |
252 formLabel origin:(ViewSpacing @ ViewSpacing). |
252 formLabel origin:(ViewSpacing @ ViewSpacing). |
253 |
253 |
254 textLabel := Label label:'Warning' in:self. |
254 textLabel := Label label:'Select' in:self. |
255 textLabel borderWidth:0. |
255 textLabel borderWidth:0. |
256 textLabel origin:((ViewSpacing + formLabel width + ViewSpacing) @ ViewSpacing). |
256 textLabel origin:((ViewSpacing + formLabel width + ViewSpacing) @ ViewSpacing). |
257 |
257 |
258 buttonPanel := HorizontalPanelView origin:(0.0 @ 1.0) corner:(1.0 @ 1.0) in:self. |
258 buttonPanel := HorizontalPanelView origin:(0.0 @ 1.0) corner:(1.0 @ 1.0) in:self. |
259 buttonPanel |
259 buttonPanel |