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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 10 Sep 1998 13:05:03 +0200
changeset 2322 6c42f2e0213c
parent 2321 75a179c343cf
child 2323 bf88727c4dee
checkin from browser
DevGC.st file | annotate | diff | comparison | revisions
DeviceGraphicsContext.st file | annotate | diff | comparison | revisions 
--- a/DevGC.st	Thu Sep 10 12:55:46 1998 +0200
+++ b/DevGC.st	Thu Sep 10 13:05:03 1998 +0200
@@ -3300,8 +3300,8 @@
 
     |fgPixel bgPixel oldFunction|
 
-    fgPixel := device blackColor colorId.
-    bgPixel := device whiteColor colorId.
+    fgPixel := device blackpixel.
+    bgPixel := device whitepixel.
 
     gcId isNil ifTrue:[
         self initGC
@@ -3312,16 +3312,15 @@
                       in:gcId.
     device setFunction:#xor in:gcId.
     aBlock value.
+
     paint := nil.        "invalidate"
     foreground := device blackColor.   
     background := device whiteColor.
-    device setForeground:fgPixel
-              background:bgPixel
-                      in:gcId.
+    device setForeground:fgPixel background:bgPixel in:gcId.
     device setFunction:oldFunction in:gcId.
     function := oldFunction
 
-    "Modified: 13.1.1997 / 23:03:20 / cg"
+    "Modified: / 10.9.1998 / 12:17:39 / cg"
 ! !
 
 !DeviceGraphicsContext methodsFor:'filling'!
@@ -3812,6 +3811,6 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevGC.st,v 1.62 1998-08-24 15:22:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevGC.st,v 1.63 1998-09-10 11:05:03 cg Exp $'
 ! !
 DeviceGraphicsContext initialize!
--- a/DeviceGraphicsContext.st	Thu Sep 10 12:55:46 1998 +0200
+++ b/DeviceGraphicsContext.st	Thu Sep 10 13:05:03 1998 +0200
@@ -3300,8 +3300,8 @@
 
     |fgPixel bgPixel oldFunction|
 
-    fgPixel := device blackColor colorId.
-    bgPixel := device whiteColor colorId.
+    fgPixel := device blackpixel.
+    bgPixel := device whitepixel.
 
     gcId isNil ifTrue:[
         self initGC
@@ -3312,16 +3312,15 @@
                       in:gcId.
     device setFunction:#xor in:gcId.
     aBlock value.
+
     paint := nil.        "invalidate"
     foreground := device blackColor.   
     background := device whiteColor.
-    device setForeground:fgPixel
-              background:bgPixel
-                      in:gcId.
+    device setForeground:fgPixel background:bgPixel in:gcId.
     device setFunction:oldFunction in:gcId.
     function := oldFunction
 
-    "Modified: 13.1.1997 / 23:03:20 / cg"
+    "Modified: / 10.9.1998 / 12:17:39 / cg"
 ! !
 
 !DeviceGraphicsContext methodsFor:'filling'!
@@ -3812,6 +3811,6 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.62 1998-08-24 15:22:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.63 1998-09-10 11:05:03 cg Exp $'
 ! !
 DeviceGraphicsContext initialize!
hg/stx-libview