Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#on: -> #onDevice:
authorClaus Gittinger <cg@exept.de>
Wed, 18 Aug 1999 16:35:26 +0200
changeset 2830 edd000e38cf0
parent 2829 c50504338b61
child 2831 62b8abcdf5f2
#on: -> #onDevice:
ShadowV.st file | annotate | diff | comparison | revisions
ShadowView.st file | annotate | diff | comparison | revisions 
--- a/ShadowV.st	Wed Aug 18 16:34:20 1999 +0200
+++ b/ShadowV.st	Wed Aug 18 16:35:26 1999 +0200
@@ -180,7 +180,7 @@
                 imageUnderShadow fillRectangleX:0 y:bot width:width height:shH.
 
                 blackIs0 ifFalse:[
-                    imageUnderShadow foreground:(Color black on:device) background:clr0.
+                    imageUnderShadow foreground:(Color black onDevice:device) background:clr0.
                     imageUnderShadow function:#or.
                     imageUnderShadow fillRectangleX:right y:0 width:shW height:height.
                     imageUnderShadow fillRectangleX:0 y:bot width:width height:shH.
@@ -202,7 +202,7 @@
 
 recreate
     shadowClr notNil ifTrue:[
-	shadowClr := shadowClr on:device
+        shadowClr := shadowClr onDevice:device
     ].
 
     "the length of the shadow from myView"
@@ -227,5 +227,5 @@
 !ShadowView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/ShadowV.st,v 1.28 1999-04-23 14:53:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/ShadowV.st,v 1.29 1999-08-18 14:35:26 cg Exp $'
 ! !
--- a/ShadowView.st	Wed Aug 18 16:34:20 1999 +0200
+++ b/ShadowView.st	Wed Aug 18 16:35:26 1999 +0200
@@ -180,7 +180,7 @@
                 imageUnderShadow fillRectangleX:0 y:bot width:width height:shH.
 
                 blackIs0 ifFalse:[
-                    imageUnderShadow foreground:(Color black on:device) background:clr0.
+                    imageUnderShadow foreground:(Color black onDevice:device) background:clr0.
                     imageUnderShadow function:#or.
                     imageUnderShadow fillRectangleX:right y:0 width:shW height:height.
                     imageUnderShadow fillRectangleX:0 y:bot width:width height:shH.
@@ -202,7 +202,7 @@
 
 recreate
     shadowClr notNil ifTrue:[
-	shadowClr := shadowClr on:device
+        shadowClr := shadowClr onDevice:device
     ].
 
     "the length of the shadow from myView"
@@ -227,5 +227,5 @@
 !ShadowView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.28 1999-04-23 14:53:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.29 1999-08-18 14:35:26 cg Exp $'
 ! !
hg/stx-libview