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 Gittinger <cg@exept.de>
Mon, 04 Nov 1996 23:44:08 +0100
changeset 508 b9ac899e85c6
parent 507 2a07d528e4fd
child 509 17e51258629f
*** empty log message ***
WMethod.st file | annotate | diff | comparison | revisions
WrappedMethod.st file | annotate | diff | comparison | revisions 
--- a/WMethod.st	Mon Nov 04 17:42:40 1996 +0100
+++ b/WMethod.st	Mon Nov 04 23:44:08 1996 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.9 on 25-jun-1996 at 22:12:32'                   !
-
 Method subclass:#WrappedMethod
 	instanceVariableNames:''
 	classVariableNames:''
@@ -19,7 +17,7 @@
 	category:'Kernel-Methods'
 !
 
-!WrappedMethod  class methodsFor:'documentation'!
+!WrappedMethod class methodsFor:'documentation'!
 
 copyright
 "
@@ -75,10 +73,12 @@
     ^ self originalMethod methodVarNames 
 !
 
-numberOfMethodVars
+numVars
     "return the number of locals in the wrapped method."
 
-    ^ self originalMethod numberOfMethodVars 
+    ^ self originalMethod numVars
+
+    "Created: 4.11.1996 / 21:40:10 / cg"
 !
 
 originalMethod
@@ -110,8 +110,8 @@
     ^ true
 ! !
 
-!WrappedMethod  class methodsFor:'documentation'!
+!WrappedMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/WMethod.st,v 1.12 1996-06-28 15:32:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/WMethod.st,v 1.13 1996-11-04 22:44:08 cg Exp $'
 ! !
--- a/WrappedMethod.st	Mon Nov 04 17:42:40 1996 +0100
+++ b/WrappedMethod.st	Mon Nov 04 23:44:08 1996 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.9 on 25-jun-1996 at 22:12:32'                   !
-
 Method subclass:#WrappedMethod
 	instanceVariableNames:''
 	classVariableNames:''
@@ -19,7 +17,7 @@
 	category:'Kernel-Methods'
 !
 
-!WrappedMethod  class methodsFor:'documentation'!
+!WrappedMethod class methodsFor:'documentation'!
 
 copyright
 "
@@ -75,10 +73,12 @@
     ^ self originalMethod methodVarNames 
 !
 
-numberOfMethodVars
+numVars
     "return the number of locals in the wrapped method."
 
-    ^ self originalMethod numberOfMethodVars 
+    ^ self originalMethod numVars
+
+    "Created: 4.11.1996 / 21:40:10 / cg"
 !
 
 originalMethod
@@ -110,8 +110,8 @@
     ^ true
 ! !
 
-!WrappedMethod  class methodsFor:'documentation'!
+!WrappedMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.12 1996-06-28 15:32:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.13 1996-11-04 22:44:08 cg Exp $'
 ! !
hg/stx-libbasic3