--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/MethodPrivacyChange.st Mon Aug 28 01:19:34 1995 +0200
@@ -0,0 +1,73 @@
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+
+ "Modified: 27.8.1995 / 22:50:41 / claus"
+
+'From Smalltalk/X, Version:2.10.7 on 27-aug-1995 at 11:08:32 pm' !
+
+MethodChange subclass:#MethodPrivacyChange
+ instanceVariableNames:'privacy'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'System-Changes'
+!
+
+!MethodPrivacyChange class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+
+ "Modified: 27.8.1995 / 22:50:41 / claus"
+!
+
+version
+"
+$Header: /cvs/stx/stx/libbasic3/MethodPrivacyChange.st,v 1.1 1995-08-27 23:19:30 claus Exp $
+"
+
+ "Modified: 27.8.1995 / 22:50:34 / claus"
+! !
+
+!MethodPrivacyChange class methodsFor:'instance creation'!
+
+class:cls selector:selector privacy:privacy
+ ^ self basicNew class:cls selector:selector privacy:privacy
+
+ "Modified: 27.8.1995 / 22:55:42 / claus"
+! !
+
+!MethodPrivacyChange methodsFor:'accessing'!
+
+class:cls selector:sel privacy:p
+ className := cls name.
+ privacy := p.
+ selector := sel
+
+ "Modified: 27.8.1995 / 22:56:03 / claus"
+!
+
+source
+ ^ '(' , className , ' compiledMethodAt:#' , selector , ') privacy:' , privacy storeString
+
+ "Modified: 27.8.1995 / 22:56:58 / claus"
+! !
+