class: OptionBox
authorStefan Vogel <sv@exept.de>
Fri, 16 May 2014 18:00:58 +0200
changeset 5027 d9c7b4ccfeff
parent 5026 271f1187ee56
child 5028 394487f4945d
class: OptionBox changed: #title:numberOfOptions: (send #basicNew instead of #new) back to prev version
OptionBox.st
--- 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 $'
 ! !