Mercurial Mercurial > hg > stx-libbasic3 / 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.
commentary
authorClaus Gittinger <cg@exept.de>
Mon, 15 Jul 1996 09:30:39 +0200
changeset 378 f106015c98a6
parent 377 74f317b3a511
child 379 320e840807da
commentary
Change.st file | annotate | diff | comparison | revisions
ChangeSet.st file | annotate | diff | comparison | revisions
ClassChange.st file | annotate | diff | comparison | revisions
ClassChg.st file | annotate | diff | comparison | revisions 
--- a/Change.st	Mon Jul 15 09:23:57 1996 +0200
+++ b/Change.st	Mon Jul 15 09:30:39 1996 +0200
@@ -17,7 +17,7 @@
 	category:'System-Changes'
 !
 
-!Change class methodsFor:'documentation'!
+!Change  class methodsFor:'documentation'!
 
 copyright
 "
@@ -45,11 +45,15 @@
 !Change methodsFor:'source'!
 
 source
+    "return the source of the change"
+
     ^ source
+
+    "Modified: 15.7.1996 / 09:26:34 / cg"
 ! !
 
-!Change class methodsFor:'documentation'!
+!Change  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.10 1996-04-25 17:04:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.11 1996-07-15 07:30:23 cg Exp $'
 ! !
--- a/ChangeSet.st	Mon Jul 15 09:23:57 1996 +0200
+++ b/ChangeSet.st	Mon Jul 15 09:30:39 1996 +0200
@@ -17,7 +17,7 @@
 	category:'System-Changes'
 !
 
-!ChangeSet class methodsFor:'documentation'!
+!ChangeSet  class methodsFor:'documentation'!
 
 copyright
 "
@@ -42,7 +42,7 @@
 "
 ! !
 
-!ChangeSet class methodsFor:'queries'!
+!ChangeSet  class methodsFor:'queries'!
 
 current
     "ST-80 compatibility: return the current changeSet"
@@ -61,73 +61,100 @@
 !ChangeSet methodsFor:'change management'!
 
 addClassCategoryChange:newCategory for:aClass
+    "add a classCategory change to the receiver"
+
     |newChange|
 
     newChange := ClassCategoryChange class:aClass category:newCategory.
     self add:newChange
 
     "Created: 3.12.1995 / 13:45:53 / cg"
+    "Modified: 15.7.1996 / 09:26:52 / cg"
 !
 
 addClassDefinitionChangeFor:aClass
+    "add a classDefinition change to the receiver"
+
     |newChange|
 
     newChange := ClassDefinitionChange class:aClass.
     self add:newChange
 
-    "Modified: 3.12.1995 / 14:05:57 / cg"
+    "Modified: 15.7.1996 / 09:27:05 / cg"
 !
 
 addMethodCategoryChange:aMethod category:newCategory in:aClass
+    "add a methodCategory change to the receiver"
+
     |newChange|
 
     newChange := MethodCategoryChange class:aClass
-				   selector:(aClass selectorAtMethod:aMethod)
-				   category:newCategory.
+                                   selector:(aClass selectorAtMethod:aMethod)
+                                   category:newCategory.
     self add:newChange
 
+    "Modified: 15.7.1996 / 09:27:15 / cg"
 !
 
 addMethodChange:aMethod in:aClass
+    "add a method change to the receiver"
+
     |newChange|
 
     newChange := MethodChange class:aClass
-			   selector:(aClass selectorAtMethod:aMethod)
-			     source:aMethod source
-			   category:aMethod category.
+                           selector:(aClass selectorAtMethod:aMethod)
+                             source:aMethod source
+                           category:aMethod category.
     self add:newChange
+
+    "Modified: 15.7.1996 / 09:27:21 / cg"
 !
 
 addMethodPrivacyChange:aMethod in:aClass
+    "add a methodPrivacy change to the receiver"
+
     |newChange|
 
     newChange := MethodPrivacyChange class:aClass
-				   selector:(aClass selectorAtMethod:aMethod)
-				   privacy:aMethod privacy.
+                                   selector:(aClass selectorAtMethod:aMethod)
+                                   privacy:aMethod privacy.
     self add:newChange
 
     "Modified: 27.8.1995 / 22:55:22 / claus"
