--- a/WarningBox.st	Sun Aug 07 15:22:53 1994 +0200
+++ b/WarningBox.st	Sun Aug 07 15:23:42 1994 +0200
@@ -14,31 +14,74 @@
        instanceVariableNames:''
        classVariableNames:'WarnBitmap'
        poolDictionaries:''
-       category:'Views-Interactors'
+       category:'Views-DialogBoxes'
 !
 
 WarningBox comment:'
-
 COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
 
-this class implements a pop-up box to show an information message
+$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.4 1994-08-07 13:23:39 claus Exp $
+'!
+
+!WarningBox class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1993 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+version
+"
+$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.4 1994-08-07 13:23:39 claus Exp $
+"
+!
 
-$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.3 1994-01-16 04:03:30 claus Exp $
-written Summer 93 by claus
-'!
+documentation
+"
+    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'.
+
+    and shown with:
+
+        aBox showAtPointer
+
+    The default box shows 'yes' in its button; this can be changed with:
+
+        aBox okText:'some string'.
+
+
+    Examples:
+
+        |aBox|
+
+        aBox := WarningBox title:'Press ''OK'' to continue'.
+        aBox okText:'OK'.
+        aBox showAtPointer.
+
+"
+! !
 
 !WarningBox methodsFor:'initialization'!
 
-initialize
+initFormBitmap
     WarnBitmap isNil ifTrue:[
-        WarnBitmap := Form fromFile:'Warning.xbm' resolution:100 on:device
+        WarnBitmap := Form fromFile:'Warning.xbm' resolution:100 on:Display 
     ].
-
-    super initialize.
-!
-
-initFormBitmap
     formLabel form:WarnBitmap
 ! !