#TUNING by cg
authorClaus Gittinger <cg@exept.de>
Thu, 31 Aug 2017 21:59:48 +0200
changeset 8155 5da09f4eaf56
parent 8154 065b15ce117a
child 8156 13f21ca2c852
#TUNING by cg class: Depth24Image changed: #colorAtX:y:put:
Depth24Image.st
--- a/Depth24Image.st	Thu Aug 31 21:41:03 2017 +0200
+++ b/Depth24Image.st	Thu Aug 31 21:59:48 2017 +0200
@@ -94,10 +94,14 @@
      Pixels start at x=0 , y=0 for upper left pixel, end at
      x = width-1, y=height-1 for lower right pixel."
 
-    photometric ~~ #rgb ifTrue:[^ super colorAtX:x y:y put:aColor].
-    self pixelAtX:x y:y put:aColor rgbValue.
-
-    "Created: 24.4.1997 / 17:32:59 / cg"
+    photometric == #rgb ifTrue:[
+        self pixelAtX:x y:y put:(aColor rgbValue).
+        ^ self
+    ].
+    super colorAtX:x y:y put:aColor.
+
+    "Created: / 24-04-1997 / 17:32:59 / cg"
+    "Modified (format): / 31-08-2017 / 12:01:01 / cg"
 !
 
 pixelAtX:x y:y