--- a/OptionBox.st	Sat Jan 08 18:27:39 1994 +0100
+++ b/OptionBox.st	Sat Jan 08 18:27:56 1994 +0100
@@ -12,7 +12,7 @@
 
 ModalBox subclass:#OptionBox
          instanceVariableNames:'formLabel textLabel buttons actions'
-         classVariableNames:'warnBitmap'
+         classVariableNames:'WarnBitmap'
          poolDictionaries:''
          category:'Views-Interactors'
 !
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
              All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.5 1993-12-20 17:26:25 claus Exp $
+$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.6 1994-01-08 17:27:37 claus Exp $
 
 written Nov 91 by claus
 '!
@@ -88,6 +88,12 @@
     ^ buttons size
 !
 
+buttons
+    "return the buttons collection"
+
+    ^ buttons
+!
+
 buttonTitles:titles
     "set the button titles"
 
@@ -123,11 +129,11 @@
 
     super initialize.
 
-    warnBitmap isNil ifTrue:[
-        warnBitmap := Form fromFile:'Warning.xbm' resolution:100 on:device
+    WarnBitmap isNil ifTrue:[
+        WarnBitmap := Form fromFile:'Warning.xbm' resolution:100 on:device
     ].
 
-    formLabel := Label form:warnBitmap in:self.
+    formLabel := Label form:WarnBitmap in:self.
     formLabel borderWidth:0.
     formLabel origin:(ViewSpacing @ ViewSpacing).