--- a/Color.st	Tue May 28 18:43:12 1996 +0200
+++ b/Color.st	Tue May 28 18:45:56 1996 +0200
@@ -1395,6 +1395,15 @@
     ^ ditherForm
 !
 
+graphicsDevice
+    "same as #device, for ST-80 compatibility naming.
+     Return the device I am associated with."
+
+    ^ device
+
+    "Created: 28.5.1996 / 18:39:27 / cg"
+!
+
 green
     "return the green component in percent [0..100]"
 
@@ -2828,6 +2837,6 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.46 1996-05-20 08:46:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.47 1996-05-28 16:45:56 cg Exp $'
 ! !
 Color initialize!

--- a/Font.st	Tue May 28 18:43:12 1996 +0200
+++ b/Font.st	Tue May 28 18:45:56 1996 +0200
@@ -296,6 +296,15 @@
     "return the device-dependent font-id"
 
     ^ fontId
+!
+
+graphicsDevice
+    "same as #device, for ST-80 compatibility naming.
+     Return the device I am associated with."
+
+    ^ device
+
+    "Created: 28.5.1996 / 18:39:53 / cg"
 ! !
 
 !Font methodsFor:'binary storage'!
@@ -1074,6 +1083,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.44 1996-05-22 11:25:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.45 1996-05-28 16:45:17 cg Exp $'
 ! !
 Font initialize!