--- a/ShadowView.st Tue Feb 18 17:44:47 2014 +0100
+++ b/ShadowView.st Tue Feb 18 17:49:08 2014 +0100
@@ -124,8 +124,8 @@
shadowClr := StyleSheet at:#popUpShadowColor.
"the length of the shadow from myView"
- shadowLength := (device pixelPerMillimeter * 1.0) rounded.
- "/ shadowLength := (device pixelPerMillimeter * 2.0) rounded.
+ shadowLength := self graphicsDevice pixelPerMillimeter.
+ "/ shadowLength := (self graphicsDevice pixelPerMillimeter * 2.0) rounded.
!
realize
@@ -133,9 +133,10 @@
get the pixels under the shadow from the screen"
|root shW shH right bot kludge clr1 clr0 org blackIs0 img
- rS gS bS rM gM bM rSN gSN bSN pix r g b|
+ rS gS bS rM gM bM rSN gSN bSN pix r g b graphicsDevice|
myView notNil ifTrue:[
+ graphicsDevice := self graphicsDevice.
self origin:(myView origin + (myView borderWidth * 2) + shadowLength)
extent:(myView extent).
@@ -145,7 +146,7 @@
get the pixels under the shadow
(copy from root-view into the 'imageUnderShadow'-form)
"
- imageUnderShadow := Form width:width height:height depth:device depth onDevice:device.
+ imageUnderShadow := Form width:width height:height depth:graphicsDevice depth onDevice:graphicsDevice.
imageUnderShadow clippedByChildren:false.
shW := shadowLength x.
@@ -153,13 +154,13 @@
right := width - shW.
bot := height - shH.
- root := device rootView.
+ root := graphicsDevice rootView.
clr0 := Color colorId:0.
clr1 := Color colorId:1.
- kludge := device depth == 1.
- blackIs0 := (device blackpixel == 0).
+ kludge := graphicsDevice depth == 1.
+ blackIs0 := (graphicsDevice blackpixel == 0).
(kludge and:[blackIs0]) ifTrue:[
imageUnderShadow foreground:clr0 background:clr1.
].
@@ -172,7 +173,7 @@
imageUnderShadow copyFrom:root x:org x y:(org y + bot)
toX:0 y:bot width:width height:shH.
- false "device visualType == #TrueColor" ifTrue:[
+ false "graphicsDevice visualType == #TrueColor" ifTrue:[
"
grey out the image (by darkening the pixels)
(thats expensive ...)
@@ -221,7 +222,7 @@
img pixelAtX:x y:y put:pix.
].
].
- imageUnderShadow := img asFormOn:device.
+ imageUnderShadow := img asFormOn:graphicsDevice.
] ifFalse:[
"
grey out the image (by oring-in a grey pattern)
@@ -230,20 +231,20 @@
(kludge and:[blackIs0]) ifFalse:[
imageUnderShadow foreground:clr0 background:(Color colorId:-1).
- imageUnderShadow mask:(Form mediumGreyFormOn:device).
+ imageUnderShadow mask:(Form mediumGreyFormOn:graphicsDevice).
imageUnderShadow function:#and.
imageUnderShadow fillRectangleX:right y:0 width:shW height:height.
imageUnderShadow fillRectangleX:0 y:bot width:width height:shH.
blackIs0 ifFalse:[
- imageUnderShadow foreground:(Color black onDevice:device) background:clr0.
+ imageUnderShadow foreground:(Color black onDevice:graphicsDevice) background:clr0.
imageUnderShadow function:#or.
imageUnderShadow fillRectangleX:right y:0 width:shW height:height.
imageUnderShadow fillRectangleX:0 y:bot width:width height:shH.
]
] ifTrue:[
imageUnderShadow foreground:clr1 background:clr0.
- imageUnderShadow mask:(Form mediumGreyFormOn:device).
+ imageUnderShadow mask:(Form mediumGreyFormOn:graphicsDevice).
imageUnderShadow function:#or.
imageUnderShadow fillRectangleX:right y:0 width:shW height:height.
imageUnderShadow fillRectangleX:0 y:bot width:width height:shH.
@@ -261,11 +262,11 @@
"sent after a snapin or a migration, reinit for new device"
shadowClr notNil ifTrue:[
- shadowClr := shadowClr onDevice:device
+ shadowClr := shadowClr onDevice:self graphicsDevice
].
"the length of the shadow from myView"
- shadowLength := (device pixelPerMillimeter * 1.0) rounded.
+ shadowLength := self graphicsDevice pixelPerMillimeter.
super recreate.
self backingStore:false.
@@ -286,9 +287,10 @@
!ShadowView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.36 2009-10-24 13:59:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.37 2014-02-18 16:49:08 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.36 2009-10-24 13:59:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.37 2014-02-18 16:49:08 stefan Exp $'
! !
+