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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 23 Nov 1995 02:55:37 +0100
changeset 85 c354e2f81394
parent 84 e24ee68e2247
child 86 69f0bebb80be
checkin from browser
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
ClassCommentChange.st file | annotate | diff | comparison | revisions
ClassDefinitionChange.st file | annotate | diff | comparison | revisions
ClsComChg.st file | annotate | diff | comparison | revisions
ClsDefChg.st file | annotate | diff | comparison | revisions
MethodCategoryChange.st file | annotate | diff | comparison | revisions
MethodChange.st file | annotate | diff | comparison | revisions
MethodChg.st file | annotate | diff | comparison | revisions
MethodPrivacyChange.st file | annotate | diff | comparison | revisions
MthdCatChg.st file | annotate | diff | comparison | revisions
MthdPrivChg.st file | annotate | diff | comparison | revisions 
--- a/Change.st	Thu Nov 23 02:01:01 1995 +0100
+++ b/Change.st	Thu Nov 23 02:55:37 1995 +0100
@@ -33,14 +33,14 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.8 1995-11-11 15:20:26 cg Exp $'
-!
-
 documentation
 "
     abstract superclass for all kind of changes - managed in changeSets.
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.9 1995-11-23 01:53:49 cg Exp $'
 ! !
 
 !Change methodsFor:'source'!
--- a/ChangeSet.st	Thu Nov 23 02:01:01 1995 +0100
+++ b/ChangeSet.st	Thu Nov 23 02:55:37 1995 +0100
@@ -33,17 +33,16 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.12 1995-11-11 15:20:26 cg Exp $'
-!
-
 documentation
 "
     used in the changes management to keep track of changes
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.13 1995-11-23 01:54:00 cg Exp $'
 ! !
 
-
 !ChangeSet class methodsFor:'queries'!
 
 current
@@ -60,25 +59,8 @@
     "
 ! !
 
-!ChangeSet methodsFor:'misc'!
-
-addPatch:nameOfPatch
-    "ignored for now - allows fileIn of ST-80 patch stuff .."
-
-    ^ self
-! !
-
 !ChangeSet methodsFor:'change management'!
 
-addMethodChange:aMethod in:aClass
-    |newChange|
-
-    newChange := MethodChange class:aClass
-			   selector:(aClass selectorAtMethod:aMethod)
-			     source:aMethod source.
-    self add:newChange
-!
-
 addMethodCategoryChange:aMethod category:newCategory in:aClass
     |newChange|
 
@@ -89,6 +71,15 @@
 
 !
 
+addMethodChange:aMethod in:aClass
+    |newChange|
+
+    newChange := MethodChange class:aClass
+			   selector:(aClass selectorAtMethod:aMethod)
+			     source:aMethod source.
+    self add:newChange
+!
+
 addMethodPrivacyChange:aMethod in:aClass
     |newChange|
 
@@ -100,3 +91,11 @@
     "Modified: 27.8.1995 / 22:55:22 / claus"
 ! !
 
+!ChangeSet methodsFor:'misc'!
+
+addPatch:nameOfPatch
+    "ignored for now - allows fileIn of ST-80 patch stuff .."
+
+    ^ self
+! !
+
--- a/ClassChange.st	Thu Nov 23 02:01:01 1995 +0100
+++ b/ClassChange.st	Thu Nov 23 02:55:37 1995 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-	       All Rights Reserved
+	      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
@@ -33,14 +33,14 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.9 1995-11-11 15:20:27 cg Exp $'
-!
-
 documentation
 "
     Abstract superclass for class related changes
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.10 1995-11-23 01:54:10 cg Exp $'
 ! !
 
 !ClassChange methodsFor:'accessing'!
--- a/ClassChg.st	Thu Nov 23 02:01:01 1995 +0100
+++ b/ClassChg.st	Thu Nov 23 02:55:37 1995 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-	       All Rights Reserved
+	      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
@@ -33,14 +33,14 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/ClassChg.st,v 1.9 1995-11-11 15:20:27 cg Exp $'
-!
-
 documentation
 "
     Abstract superclass for class related changes
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/ClassChg.st,v 1.10 1995-11-23 01:54:10 cg Exp $'
 ! !
 
 !ClassChange methodsFor:'accessing'!
--- a/ClassCommentChange.st	Thu Nov 23 02:01:01 1995 +0100
+++ b/ClassCommentChange.st	Thu Nov 23 02:55:37 1995 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-	       All Rights Reserved
+	      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
@@ -33,15 +33,15 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassCommentChange.st,v 1.10 1995-11-11 15:20:29 cg Exp $'
-!
-
 documentation
 "
     instances represent class comment-changes. They are typically
     held in a ChangeSet.
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassCommentChange.st,v 1.11 1995-11-23 01:54:19 cg Exp $'
 ! !
 
 !ClassCommentChange methodsFor:'accessing'!
@@ -57,3 +57,4 @@
 	    nextPutAll:className;
 	    nextPutAll:')'
 ! !
+
--- a/ClassDefinitionChange.st	Thu Nov 23 02:01:01 1995 +0100
+++ b/ClassDefinitionChange.st	Thu Nov 23 02:55:37 1995 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-	       All Rights Reserved
+	      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
@@ -33,15 +33,15 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.10 1995-11-11 15:20:30 cg Exp $'
-!
-
 documentation
 "
     instances represent class definition-changes. They are typically
     held in a ChangeSet.
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.11 1995-11-23 01:54:24 cg Exp $'
 ! !
 
 !ClassDefinitionChange methodsFor:'printing'!
