--- a/WarningBox.st	Sat Feb 10 17:57:06 1996 +0100
+++ b/WarningBox.st	Sun Feb 11 10:55:05 1996 +0100
@@ -11,10 +11,10 @@
 "
 
 InfoBox subclass:#WarningBox
-	 instanceVariableNames:''
-	 classVariableNames:'WarnBitmap'
-	 poolDictionaries:''
-	 category:'Views-DialogBoxes'
+	instanceVariableNames:''
+	classVariableNames:'WarnBitmap'
+	poolDictionaries:''
+	category:'Views-DialogBoxes'
 !
 
 !WarningBox class methodsFor:'documentation'!
@@ -35,26 +35,38 @@
 
 documentation
 "
+   Historic note:
+        originally, ST/X had separate classes for the various entry methods;
+        there were YesNoBox, EnterBox, InfoBox and so on.
+        In the meantime, the DialogBox class (and therefore its alias: Dialog)
+        is going to duplicate most funcionality found in these classes.
+
+        In the future, those existing subclasses' functionality is going to
+        be moved fully into Dialog, and the subclasses will be replaced by dummy
+        delegators. (They will be kept for backward compatibility, though).
+
+
+
     this class implements a pop-up box to show an information message. 
     WarningBoxes are basically InfoBoxes with a different bitmap-image.
     (also, they add a beep when popping up)
 
     They are created with:
 
-	aBox := WarningBox title:'some title'.
+        aBox := WarningBox title:'some title'.
 
     and shown with:
 
-	aBox showAtPointer
+        aBox showAtPointer
 
     The default box shows 'yes' in its button; this can be changed with:
 
-	aBox okText:'some string'.
+        aBox okText:'some string'.
 
     Since showing warnings is a common action, a convenient method has been
     added to Object; thus you can use:
 
-	self warn:'oops - headcrash'
+        self warn:'oops - headcrash'
 
     everywhere in your code.
 "
@@ -152,5 +164,5 @@
 !WarningBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.13 1995-12-07 22:23:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.14 1996-02-11 09:54:12 cg Exp $'
 ! !