--- a/OptionBox.st	Mon Jul 29 09:21:38 2019 +0200
+++ b/OptionBox.st	Mon Jul 29 11:52:44 2019 +0200
@@ -164,11 +164,13 @@
 
     box := self basicNew.
     box device:Screen current.
-    box initialize.
+    "/ do not initialize, #device: already did that
+"/    box initialize.
     box title:titleString.
     ^ box
 
     "Created: / 26-10-2018 / 10:56:42 / Claus Gittinger"
+    "Modified: / 29-07-2019 / 11:50:43 / Maren"
 !
 
 title:titleString numberOfOptions:nOptions
@@ -178,11 +180,13 @@
 
     box := self basicNew numberOfOptions:nOptions.
     box device:Screen current.
-    box initialize.
+    "/ do not initialize, #device: already did that
+"/    box initialize.
     box title:titleString.
     ^ box
 
     "Modified (comment): / 26-10-2018 / 10:56:48 / Claus Gittinger"
+    "Modified: / 29-07-2019 / 11:46:21 / Maren"
 ! !
 
 !OptionBox class methodsFor:'easy startup'!