--- a/ComboView.st	Sat Apr 02 17:08:58 2016 +0200
+++ b/ComboView.st	Sat Apr 02 17:09:03 2016 +0200
@@ -598,7 +598,7 @@
             ^ false
         ].
         point := x @ y.
-        point := self graphicsDevice translatePoint:point fromView:evView toView:field.
+        point := device translatePoint:point fromView:evView toView:field.
         x := point x.
         y := point y.
     ].
@@ -812,7 +812,7 @@
 
     opensMenu ifTrue:[
         menu := self createPullDownMenuForList:list.
-        origin := self graphicsDevice translatePoint:(0 @ self height) fromView:self toView:nil.
+        origin := device translatePoint:(0 @ self height) fromView:self toView:nil.
         "/ menu extentChangedFlag:false.
         "/ menu originChangedFlag:false.
         menu showAt:origin resizing:false.
@@ -923,7 +923,7 @@
     ] ifFalse:[
         |graphicsDevice|
 
-        graphicsDevice := self graphicsDevice ? Screen current.
+        graphicsDevice := device ? Screen current.
         m := (MenuView onDevice:graphicsDevice) labels:list.
         menuPrefX := m preferredWidth.