--- a/WarnBox.st Sun Jan 16 05:02:06 1994 +0100
+++ b/WarnBox.st Sun Jan 16 05:03:30 1994 +0100
@@ -24,7 +24,7 @@
this class implements a pop-up box to show an information message
-$Header: /cvs/stx/stx/libwidg/Attic/WarnBox.st,v 1.2 1993-10-13 01:04:04 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/WarnBox.st,v 1.3 1994-01-16 04:03:30 claus Exp $
written Summer 93 by claus
'!
@@ -49,4 +49,11 @@
device beep.
super show
+!
+
+showAtPointer
+ "added bell to wake up user"
+
+ device beep.
+ super showAtPointer
! !
--- a/WarningBox.st Sun Jan 16 05:02:06 1994 +0100
+++ b/WarningBox.st Sun Jan 16 05:03:30 1994 +0100
@@ -24,7 +24,7 @@
this class implements a pop-up box to show an information message
-$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.2 1993-10-13 01:04:04 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
'!
@@ -49,4 +49,11 @@
device beep.
super show
+!
+
+showAtPointer
+ "added bell to wake up user"
+
+ device beep.
+ super showAtPointer
! !