--- a/PopUpView.st	Wed Jul 05 17:50:32 2000 +0200
+++ b/PopUpView.st	Thu Jul 06 09:52:44 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libview' }"
+
 TopView subclass:#PopUpView
 	instanceVariableNames:'shadowView haveControl exclusivePointer mapTime
 		previousPointerGrab previousKeyboardGrab'
@@ -426,6 +428,8 @@
     shadowView notNil ifTrue:[shadowView realize].
     self raise.
     haveControl := true.
+
+"/    device zoom:(device pointerPosition extent:1@1)to:(self bounds) duration:10.
     super realize.
 !
 
@@ -446,5 +450,5 @@
 !PopUpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.45 2000-02-12 15:36:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.46 2000-07-06 07:52:44 cg Exp $'
 ! !