--- a/OptionBox.st	Fri May 31 22:16:08 1996 +0200
+++ b/OptionBox.st	Fri May 31 22:18:55 1996 +0200
@@ -10,9 +10,8 @@
  hereby transferred.
 "
 
-ModalBox subclass:#OptionBox
-	instanceVariableNames:'formLabel textLabel buttonPanel buttons actions
-		defaultButtonIndex'
+DialogBox subclass:#OptionBox
+	instanceVariableNames:'formLabel textLabel buttons actions defaultButtonIndex'
 	classVariableNames:'WarnBitmap'
 	poolDictionaries:''
 	category:'Views-DialogBoxes'
@@ -178,18 +177,6 @@
     actions := actionBlocks
 !
 
-buttonTitles:titles
-    "set the button titles"
-
-    titles keysAndValuesDo:[:index :aString |
-	|b|
-
-	(b := buttons at:index) label:aString.
-	b resize.
-    ].
-    shown ifTrue:[self resize]
-!
-
 buttonTitles:titles actions:actionBlocks
     "define both button titles and actions"
 
@@ -215,18 +202,6 @@
     ]
 !
 
-form:aFormOrImage
-    "set the image shown in the label-view"
-
-    formLabel form:aFormOrImage
-!
-
-formLabel
-    "return the label-view which displays a bitmap"
-
-    ^ formLabel
-!
-
 numberOfOptions
     "return the number of options"
 
@@ -238,6 +213,32 @@
 
     buttons := (OrderedCollection new:nOptions) grow:nOptions.
     actions := (OrderedCollection new:nOptions) grow:nOptions
+! !
+
+!OptionBox methodsFor:'accessing - look'!
+
+buttonTitles:titles
+    "set the button titles"
+
+    titles keysAndValuesDo:[:index :aString |
+	|b|
+
+	(b := buttons at:index) label:aString.
+	b resize.
+    ].
+    shown ifTrue:[self resize]
+!
+
+form:aFormOrImage
+    "set the image shown in the label-view"
+
+    formLabel form:aFormOrImage
+!
+
+formLabel
+    "return the label-view which displays a bitmap"
+
+    ^ formLabel
 !
 
 title:aString
@@ -283,10 +284,6 @@
 
 !OptionBox methodsFor:'initializing'!
 
-focusSequence
-    ^ buttons
-!
-
 initFormBitmap
     WarnBitmap isNil ifTrue:[
 	WarnBitmap := Form fromFile:'Warning.xbm' resolution:100 on:Display 
@@ -402,5 +399,5 @@
 !OptionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.32 1996-05-29 10:15:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.33 1996-05-31 20:17:52 cg Exp $'
 ! !