--- a/PopUpView.st	Mon Sep 18 15:17:00 2000 +0200
+++ b/PopUpView.st	Fri Sep 22 13:43:28 2000 +0200
@@ -303,6 +303,11 @@
     type := #popup 
 !
 
+releaseDeviceResources
+    shadowView notNil ifTrue:[shadowView destroy. shadowView := nil].
+    super releaseDeviceResources
+!
+
 releasePointer 
     "release the mouse pointer"
 
@@ -450,5 +455,5 @@
 !PopUpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.46 2000-07-06 07:52:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.47 2000-09-22 11:43:28 cg Exp $'
 ! !