--- a/PopUpMenu.st	Sat Apr 02 17:09:52 2016 +0200
+++ b/PopUpMenu.st	Sat Apr 02 17:10:57 2016 +0200
@@ -957,7 +957,7 @@
     ].
 
     aPoint isNil ifTrue:[
-        self showAt:(self graphicsDevice pointerPosition) resizing:true
+        self showAt:(device pointerPosition) resizing:true
     ] ifFalse:[
         self showAt:aPoint.
     ].
@@ -1387,7 +1387,7 @@
         and:[y < (height-margin)]]]) ifTrue:[
             "/ inside my menuView
             hideOnRelease := true.
-            p := self graphicsDevice 
+            p := device 
                     translatePoint:(x @ y)
                     fromView:self
                     toView:menuView.
@@ -1399,7 +1399,7 @@
 
     "outside of myself"
     (self isOpenedAsSubmenu) ifTrue:[
-        p := self graphicsDevice 
+        p := device 
                 translatePoint:(x @ y)
                 fromView:self
                 toView:(menuView superMenu).
@@ -1593,7 +1593,7 @@
 
 regainControl
 |g|
-    ((g := self graphicsDevice activePointerGrab) ~~ self) ifTrue:[
+    ((g := device activePointerGrab) ~~ self) ifTrue:[
         self forceUngrabPointer.
         self forceUngrabKeyboard.
         shown ifTrue:[
@@ -1689,10 +1689,10 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.118 2015-02-13 11:06:05 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.118 2015-02-13 11:06:05 cg Exp $'
+    ^ '$Header$'
 ! !