--- a/Scroller.st	Wed Mar 19 11:04:00 2014 +0100
+++ b/Scroller.st	Wed Mar 19 11:04:19 2014 +0100
@@ -2710,12 +2710,12 @@
     orientation == #vertical ifTrue:[
         h := defExt y.
         (w := DefaultVScrollerWidth) isNil ifTrue:[
-            w := (device horizontalPixelPerMillimeter asFloat * 5) rounded
+            w := (self graphicsDevice horizontalPixelPerMillimeter asFloat * 5) rounded
         ]
     ] ifFalse:[
         w := defExt x.
         (h := DefaultHScrollerHeight) isNil ifTrue:[
-            h := (device verticalPixelPerMillimeter asFloat * 5) rounded
+            h := (self graphicsDevice verticalPixelPerMillimeter asFloat * 5) rounded
         ]
     ].
 
@@ -2757,10 +2757,10 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.205 2014-02-18 16:47:31 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.206 2014-03-19 10:04:19 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.205 2014-02-18 16:47:31 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.206 2014-03-19 10:04:19 stefan Exp $'
 ! !