--- a/Image.st	Thu May 17 17:04:46 2001 +0200
+++ b/Image.st	Thu May 17 23:31:26 2001 +0200
@@ -2411,6 +2411,8 @@
      very slow ...
      (it is meant to access individual pixels - for example, in a bitmap editor)"
 
+    <resource:#obsolete>
+
     self obsoleteMethodWarning:'Image [warning]: the Image>>at: will change semantics soon; use #colorAt:'.
     ^ self colorAtX:(aPoint x) y:(aPoint y)
 
@@ -2431,6 +2433,8 @@
      very slow ...
      (it is meant to access individual pixels - for example, in a bitmap editor)"
 
+    <resource:#obsolete>
+
     self obsoleteMethodWarning:'Image [warning]: the Image>>at:put: will change semantics soon; use #colorAt:put:'.
     ^ self colorAtX:aPoint x y:aPoint y put:aColor
 
@@ -2552,6 +2556,8 @@
      very slow ...
      (it is meant to access individual pixels - for example, in a bitmap editor)"
 
+    <resource:#obsolete>
+
     self obsoleteMethodWarning:'use #pixelAtX:y:put:'.
     ^ self pixelAtX:x y:y put:aPixelValue.
 
@@ -2625,6 +2631,8 @@
 data
     "for backward compatibility - will vanish"
 
+    <resource:#obsolete>
+
     self obsoleteMethodWarning:'use #bits'.
     ^ bytes
 
@@ -8490,6 +8498,8 @@
      when going from pixel to pixel (i.e. the byte-index and mask computations
      and also the color allocation)."
 
+    <resource:#obsolete>
+
     self obsoleteMethodWarning:'use #colorsAtY:from:to:do:'.
     self colorsAtY:y from:x1 to:x2 do:aBlock
 
@@ -8547,6 +8557,8 @@
     "perform aBlock for each pixelValue from x1 to x2 in row y.
      Obsolete - remains for backward compatibility."
 
+    <resource:#obsolete>
+
     self obsoleteMethodWarning:'use #valuesAtY:from:to:do:'.
     self valuesAtY:y from:x1 to:x2 do:aBlock
 
@@ -12231,6 +12243,6 @@
 !Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.303 2001-05-17 12:12:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.304 2001-05-17 21:31:26 stefan Exp $'
 ! !
 Image initialize!