@@ -51,3 +51,4 @@
 	    nextPutAll:className;
 	    nextPutAll:')'
 ! !
+
--- a/ClsComChg.st	Thu Nov 23 02:01:01 1995 +0100
+++ b/ClsComChg.st	Thu Nov 23 02:55:37 1995 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-	       All Rights Reserved
+	      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
@@ -33,15 +33,15 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/ClsComChg.st,v 1.10 1995-11-11 15:20:29 cg Exp $'
-!
-
 documentation
 "
     instances represent class comment-changes. They are typically
     held in a ChangeSet.
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/ClsComChg.st,v 1.11 1995-11-23 01:54:19 cg Exp $'
 ! !
 
 !ClassCommentChange methodsFor:'accessing'!
@@ -57,3 +57,4 @@
 	    nextPutAll:className;
 	    nextPutAll:')'
 ! !
+
--- a/ClsDefChg.st	Thu Nov 23 02:01:01 1995 +0100
+++ b/ClsDefChg.st	Thu Nov 23 02:55:37 1995 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-	       All Rights Reserved
+	      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
@@ -33,15 +33,15 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/ClsDefChg.st,v 1.10 1995-11-11 15:20:30 cg Exp $'
-!
-
 documentation
 "
     instances represent class definition-changes. They are typically
     held in a ChangeSet.
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/ClsDefChg.st,v 1.11 1995-11-23 01:54:24 cg Exp $'
 ! !
 
 !ClassDefinitionChange methodsFor:'printing'!
@@ -51,3 +51,4 @@
 	    nextPutAll:className;
 	    nextPutAll:')'
 ! !
+
--- a/MethodCategoryChange.st	Thu Nov 23 02:01:01 1995 +0100
+++ b/MethodCategoryChange.st	Thu Nov 23 02:55:37 1995 +0100
@@ -41,7 +41,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryChange.st,v 1.6 1995-11-11 15:20:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryChange.st,v 1.7 1995-11-23 01:54:31 cg Exp $'
 ! !
 
 !MethodCategoryChange class methodsFor:'instance creation'!
@@ -54,15 +54,15 @@
 
 !MethodCategoryChange methodsFor:'accessing'!
 
-source
-    ^ '(' , className , ' compiledMethodAt:#' , selector , ') category:' , category storeString
-
-!
-
 class:cls selector:sel category:cat
     className := cls name.
     selector := sel.
     category := cat
 
+!
+
+source
+    ^ '(' , className , ' compiledMethodAt:#' , selector , ') category:' , category storeString
+
 ! !
 
--- a/MethodChange.st	Thu Nov 23 02:01:01 1995 +0100
+++ b/MethodChange.st	Thu Nov 23 02:55:37 1995 +0100
@@ -41,7 +41,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.10 1995-11-11 15:20:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.11 1995-11-23 01:54:38 cg Exp $'
 ! !
 
 !MethodChange class methodsFor:'instance creation'!
@@ -65,3 +65,4 @@
 		 space; 
 	    nextPutAll:selector 
 ! !
+
--- a/MethodChg.st	Thu Nov 23 02:01:01 1995 +0100
+++ b/MethodChg.st	Thu Nov 23 02:55:37 1995 +0100
@@ -41,7 +41,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MethodChg.st,v 1.10 1995-11-11 15:20:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MethodChg.st,v 1.11 1995-11-23 01:54:38 cg Exp $'
 ! !
 
 !MethodChange class methodsFor:'instance creation'!
@@ -65,3 +65,4 @@
 		 space; 
 	    nextPutAll:selector 
 ! !
+
--- a/MethodPrivacyChange.st	Thu Nov 23 02:01:01 1995 +0100
+++ b/MethodPrivacyChange.st	Thu Nov 23 02:55:37 1995 +0100
@@ -12,8 +12,6 @@
 
     "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:''
@@ -47,7 +45,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodPrivacyChange.st,v 1.3 1995-11-11 15:20:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodPrivacyChange.st,v 1.4 1995-11-23 01:55:37 cg Exp $'
 ! !
 
 !MethodPrivacyChange class methodsFor:'instance creation'!
--- a/MthdCatChg.st	Thu Nov 23 02:01:01 1995 +0100
+++ b/MthdCatChg.st	Thu Nov 23 02:55:37 1995 +0100
@@ -41,7 +41,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MthdCatChg.st,v 1.6 1995-11-11 15:20:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MthdCatChg.st,v 1.7 1995-11-23 01:54:31 cg Exp $'
 ! !
 
 !MethodCategoryChange class methodsFor:'instance creation'!
@@ -54,15 +54,15 @@
 
 !MethodCategoryChange methodsFor:'accessing'!
 
-source
-    ^ '(' , className , ' compiledMethodAt:#' , selector , ') category:' , category storeString
-
-!
-
 class:cls selector:sel category:cat
     className := cls name.
     selector := sel.
     category := cat
 
+!
+
+source
+    ^ '(' , className , ' compiledMethodAt:#' , selector , ') category:' , category storeString
+
 ! !
 
--- a/MthdPrivChg.st	Thu Nov 23 02:01:01 1995 +0100
+++ b/MthdPrivChg.st	Thu Nov 23 02:55:37 1995 +0100
@@ -12,8 +12,6 @@
 
     "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:''
@@ -47,7 +45,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MthdPrivChg.st,v 1.3 1995-11-11 15:20:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MthdPrivChg.st,v 1.4 1995-11-23 01:55:37 cg Exp $'
 ! !
 
 !MethodPrivacyChange class methodsFor:'instance creation'!
hg/stx-libbasic3