# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1558963169 -7200
# Node ID 665f0ed62ebe7d9a6cda9fa92cb2d6527ed48c39
# Parent  bfa5c82bf5a151b93044973f71f17315b1330486
#DOCUMENTATION by cg
class: Color
category of: #postCopy

diff -r bfa5c82bf5a1 -r 665f0ed62ebe Color.st
--- a/Color.st	Mon May 27 15:10:02 2019 +0200
+++ b/Color.st	Mon May 27 15:19:29 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -5234,14 +5232,6 @@
 
 !Color methodsFor:'copying'!
 
-postCopy
-    "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
@@ -5262,6 +5252,16 @@
     "
 ! !
 
+!Color methodsFor:'copying-private'!
+
+postCopy
+    "redefined to clear out any device handles in the copy"
+
+    device := colorId := ditherForm := replacementColor := nil
+
+    "Modified: 17.1.1997 / 00:03:42 / cg"
+! !
+
 !Color methodsFor:'getting a device color'!
 
 exactOn:aDevice