--- a/ComboView.st	Tue Feb 18 15:26:23 2014 +0100
+++ b/ComboView.st	Tue Feb 18 15:28:55 2014 +0100
@@ -585,7 +585,7 @@
             ^ false
         ].
         point := x @ y.
-        point := device translatePoint:point fromView:evView toView:field.
+        point := self graphicsDevice translatePoint:point fromView:evView toView:field.
         x := point x.
         y := point y.
     ].
@@ -791,7 +791,7 @@
 
     opensMenu ifTrue:[
         menu := self createPullDownMenuForList:list.
-        origin := device translatePoint:(0 @ self height) fromView:self toView:nil.
+        origin := self graphicsDevice translatePoint:(0 @ self height) fromView:self toView:nil.
         "/ menu extentChangedFlag:false.
         "/ menu originChangedFlag:false.
         menu showAt:origin resizing:false.
@@ -888,7 +888,10 @@
     list isNil ifTrue:[
         menuPrefX := menuPrefY := 0
     ] ifFalse:[
-        m := (MenuView onDevice:(device notNil ifTrue:[device] ifFalse:[Screen current])) labels:list.
+        |graphicsDevice|
+
+        graphicsDevice := self graphicsDevice ? Screen current.
+        m := (MenuView onDevice:graphicsDevice) labels:list.
         menuPrefX := m preferredWidth.
 
         "/ the menuView returns rubbish ...
@@ -921,10 +924,10 @@
 !ComboView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.113 2014-02-13 18:28:14 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.114 2014-02-18 14:28:55 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.113 2014-02-13 18:28:14 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.114 2014-02-18 14:28:55 stefan Exp $'
 ! !