+    "Modified: 15.7.1996 / 09:27:28 / cg"
 !
 
 addPrimitiveDefinitionsChangeFor:aClass
+    "add a primitiveDefinitions change to the receiver"
+
     |newChange|
 
     newChange := ClassPrimitiveDefinitionsChange class:aClass.
     self add:newChange
+
+    "Modified: 15.7.1996 / 09:27:40 / cg"
 !
 
 addPrimitiveFunctionsChangeFor:aClass
+    "add a primitiveFunctions change to the receiver"
+
     |newChange|
 
     newChange := ClassPrimitiveFunctionsChange class:aClass.
     self add:newChange
+
+    "Modified: 15.7.1996 / 09:27:47 / cg"
 !
 
 addPrimitiveVariablesChangeFor:aClass
+    "add a primitiveVariables change to the receiver"
+
     |newChange|
 
     newChange := ClassPrimitiveVariablesChange class:aClass.
     self add:newChange
+
+    "Modified: 15.7.1996 / 09:27:55 / cg"
 ! !
 
 !ChangeSet methodsFor:'misc'!
@@ -138,8 +165,8 @@
     ^ self
 ! !
 
-!ChangeSet class methodsFor:'documentation'!
+!ChangeSet  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.17 1996-04-25 17:04:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.18 1996-07-15 07:30:33 cg Exp $'
 ! !
--- a/ClassChange.st	Mon Jul 15 09:23:57 1996 +0200
+++ b/ClassChange.st	Mon Jul 15 09:30:39 1996 +0200
@@ -17,7 +17,7 @@
 	category:'System-Changes'
 !
 
-!ClassChange class methodsFor:'documentation'!
+!ClassChange  class methodsFor:'documentation'!
 
 copyright
 "
@@ -42,7 +42,7 @@
 "
 ! !
 
-!ClassChange class methodsFor:'instance creation'!
+!ClassChange  class methodsFor:'instance creation'!
 
 class:aClass
     ^ self new class:aClass
@@ -53,13 +53,20 @@
 !ClassChange methodsFor:'accessing'!
 
 class:aClass
+    "set the class of the change"
+
     className := aClass name.
 
     "Created: 3.12.1995 / 14:01:45 / cg"
+    "Modified: 15.7.1996 / 09:28:26 / cg"
 !
 
 className 
+    "return the className of the change"
+
     ^  className
+
+    "Modified: 15.7.1996 / 09:28:35 / cg"
 ! !
 
 !ClassChange methodsFor:'printing'!
@@ -68,8 +75,8 @@
     aStream nextPutAll:source asCollectionOfLines first.
 ! !
 
-!ClassChange class methodsFor:'documentation'!
+!ClassChange  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.13 1996-04-25 17:04:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.14 1996-07-15 07:30:39 cg Exp $'
 ! !
--- a/ClassChg.st	Mon Jul 15 09:23:57 1996 +0200
+++ b/ClassChg.st	Mon Jul 15 09:30:39 1996 +0200
@@ -17,7 +17,7 @@
 	category:'System-Changes'
 !
 
-!ClassChange class methodsFor:'documentation'!
+!ClassChange  class methodsFor:'documentation'!
 
 copyright
 "
@@ -42,7 +42,7 @@
 "
 ! !
 
-!ClassChange class methodsFor:'instance creation'!
+!ClassChange  class methodsFor:'instance creation'!
 
 class:aClass
     ^ self new class:aClass
@@ -53,13 +53,20 @@
 !ClassChange methodsFor:'accessing'!
 
 class:aClass
+    "set the class of the change"
+
     className := aClass name.
 
     "Created: 3.12.1995 / 14:01:45 / cg"
+    "Modified: 15.7.1996 / 09:28:26 / cg"
 !
 
 className 
+    "return the className of the change"
+
     ^  className
+
+    "Modified: 15.7.1996 / 09:28:35 / cg"
 ! !
 
 !ClassChange methodsFor:'printing'!
@@ -68,8 +75,8 @@
     aStream nextPutAll:source asCollectionOfLines first.
 ! !
 
-!ClassChange class methodsFor:'documentation'!
+!ClassChange  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/ClassChg.st,v 1.13 1996-04-25 17:04:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/ClassChg.st,v 1.14 1996-07-15 07:30:39 cg Exp $'
 ! !
hg/stx-libbasic3