--- a/OptionBox.st	Wed Dec 06 15:28:42 2000 +0100
+++ b/OptionBox.st	Wed Dec 06 15:28:57 2000 +0100
@@ -260,6 +260,12 @@
     ^ formLabel
 !
 
+textLabel
+    "return the label-view which displays a message string"
+
+    ^ textLabel
+!
+
 title:aString
     "set the boxes title"
 
@@ -409,5 +415,5 @@
 !OptionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.44 2000-08-21 22:45:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.45 2000-12-06 14:28:57 cg Exp $'
 ! !