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.
*** empty log message ***
authorclaus
Mon, 06 Feb 1995 00:38:51 +0100
changeset 16 fcbfbba03d49
parent 15 639ae882da27
child 17 86bd3a9f6ef0
*** empty log message ***
ChangeSet.st file | annotate | diff | comparison | revisions
MessageTracer.st file | annotate | diff | comparison | revisions
MsgTracer.st file | annotate | diff | comparison | revisions
WMethod.st file | annotate | diff | comparison | revisions
WrappedMethod.st file | annotate | diff | comparison | revisions 
--- a/ChangeSet.st	Mon Feb 06 00:38:26 1995 +0100
+++ b/ChangeSet.st	Mon Feb 06 00:38:51 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
@@ -19,9 +19,9 @@
 
 ChangeSet comment:'
 COPYRIGHT (c) 1993 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.5 1994-08-05 01:06:44 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.6 1995-02-05 23:38:09 claus Exp $
 '!
 
 !ChangeSet class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
 copyright
 "
  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
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.5 1994-08-05 01:06:44 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.6 1995-02-05 23:38:09 claus Exp $
 "
 !
 
@@ -59,8 +59,18 @@
     |newChange|
 
     newChange := MethodChange class:aClass
-                           selector:(aClass selectorForMethod:aMethod)
-                             source:aMethod source.
+			   selector:(aClass selectorForMethod:aMethod)
+			     source:aMethod source.
     self add:newChange
+!
+
+addMethodCategoryChange:aMethod category:newCategory in:aClass
+    |newChange|
+
+    newChange := MethodCategoryChange class:aClass
+				   selector:(aClass selectorForMethod:aMethod)
+				   category:newCategory.
+    self add:newChange
+
 ! !
 
--- a/MessageTracer.st	Mon Feb 06 00:38:26 1995 +0100
+++ b/MessageTracer.st	Mon Feb 06 00:38:51 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.6 1994-11-22 23:07:44 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.7 1995-02-05 23:38:23 claus Exp $
 '!
 
 !MessageTracer class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.6 1994-11-22 23:07:44 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.7 1995-02-05 23:38:23 claus Exp $
 "
 !
 
@@ -480,6 +480,9 @@
     (aMethod isNil or:[aMethod isWrapped]) ifTrue:[
 	^ aMethod
     ].
+    aMethod isLazyMethod ifTrue:[
+	aMethod makeRealMethod
+    ].
 
     "
      get class/selector
--- a/MsgTracer.st	Mon Feb 06 00:38:26 1995 +0100
+++ b/MsgTracer.st	Mon Feb 06 00:38:51 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.6 1994-11-22 23:07:44 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.7 1995-02-05 23:38:23 claus Exp $
 '!
 
 !MessageTracer class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.6 1994-11-22 23:07:44 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.7 1995-02-05 23:38:23 claus Exp $
 "
 !
 
@@ -480,6 +480,9 @@
     (aMethod isNil or:[aMethod isWrapped]) ifTrue:[
 	^ aMethod
     ].
+    aMethod isLazyMethod ifTrue:[
+	aMethod makeRealMethod
+    ].
 
     "
      get class/selector
--- a/WMethod.st	Mon Feb 06 00:38:26 1995 +0100
+++ b/WMethod.st	Mon Feb 06 00:38:51 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic3/Attic/WMethod.st,v 1.4 1994-11-28 20:57:03 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/Attic/WMethod.st,v 1.5 1995-02-05 23:38:51 claus Exp $
 '!
 
 !WrappedMethod class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic3/Attic/WMethod.st,v 1.4 1994-11-28 20:57:03 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/Attic/WMethod.st,v 1.5 1995-02-05 23:38:51 claus Exp $
 "
 !
 
@@ -68,7 +68,7 @@
 
     "a kludge: it must be in the literal array somewhere"
     literals do:[:aLiteral |
-	aLiteral class == Method ifTrue:[
+	(aLiteral isKindOf:Method) ifTrue:[
 	    ^ aLiteral
 	]
     ].
--- a/WrappedMethod.st	Mon Feb 06 00:38:26 1995 +0100
+++ b/WrappedMethod.st	Mon Feb 06 00:38:51 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.4 1994-11-28 20:57:03 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.5 1995-02-05 23:38:51 claus Exp $
 '!
 
 !WrappedMethod class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.4 1994-11-28 20:57:03 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.5 1995-02-05 23:38:51 claus Exp $
 "
 !
 
@@ -68,7 +68,7 @@
 
     "a kludge: it must be in the literal array somewhere"
     literals do:[:aLiteral |
-	aLiteral class == Method ifTrue:[
+	(aLiteral isKindOf:Method) ifTrue:[
 	    ^ aLiteral
 	]
     ].
hg/stx-libbasic3