# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 885577938 -3600
# Node ID 568eaf667294826ac1a65ef979c83620ff53a6fa
# Parent  e0f3f49118ed7c986c49d35eaee6ae91894ad0db
Use #setPrivacy: instead of #setPrivate #setProtected and #setIgnored

diff -r e0f3f49118ed -r 568eaf667294 CCReader.st
--- a/CCReader.st	Fri Jan 23 18:49:18 1998 +0100
+++ b/CCReader.st	Fri Jan 23 18:52:18 1998 +0100
@@ -310,16 +310,10 @@
                     ].
 
                     ignore ifTrue:[
-                        method setToIgnored
+                        method setPrivacy:#ignore
                     ] ifFalse:[
                         privacy notNil ifTrue:[
-                            privacy == #private ifTrue:[
-                                method setToPrivate
-                            ] ifFalse:[
-                                privacy == #protected ifTrue:[
-                                    method setToProtected
-                                ]
-                            ]
+                            method setPrivacy:privacy
                         ]
                     ]
                 ]
@@ -328,9 +322,10 @@
         ]
     ]
 
-    "Modified: 9.9.1995 / 15:29:08 / claus"
-    "Created: 5.9.1996 / 17:45:45 / cg"
-    "Modified: 14.10.1997 / 16:15:38 / cg"
+    "Modified: / 9.9.1995 / 15:29:08 / claus"
+    "Created: / 5.9.1996 / 17:45:45 / cg"
+    "Modified: / 14.10.1997 / 16:15:38 / cg"
+    "Modified: / 23.1.1998 / 15:25:01 / stefan"
 ! !
 
 !ClassCategoryReader methodsFor:'private'!
@@ -370,6 +365,6 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.36 1997-11-02 19:14:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.37 1998-01-23 17:52:18 stefan Exp $'
 ! !
 ClassCategoryReader initialize!
diff -r e0f3f49118ed -r 568eaf667294 ClassCategoryReader.st
--- a/ClassCategoryReader.st	Fri Jan 23 18:49:18 1998 +0100
+++ b/ClassCategoryReader.st	Fri Jan 23 18:52:18 1998 +0100
@@ -310,16 +310,10 @@
                     ].
 
                     ignore ifTrue:[
-                        method setToIgnored
+                        method setPrivacy:#ignore
                     ] ifFalse:[
                         privacy notNil ifTrue:[
-                            privacy == #private ifTrue:[
-                                method setToPrivate
-                            ] ifFalse:[
-                                privacy == #protected ifTrue:[
-                                    method setToProtected
-                                ]
-                            ]
+                            method setPrivacy:privacy
                         ]
                     ]
                 ]
@@ -328,9 +322,10 @@
         ]
     ]
 
-    "Modified: 9.9.1995 / 15:29:08 / claus"
-    "Created: 5.9.1996 / 17:45:45 / cg"
-    "Modified: 14.10.1997 / 16:15:38 / cg"
+    "Modified: / 9.9.1995 / 15:29:08 / claus"
+    "Created: / 5.9.1996 / 17:45:45 / cg"
+    "Modified: / 14.10.1997 / 16:15:38 / cg"
+    "Modified: / 23.1.1998 / 15:25:01 / stefan"
 ! !
 
 !ClassCategoryReader methodsFor:'private'!
@@ -370,6 +365,6 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.36 1997-11-02 19:14:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.37 1998-01-23 17:52:18 stefan Exp $'
 ! !
 ClassCategoryReader initialize!