--- a/PopUpList.st	Sat Apr 02 17:09:00 2016 +0200
+++ b/PopUpList.st	Sat Apr 02 17:09:02 2016 +0200
@@ -807,13 +807,13 @@
     ].
 
     showHandle ifTrue:[
-        mmH := self graphicsDevice horizontalPixelPerMillimeter.
-        mmV := self graphicsDevice verticalPixelPerMillimeter.
+        mmH := device horizontalPixelPerMillimeter.
+        mmV := device verticalPixelPerMillimeter.
         mW := (mmH * 2.5) rounded.
         mH := (mmV * 1.5) rounded.
 
         self 
-            drawEdgesForX:(width - mW - (hSpace*2)) y:(height - mmV rounded // 2)
+            drawEdgesForX:(width - mW - (hSpace*2)) y:((height - mmV rounded) // 2)
                      width:mW height:mH 
                      level:2
     ].
@@ -875,7 +875,7 @@
             "
              the popupMenu wants Display coordinates in its showAt: method
             "
-            org := self graphicsDevice translatePoint:0@0 fromView:self toView:nil.
+            org := device translatePoint:0@0 fromView:self toView:nil.
 
             theMenu showAt:org "resizing:false"
         ] ifFalse:[
@@ -1042,8 +1042,8 @@
     ].
 
     showHandle ifTrue:[
-        mmH := self device horizontalPixelPerMillimeter.
-        mmV := self device verticalPixelPerMillimeter.
+        mmH := device horizontalPixelPerMillimeter.
+        mmV := device verticalPixelPerMillimeter.
         ^ (ext x + hSpace + (mmH * 2.5) rounded + hSpace)
           @
           (ext y max: (mmV * 2) rounded)