--- a/WarningBox.st	Thu Mar 07 13:58:24 1996 +0100
+++ b/WarningBox.st	Thu Mar 07 17:53:31 1996 +0100
@@ -153,22 +153,21 @@
 
 !WarningBox methodsFor:'realization'!
 
-show
+openModal
     "added bell to wake up user"
 
     device beep.
-    super show
-!
+    super openModal
 
-showAtPointer
-    "added bell to wake up user"
+    "
+     self warn:'hello'
+    "
 
-    device beep.
-    super showAtPointer
+    "Modified: 7.3.1996 / 17:52:17 / cg"
 ! !
 
 !WarningBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.15 1996-03-01 13:03:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.16 1996-03-07 16:53:31 cg Exp $'
 ! !