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.
initial checkin
authorClaus Gittinger <cg@exept.de>
Mon, 16 Feb 1998 14:59:29 +0100
changeset 653 b873bb41ef10
parent 652 b9e4b4465a2c
child 654 edeb63d98088
initial checkin
ClassRemoveChange.st file | annotate | diff | comparison | revisions
ClassRenameChange.st file | annotate | diff | comparison | revisions
DoItChange.st file | annotate | diff | comparison | revisions
MethodCategoryRenameChange.st file | annotate | diff | comparison | revisions
MethodRemoveChange.st file | annotate | diff | comparison | revisions
NameSpaceCreationChange.st file | annotate | diff | comparison | revisions 
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ClassRemoveChange.st	Mon Feb 16 14:59:29 1998 +0100
@@ -0,0 +1,29 @@
+ClassChange subclass:#ClassRemoveChange
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'System-Changes'
+!
+
+!ClassRemoveChange class methodsFor:'documentation'!
+
+history
+
+    "Created: / 16.2.1998 / 14:18:55 / cg"
+    "Created: #printOn: / 16.2.1998 / 14:19:48 / cg"
+! !
+
+!ClassRemoveChange methodsFor:'printing'!
+
+printOn:aStream
+    aStream nextPutAll:'Smalltalk removeClass:';
+            nextPutAll:className storeString
+
+    "Created: / 16.2.1998 / 14:19:48 / cg"
+! !
+
+!ClassRemoveChange class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassRemoveChange.st,v 1.1 1998-02-16 13:57:53 cg Exp $'
+! !
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ClassRenameChange.st	Mon Feb 16 14:59:29 1998 +0100
@@ -0,0 +1,41 @@
+ClassChange subclass:#ClassRenameChange
+	instanceVariableNames:'newName'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'System-Changes'
+!
+
+!ClassRenameChange class methodsFor:'documentation'!
+
+history
+
+    "Created: / 16.2.1998 / 14:22:12 / cg"
+    "Created: #oldName:newName: / 16.2.1998 / 14:22:38 / cg"
+    "Created: #printOn: / 16.2.1998 / 14:23:35 / cg"
+! !
+
+!ClassRenameChange methodsFor:'accessing'!
+
+oldName:oldName newName:newNameString
+    className := oldName.
+    newName := newNameString
+
+    "Created: / 16.2.1998 / 14:22:38 / cg"
+! !
+
+!ClassRenameChange methodsFor:'printing'!
+
+printOn:aStream
+    aStream nextPutAll:'Smalltalk renameClass:';
+            nextPutAll:className storeString;
+            nextPutAll:' to:';
+            nextPutAll:newName storeString
+
+    "Created: / 16.2.1998 / 14:23:35 / cg"
+! !
+
+!ClassRenameChange class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassRenameChange.st,v 1.1 1998-02-16 13:58:12 cg Exp $'
+! !
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/DoItChange.st	Mon Feb 16 14:59:29 1998 +0100
@@ -0,0 +1,19 @@
+Change subclass:#DoItChange
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'System-Changes'
+!
+
+!DoItChange class methodsFor:'documentation'!
+
+history
+
+    "Created: / 16.2.1998 / 14:38:29 / cg"
+! !
+
+!DoItChange class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/DoItChange.st,v 1.1 1998-02-16 13:58:36 cg Exp $'
+! !
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MethodCategoryRenameChange.st	Mon Feb 16 14:59:29 1998 +0100
@@ -0,0 +1,44 @@
+ClassChange subclass:#MethodCategoryRenameChange
+	instanceVariableNames:'oldCategoryName newCategoryName'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'System-Changes'
+!
+
+!MethodCategoryRenameChange class methodsFor:'documentation'!
+
+history
+
+    "Created: / 16.2.1998 / 13:09:33 / cg"
+    "Created: #oldCategoryName:newCategoryName: / 16.2.1998 / 13:10:20 / cg"
+    "Created: #printOn: / 16.2.1998 / 13:36:08 / cg"
+    "Modified: #printOn: / 16.2.1998 / 13:36:28 / cg"
+! !
+
+!MethodCategoryRenameChange methodsFor:'accessing'!
+
+oldCategoryName:oldCatString newCategoryName:newCatString
+    oldCategoryName := oldCatString.
+    newCategoryName := newCatString.
+
+    "Created: / 16.2.1998 / 13:10:20 / cg"
+! !
+
+!MethodCategoryRenameChange methodsFor:'printing'!
+
+printOn:aStream
+    aStream 
+        nextPutAll:className; 
+        nextPutAll:' renameCategory:'; 
+        nextPutAll:oldCategoryName asString storeString; 
+        nextPutAll:' to:'; 
+        nextPutAll:newCategoryName asString storeString
+
+    "Modified: / 16.2.1998 / 13:36:28 / cg"
+! !
+
+!MethodCategoryRenameChange class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryRenameChange.st,v 1.1 1998-02-16 13:58:57 cg Exp $'
+! !
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MethodRemoveChange.st	Mon Feb 16 14:59:29 1998 +0100
@@ -0,0 +1,51 @@
+ClassChange subclass:#MethodRemoveChange
+	instanceVariableNames:'selector'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'System-Changes'
+!
+
+!MethodRemoveChange class methodsFor:'documentation'!
+
+history
+
+    "Created: / 16.2.1998 / 12:47:20 / cg"
+    "Created: #class:selector: / 16.2.1998 / 12:47:39 / cg"
+    "Created: #printOn: / 16.2.1998 / 12:50:42 / cg"
+    "Created: #className:selector: / 16.2.1998 / 12:51:57 / cg"
+! !
+
+!MethodRemoveChange methodsFor:'accessing'!
+
+class:cls selector:sel
+    className := cls name.
+    selector := sel
+
+    "Modified: / 27.8.1995 / 22:56:03 / claus"
+    "Created: / 16.2.1998 / 12:47:39 / cg"
+!
+
+className:clsName selector:sel
+    className := clsName.
+    selector := sel
+
+    "Modified: / 27.8.1995 / 22:56:03 / claus"
+    "Created: / 16.2.1998 / 12:51:57 / cg"
+! !
+
+!MethodRemoveChange methodsFor:'printing'!
+
+printOn:aStream
+    aStream     
+        nextPutAll:className; 
+        nextPutAll:' removeSelector:'; 
+        nextPutAll:selector storeString
+
+    "Created: / 16.2.1998 / 12:50:42 / cg"
+! !
+
+!MethodRemoveChange class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodRemoveChange.st,v 1.1 1998-02-16 13:59:14 cg Exp $'
+! !
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/NameSpaceCreationChange.st	Mon Feb 16 14:59:29 1998 +0100
@@ -0,0 +1,38 @@
+Change subclass:#NameSpaceCreationChange
+	instanceVariableNames:'nameSpaceName'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'System-Changes'
+!
+
+!NameSpaceCreationChange class methodsFor:'documentation'!
+
+history
+
+    "Created: / 16.2.1998 / 14:30:51 / cg"
+    "Created: #name: / 16.2.1998 / 14:31:14 / cg"
+    "Created: #printOn: / 16.2.1998 / 14:31:41 / cg"
+! !
+
+!NameSpaceCreationChange methodsFor:'accessing'!
+
+name:nm
+    nameSpaceName := nm
+
+    "Created: / 16.2.1998 / 14:31:14 / cg"
+! !
+
+!NameSpaceCreationChange methodsFor:'printing'!
+
+printOn:aStream
+    aStream nextPutAll:'NameSpace name:'; 
+            nextPutAll:nameSpaceName storeString
+
+    "Created: / 16.2.1998 / 14:31:41 / cg"
+! !
+
+!NameSpaceCreationChange class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/NameSpaceCreationChange.st,v 1.1 1998-02-16 13:59:29 cg Exp $'
+! !
hg/stx-libbasic3