Depth8Image.st
changeset 7754 2aac86a2c288
parent 7597 5abdbcd771e5
child 7823 5a255f3fbbd6
--- a/Depth8Image.st	Fri Dec 16 16:18:32 2016 +0100
+++ b/Depth8Image.st	Fri Dec 16 16:18:47 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -554,7 +552,6 @@
         f := Form imageForm width:width height:height depth:deviceDepth onDevice:aDevice.
         f isNil ifTrue:[^ nil].
         f colorMap:imgMap.
-        f initGC.
         aDevice
             drawBits:pseudoBits
             bitsPerPixel:8
@@ -564,7 +561,7 @@
             x:0 y:0
             into:(f id) x:0 y:0
             width:width height:height
-            with:(f gcId).
+            with:(f initGC).
         ^ f
     ].
 
@@ -591,7 +588,6 @@
     f := Form width:width height:height depth:deviceDepth onDevice:aDevice.
     f isNil ifTrue:[^ nil].
     f colorMap:imgMap.
-    f initGC.
 
     aDevice
         drawBits:(newImage bits)
@@ -601,7 +597,7 @@
         x:0 y:0
         into:(f id) x:0 y:0
         width:width height:height
-        with:(f gcId).
+        with:(f initGC).
 
     ^ f
 
@@ -2542,7 +2538,6 @@
 .
     f := Form width:w height:h depth:2 onDevice:aDevice.
     f isNil ifTrue:[^ nil].
-    f initGC.
     f graphicsDevice
         drawBits:formBytes
         depth:2
@@ -2552,7 +2547,7 @@
         into:f id
         x:0 y:0
         width:w height:h
-        with:f gcId.
+        with:f initGC.
     ^ f
 ! !