equal
deleted
inserted
replaced
89 |box| |
89 |box| |
90 box := OptionBox title:'hello' numberOfOptions:3. |
90 box := OptionBox title:'hello' numberOfOptions:3. |
91 box buttonTitles:#('one' 'two' 'three'). |
91 box buttonTitles:#('one' 'two' 'three'). |
92 box action:[:which | Transcript show:'button '; |
92 box action:[:which | Transcript show:'button '; |
93 show: which; |
93 show: which; |
94 showCr:' was pressed']. |
94 showCR:' was pressed']. |
95 box showAtPointer |
95 box showAtPointer |
96 [exEnd] |
96 [exEnd] |
97 |
97 |
98 returning a value: |
98 returning a value: |
99 [exBegin] |
99 [exBegin] |
103 request:('text has not been accepted.\\Your modifications will be lost when continuing.') withCRs |
103 request:('text has not been accepted.\\Your modifications will be lost when continuing.') withCRs |
104 label:' Attention' |
104 label:' Attention' |
105 form:(WarningBox iconBitmap) |
105 form:(WarningBox iconBitmap) |
106 buttonLabels:#('abort' 'accept' 'continue') |
106 buttonLabels:#('abort' 'accept' 'continue') |
107 values:#(#abort #accept #continue). |
107 values:#(#abort #accept #continue). |
108 Transcript showCr:what. |
108 Transcript showCR:what. |
109 [exEnd] |
109 [exEnd] |
110 " |
110 " |
111 ! ! |
111 ! ! |
112 |
112 |
113 !OptionBox class methodsFor:'instance creation'! |
113 !OptionBox class methodsFor:'instance creation'! |
396 ! ! |
396 ! ! |
397 |
397 |
398 !OptionBox class methodsFor:'documentation'! |
398 !OptionBox class methodsFor:'documentation'! |
399 |
399 |
400 version |
400 version |
401 ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.30 1996-05-16 10:18:31 cg Exp $' |
401 ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.31 1996-05-18 15:41:31 cg Exp $' |
402 ! ! |
402 ! ! |