equal
deleted
inserted
replaced
140 title:titleString numberOfOptions:nOptions |
140 title:titleString numberOfOptions:nOptions |
141 "create a new optionBox with title, aTitleString and nOptions options" |
141 "create a new optionBox with title, aTitleString and nOptions options" |
142 |
142 |
143 |box| |
143 |box| |
144 |
144 |
145 box := (self basicNew) numberOfOptions:nOptions. |
145 box := self new numberOfOptions:nOptions. |
146 box device:Screen current. |
146 box device:Screen current. |
147 box initialize. |
147 box initialize. |
148 box title:titleString. |
148 box title:titleString. |
149 ^ box |
149 ^ box |
150 ! ! |
150 ! ! |
675 ! ! |
675 ! ! |
676 |
676 |
677 !OptionBox class methodsFor:'documentation'! |
677 !OptionBox class methodsFor:'documentation'! |
678 |
678 |
679 version |
679 version |
680 ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.76 2014-02-18 15:02:08 stefan Exp $' |
680 ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.77 2014-05-16 07:12:33 stefan Exp $' |
681 ! |
681 ! |
682 |
682 |
683 version_CVS |
683 version_CVS |
684 ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.76 2014-02-18 15:02:08 stefan Exp $' |
684 ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.77 2014-05-16 07:12:33 stefan Exp $' |
685 ! ! |
685 ! ! |
686 |
686 |