# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1389882714 -3600
# Node ID 020ebdb99a1ea0543888e8339c376f39c98922d8
# Parent  ecc94ff4e5e92c27ef179ccaaabaebfa8918d64f
Replace references to Diplay with "Screen current" - where appropriate

diff -r ecc94ff4e5e9 -r 020ebdb99a1e GradientBackground.st
--- 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 $'
 ! !