class: OptionBox
changed: #title:numberOfOptions: (send #basicNew instead of #new)
back to prev version
--- a/OptionBox.st Fri May 16 09:12:33 2014 +0200
+++ b/OptionBox.st Fri May 16 18:00:58 2014 +0200
@@ -142,7 +142,9 @@
|box|
- box := self new numberOfOptions:nOptions.
+ box := self basicNew numberOfOptions:nOptions.
+"/ Later...
+"/ box initializeForDevice:Screen current.
box device:Screen current.
box initialize.
box title:titleString.
@@ -677,10 +679,10 @@
!OptionBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.77 2014-05-16 07:12:33 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.78 2014-05-16 16:00:58 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.77 2014-05-16 07:12:33 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.78 2014-05-16 16:00:58 stefan Exp $'
! !