ClassChange.st
changeset 1233 4eef6fafcffb
parent 1203 379d9644b880
child 1286 621aac0264a7
--- a/ClassChange.st	Wed Apr 09 13:53:31 2003 +0200
+++ b/ClassChange.st	Wed Apr 09 14:22:48 2003 +0200
@@ -13,7 +13,7 @@
 "{ Package: 'stx:libbasic3' }"
 
 Change subclass:#ClassChange
-	instanceVariableNames:'className'
+	instanceVariableNames:'className package'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Changes'
@@ -123,6 +123,18 @@
 
     "Modified: / 15.7.1996 / 09:28:35 / cg"
     "Created: / 16.2.1998 / 13:05:36 / cg"
+!
+
+package
+    "return the value of the instance variable 'package' (automatically generated)"
+
+    ^ package
+!
+
+package:something
+    "set the value of the instance variable 'package' (automatically generated)"
+
+    package := something.
 ! !
 
 !ClassChange methodsFor:'applying'!
@@ -196,5 +208,5 @@
 !ClassChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.33 2003-02-04 21:37:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.34 2003-04-09 12:21:54 james Exp $'
 ! !