Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use #setPrivacy: instead of #setPrivate #setProtected and #setIgnored
authorStefan Vogel <sv@exept.de>
Fri, 23 Jan 1998 18:52:18 +0100
changeset 3217 568eaf667294
parent 3216 e0f3f49118ed
child 3218 78255e232c66
Use #setPrivacy: instead of #setPrivate #setProtected and #setIgnored
CCReader.st file | annotate | diff | comparison | revisions
ClassCategoryReader.st file | annotate | diff | comparison | revisions 
--- 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!
--- 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!
hg/stx-libbasic