--- a/GradientBackground.st	Wed Jan 15 13:13:45 2014 +0100
+++ b/GradientBackground.st	Thu Jan 16 15:31:54 2014 +0100
@@ -175,11 +175,11 @@
             len := nil
         ].
         (direction == #northSouth or:[direction == nil]) ifTrue:[
-            h := len ? (Display height). "/ aView height.
+            h := len ? (aDevice height). "/ aView height.
             w := 8.
         ] ifFalse:[
             h := 8.
-            w := len ? (Display width).  "/ aView width.
+            w := len ? (aDevice width).  "/ aView width.
         ].
         cachedForm := Form width:w height:h depth:aDevice depth onDevice:aDevice.
         "/ cachedForm clear.
@@ -222,8 +222,8 @@
             scaleStartY := 0.
         ]
     ] ifFalse:[
-        hAll := Display height. "/ aView height.
-        wAll := Display width.  "/ aView width.
+        hAll := aView device height. "/ aView height.
+        wAll := aView device width.  "/ aView width.
         scaleStartX := x.
         scaleStartY := y.
     ].
@@ -330,10 +330,10 @@
 !GradientBackground class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GradientBackground.st,v 1.16 2013-07-24 21:02:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GradientBackground.st,v 1.17 2014-01-16 14:31:54 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/GradientBackground.st,v 1.16 2013-07-24 21:02:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GradientBackground.st,v 1.17 2014-01-16 14:31:54 stefan Exp $'
 ! !