--- a/PopUpBanner.st	Fri Jun 22 17:51:05 2001 +0200
+++ b/PopUpBanner.st	Mon Jun 25 09:44:30 2001 +0200
@@ -11,6 +11,8 @@
 "
 
 
+"{ Package: 'stx:libview2' }"
+
 PopUpView subclass:#PopUpBanner
 	instanceVariableNames:''
 	classVariableNames:''
@@ -121,6 +123,14 @@
 
 ! !
 
+!PopUpBanner methodsFor:'event handling'!
+
+buttonPress:button x:x y:y
+   "destroy view when user clicks into"
+
+    self destroy
+! !
+
 !PopUpBanner methodsFor:'queries'!
 
 grabWhenMapped
@@ -130,5 +140,5 @@
 !PopUpBanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PopUpBanner.st,v 1.7 2000-02-12 15:36:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PopUpBanner.st,v 1.8 2001-06-25 07:44:30 stefan Exp $'
 ! !