--- a/OptionBox.st	Tue Feb 28 12:18:46 2012 +0100
+++ b/OptionBox.st	Tue Feb 28 16:00:06 2012 +0100
@@ -453,12 +453,6 @@
 
 !OptionBox methodsFor:'accessing-components'!
 
-addCheckBox:label on:aValueHolder
-    ^ self addCheckBoxAtBottom:label on:aValueHolder
-
-    "Modified: / 28-02-2012 / 10:38:51 / cg"
-!
-
 buttons
     "return the buttons collection"
 
@@ -567,7 +561,7 @@
 !
 
 initialize
-    |nButt mm vPanelLayout|
+    |mm vPanelLayout|
 
     super initialize.
 
@@ -596,6 +590,9 @@
 "/    textLabel origin:((mm + formLabel width + mm) @ mm).
 
     verticalPanel resize.
+    "/ cannot be done here - verticalPanel still has its defaul height and may be
+    "/ not yet filled...
+    "/ yPosition := verticalPanel height + (mm * 3).
 
 "/    buttonPanel isNil ifTrue:[
 "/        buttonPanel := HorizontalPanelView origin:(0.0 @ 1.0) corner:(1.0 @ 1.0) in:self.
@@ -607,9 +604,7 @@
         borderWidth:0; 
         horizontalLayout:#fitSpace.
 
-    nButt := buttons size.
-
-    1 to:nButt do:[:index |
+    1 to:(buttons size) do:[:index |
         |button|
 
         button := Button label:'press'.
@@ -632,7 +627,7 @@
      box open
     "
 
-    "Modified: / 27.7.1998 / 19:37:17 / cg"
+    "Modified: / 28-02-2012 / 15:56:57 / cg"
 ! !
 
 !OptionBox methodsFor:'queries'!
@@ -682,9 +677,9 @@
 !OptionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.73 2012-02-28 11:18:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.74 2012-02-28 15:00:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.73 2012-02-28 11:18:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.74 2012-02-28 15:00:06 cg Exp $'
 ! !