--- a/Image.st	Mon Jan 27 16:09:04 1997 +0100
+++ b/Image.st	Mon Jan 27 16:11:31 1997 +0100
@@ -1337,6 +1337,29 @@
     "Modified: 9.9.1996 / 22:41:01 / stefan"
 ! !
 
+!Image methodsFor:'ST-80 compatibility'!
+
+asCachedImage
+    "return the receiver associated to the current screens device.
+     For ST-80 compatibility 
+     (ST/X uses Image for both device- and nonDevice-images)"
+
+    ^ self on:Screen current
+
+    "Modified: 23.4.1996 / 11:10:32 / cg"
+!
+
+asRetainedMedium
+    "return the receiver associated to the current screens device.
+     For ST-80 compatibility 
+     (ST/X uses Image for both device- and nonDevice-images)"
+
+    ^ self on:Screen current
+
+    "Modified: 23.4.1996 / 11:10:32 / cg"
+    "Created: 27.1.1997 / 15:49:08 / cg"
+! !
+
 !Image methodsFor:'accessing'!
 
 bitsPerSample
@@ -1980,16 +2003,6 @@
     "Modified: 12.6.1996 / 13:58:16 / cg"
 !
 
-asCachedImage
-    "return the receiver associated to the current screens device.
-     For ST-80 compatibility 
-     (ST/X uses Image for both device- and nonDevice-images)"
-
-    ^ self on:Screen current
-
-    "Modified: 23.4.1996 / 11:10:32 / cg"
-!
-
 asErrorDitheredMonochromeImage
     "return an error-diffusion dithered monochrome image from the receiver image."
 
@@ -8779,6 +8792,6 @@
 !Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.138 1997-01-25 11:28:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.139 1997-01-27 15:11:31 cg Exp $'
 ! !
 Image initialize!