--- a/Color.st	Mon Jul 11 15:23:09 2005 +0200
+++ b/Color.st	Tue Jul 12 15:58:51 2005 +0200
@@ -4331,6 +4331,14 @@
     "Modified: 17.1.1997 / 00:03:42 / cg"
 !
 
+postDeepCopy
+    "redefined to clear out any device handles in the copy"
+
+    device := colorId := ditherForm := replacementColor := nil
+
+    "Modified: 17.1.1997 / 00:03:42 / cg"
+!
+
 skipInstvarIndexInDeepCopy:index
     index == 4 ifTrue:[
         ^ true "/ skip device
@@ -5345,7 +5353,7 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.195 2005-01-26 16:14:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.196 2005-07-12 13:58:51 cg Exp $'
 ! !
 
 Color initialize!

--- a/Cursor.st	Mon Jul 11 15:23:09 2005 +0200
+++ b/Cursor.st	Tue Jul 12 15:58:51 2005 +0200
@@ -3107,6 +3107,10 @@
     sourceForm := sourceForm copy.
     maskForm := maskForm copy.
     device := cursorId := nil
+!
+
+postDeepCopy
+    device := cursorId := nil
 ! !
 
 !Cursor methodsFor:'creating a device cursor'!
@@ -3338,7 +3342,7 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.102 2004-09-06 17:56:20 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.103 2005-07-12 13:58:44 cg Exp $'
 ! !
 
 Cursor initialize!

--- a/DeviceGraphicsContext.st	Mon Jul 11 15:23:09 2005 +0200
+++ b/DeviceGraphicsContext.st	Tue Jul 12 15:58:51 2005 +0200
@@ -1223,6 +1223,10 @@
     super postCopy.
     device := drawableId := gcId := nil.
     self recreate
+!
+
+postDeepCopy
+    device := drawableId := gcId := nil.
 ! !
 
 !DeviceGraphicsContext methodsFor:'drawing'!
@@ -3861,7 +3865,7 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.104 2005-06-06 17:40:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.105 2005-07-12 13:58:20 cg Exp $'
 ! !
 
 DeviceGraphicsContext initialize!

--- a/GraphicsMedium.st	Mon Jul 11 15:23:09 2005 +0200
+++ b/GraphicsMedium.st	Tue Jul 12 15:58:51 2005 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -306,6 +304,11 @@
 
     super postCopy.
     realized := false.
+!
+
+postDeepCopy
+    super postDeepCopy.
+    realized := false.
 ! !
 
 !GraphicsMedium methodsFor:'filling'!
@@ -412,5 +415,5 @@
 !GraphicsMedium class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.17 2004-03-05 12:41:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.18 2005-07-12 13:57:37 cg Exp $'
 ! !