--- a/GraphicsMedium.st	Thu Oct 07 00:30:52 1999 +0200
+++ b/GraphicsMedium.st	Thu Oct 07 00:32:34 1999 +0200
@@ -49,6 +49,15 @@
 "
 ! !
 
+!GraphicsMedium methodsFor:'Compatibility - Squeak'!
+
+fillColor:something
+    "fill the receiver with something;
+     something may be a Form, Color or colorIndex"
+
+    self fill:something
+! !
+
 !GraphicsMedium methodsFor:'accessing'!
 
 bottomCenter
@@ -63,6 +72,13 @@
     ^ (self left) @ (self top + height - 1)
 !
 
+boundingBox
+    ^ Rectangle 
+        origin: 0 @ 0
+        corner: width @ height
+
+!
+
 center
     "return the point at the center of the receiver"
 
@@ -297,5 +313,5 @@
 !GraphicsMedium class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.8 1998-01-29 11:57:12 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.9 1999-10-06 22:31:55 cg Exp $'
 ! !

--- a/Image.st	Thu Oct 07 00:30:52 1999 +0200
+++ b/Image.st	Thu Oct 07 00:32:34 1999 +0200
@@ -5606,6 +5606,26 @@
     maskedPixelsAre0 := false.
 
     "Modified: / 22.8.1998 / 11:27:09 / cg"
+!
+
+skipInstvarIndexInDeepCopy:index
+    "a helper for deepCopy; only indices for which this method returns
+     false are copied in a deep copy."
+
+    index == 12 ifTrue:[
+        ^ true "/ skip device
+    ].
+    index == 13 ifTrue:[
+        ^ true "/ skip deviceForm
+    ].
+    index == 14 ifTrue:[
+        ^ true "/ skip monoDeviceForm
+    ].
+    index == 15 ifTrue:[
+        ^ true "/ skip fullColorDeviceForm
+    ].
+    ^ false
+
 ! !
 
 !Image methodsFor:'displaying'!
@@ -11888,6 +11908,6 @@
 !Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.281 1999-10-04 10:45:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.282 1999-10-06 22:32:34 cg Exp $'
 ! !
 Image initialize!