--- a/PopUpMenu.st	Mon Feb 06 01:52:01 1995 +0100
+++ b/PopUpMenu.st	Mon Feb 06 01:53:30 1995 +0100
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.10 1994-11-28 21:05:15 claus Exp $
+$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.11 1995-02-06 00:53:04 claus Exp $
 '!
 
 !PopUpMenu class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.10 1994-11-28 21:05:15 claus Exp $
+$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.11 1995-02-06 00:53:04 claus Exp $
 "
 !
 
@@ -412,18 +412,8 @@
 !
 
 realize
-"/    windowGroup notNil ifTrue:[
-"/        windowGroup sensor compressMotionEvents:true
-"/    ].
-
     menuView deselectWithoutRedraw.
-"/    self enableEnterLeaveEvents.
     super realize.
-
-"/    menuView disableButtonMotionEvents.
-"/    menuView disableMotionEvents.
-"/    menuView disableButtonEvents.
-"/    menuView disableEnterLeaveEvents
 ! !
 
 !PopUpMenu methodsFor:'private accessing'!
@@ -447,6 +437,22 @@
     "return the superMenu"
 
     menuView superMenu:aMenu
+!
+
+change:aSymbol
+    menuView change:aSymbol
+!
+
+changeSymbol
+    ^ menuView changeSymbol
+!
+
+model 
+    ^ menuView model 
+!
+
+model:aModel
+    menuView model:aModel
 ! !
 
 !PopUpMenu methodsFor:'menuview messages'!
@@ -593,53 +599,17 @@
 
 !PopUpMenu methodsFor:'activation'!
 
-showAt:aPoint resizing:aBoolean
-    "realize the menu at aPoint"
-
-    aBoolean ifTrue:[
-	self fixSize.
-    ].
-    self origin:aPoint.
-    self makeFullyVisible.
-    self openModal:[true] "realize     "
-!
-
-showAt:aPoint
-    "realize the menu at aPoint"
-
-    self showAt:aPoint resizing:true 
-!
-
-showAtPointer
-    "realize the menu at the current pointer position"
-
-    self showAt:(device pointerPosition) resizing:true
-!
-
-show
-    "realize the menu at its last position"
-
-    self fixSize.
-    self openModal:[true] "realize     "
-!
-
 hide
     "hide the menu - if there are any pop-up-submenus, hide them also"
 
     menuView hideSubmenu.
     windowGroup notNil ifTrue:[
-	windowGroup removeView:self.
 	windowGroup removeView:menuView.
-	windowGroup := nil.
     ].
-    self unrealize.
+    super hide.
     menuView superMenu notNil ifTrue:[
 	menuView superMenu regainControl
     ].
-!
-
-regainControl
-    device grabPointerInView:self 
 ! !
 
 !PopUpMenu methodsFor:'ST-80 activation'!