--- 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 $'
! !