--- a/WMethod.st	Thu Apr 11 15:43:59 1996 +0200
+++ b/WMethod.st	Tue Apr 16 11:29:06 1996 +0200
@@ -11,10 +11,10 @@
 "
 
 Method subclass:#WrappedMethod
-	 instanceVariableNames:''
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Kernel-Methods'
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Kernel-Methods'
 !
 
 !WrappedMethod class methodsFor:'documentation'!
@@ -33,26 +33,43 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/WMethod.st,v 1.9 1995-11-11 15:20:50 cg Exp $'
-!
-
 documentation
 "
     support for MessageTracer
 "
 ! !
 
-!WrappedMethod methodsFor:'queries'!
+!WrappedMethod methodsFor:'accessing'!
+
+basicLiterals
+    "return my literals"
+
+    ^ literals
+!
+
+literals
+    "return the wrapped methods literals"
+
+    ^ self originalMethod literals
+!
 
-isWrapped
-    "return true, if the receiver is a wrapped method.
-     True is returned here, since the receiver is always a wrapped one"
+methodArgAndVarNames
+    "return the names of the args and locals of the wrapped method."
+
+    ^ self originalMethod methodArgAndVarNames
+!
+
+methodVarNames
+    "return the names of the locals of the wrapped method."
 
-    ^ true
-! !
+    ^ self originalMethod methodVarNames 
+!
 
-!WrappedMethod methodsFor:'accessing'!
+numberOfMethodVars
+    "return the number of locals in the wrapped method."
+
+    ^ self originalMethod numberOfMethodVars 
+!
 
 originalMethod
     "return the method the receiver is wrapping"
@@ -66,39 +83,23 @@
     ^ nil
 !
 
-basicLiterals
-    "return my literals"
-
-    ^ literals
-!
-
 source
     "return the wrapped methods source"
 
     ^ self originalMethod source
-!
-
-literals
-    "return the wrapped methods literals"
-
-    ^ self originalMethod literals
-!
-
-numberOfMethodVars
-    "return the number of locals in the wrapped method."
-
-    ^ self originalMethod numberOfMethodVars 
-!
-
-methodVarNames
-    "return the names of the locals of the wrapped method."
-
-    ^ self originalMethod methodVarNames 
-!
-
-methodArgAndVarNames
-    "return the names of the args and locals of the wrapped method."
-
-    ^ self originalMethod methodArgAndVarNames
 ! !
 
+!WrappedMethod methodsFor:'queries'!
+
+isWrapped
+    "return true, if the receiver is a wrapped method.
+     True is returned here, since the receiver is always a wrapped one"
+
+    ^ true
+! !
+
+!WrappedMethod class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/WMethod.st,v 1.10 1996-04-16 09:29:06 cg Exp $'
+! !

--- a/WrappedMethod.st	Thu Apr 11 15:43:59 1996 +0200
+++ b/WrappedMethod.st	Tue Apr 16 11:29:06 1996 +0200
@@ -11,10 +11,10 @@
 "
 
 Method subclass:#WrappedMethod
-	 instanceVariableNames:''
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Kernel-Methods'
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Kernel-Methods'
 !
 
 !WrappedMethod class methodsFor:'documentation'!
@@ -33,26 +33,43 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.9 1995-11-11 15:20:50 cg Exp $'
-!
-
 documentation
 "
     support for MessageTracer
 "
 ! !
 
-!WrappedMethod methodsFor:'queries'!
+!WrappedMethod methodsFor:'accessing'!
+
+basicLiterals
+    "return my literals"
+
+    ^ literals
+!
+
+literals
+    "return the wrapped methods literals"
+
+    ^ self originalMethod literals
+!
 
-isWrapped
-    "return true, if the receiver is a wrapped method.
-     True is returned here, since the receiver is always a wrapped one"
+methodArgAndVarNames
+    "return the names of the args and locals of the wrapped method."
+
+    ^ self originalMethod methodArgAndVarNames
+!
+
+methodVarNames
+    "return the names of the locals of the wrapped method."
 
-    ^ true
-! !
+    ^ self originalMethod methodVarNames 
+!
 
-!WrappedMethod methodsFor:'accessing'!
+numberOfMethodVars
+    "return the number of locals in the wrapped method."
+
+    ^ self originalMethod numberOfMethodVars 
+!
 
 originalMethod
     "return the method the receiver is wrapping"
@@ -66,39 +83,23 @@
     ^ nil
 !
 
-basicLiterals
-    "return my literals"
-
-    ^ literals
-!
-
 source
     "return the wrapped methods source"
 
     ^ self originalMethod source
-!
-
-literals
-    "return the wrapped methods literals"
-
-    ^ self originalMethod literals
-!
-
-numberOfMethodVars
-    "return the number of locals in the wrapped method."
-
-    ^ self originalMethod numberOfMethodVars 
-!
-
-methodVarNames
-    "return the names of the locals of the wrapped method."
-
-    ^ self originalMethod methodVarNames 
-!
-
-methodArgAndVarNames
-    "return the names of the args and locals of the wrapped method."
-
-    ^ self originalMethod methodArgAndVarNames
 ! !
 
+!WrappedMethod methodsFor:'queries'!
+
+isWrapped
+    "return true, if the receiver is a wrapped method.
+     True is returned here, since the receiver is always a wrapped one"
+
+    ^ true
+! !
+
+!WrappedMethod class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.10 1996-04-16 09:29:06 cg Exp $'
+! !