# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 901838398 -7200
# Node ID 062ee48ece199f3539e32dff0f0ace6ecbf60fe6
# Parent  d754acb87c1b5425956f24016678269cce475ef1
checkin from browser

diff -r d754acb87c1b -r 062ee48ece19 MessageTracer.st
--- a/MessageTracer.st	Thu Jul 30 22:05:50 1998 +0200
+++ b/MessageTracer.st	Fri Jul 31 00:39:58 1998 +0200
@@ -2485,14 +2485,6 @@
 
 !MessageTracer class methodsFor:'trace helpers'!
 
-traceEntryFull:aContext on:aStream
-    aStream nextPutLine:'-----------------------------------------'.
-    aContext fullPrintAllOn:aStream
-
-    "Created: / 30.7.1998 / 20:39:57 / cg"
-    "Modified: / 30.7.1998 / 20:42:23 / cg"
-!
-
 dummyEmptyMethod
     "helper - to get the time it takes to evaluate the wrappers for
      a dummy method."
@@ -2661,6 +2653,14 @@
     self printExit:aContext with:retVal level:0 on:aStream
 !
 
+traceEntryFull:aContext on:aStream
+    aStream nextPutLine:'-----------------------------------------'.
+    aContext fullPrintAllOn:aStream
+
+    "Created: / 30.7.1998 / 20:39:57 / cg"
+    "Modified: / 30.7.1998 / 20:42:23 / cg"
+!
+
 traceFullBlockFor:aStream
     "avoid generation of fullBlocks"
 
@@ -2740,6 +2740,6 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.71 1998-07-30 20:05:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.72 1998-07-30 22:39:58 cg Exp $'
 ! !
 MessageTracer initialize!
diff -r d754acb87c1b -r 062ee48ece19 MsgTracer.st
--- a/MsgTracer.st	Thu Jul 30 22:05:50 1998 +0200
+++ b/MsgTracer.st	Fri Jul 31 00:39:58 1998 +0200
@@ -2485,14 +2485,6 @@
 
 !MessageTracer class methodsFor:'trace helpers'!
 
-traceEntryFull:aContext on:aStream
-    aStream nextPutLine:'-----------------------------------------'.
-    aContext fullPrintAllOn:aStream
-
-    "Created: / 30.7.1998 / 20:39:57 / cg"
-    "Modified: / 30.7.1998 / 20:42:23 / cg"
-!
-
 dummyEmptyMethod
     "helper - to get the time it takes to evaluate the wrappers for
      a dummy method."
@@ -2661,6 +2653,14 @@
     self printExit:aContext with:retVal level:0 on:aStream
 !
 
+traceEntryFull:aContext on:aStream
+    aStream nextPutLine:'-----------------------------------------'.
+    aContext fullPrintAllOn:aStream
+
+    "Created: / 30.7.1998 / 20:39:57 / cg"
+    "Modified: / 30.7.1998 / 20:42:23 / cg"
+!
+
 traceFullBlockFor:aStream
     "avoid generation of fullBlocks"
 
@@ -2740,6 +2740,6 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.71 1998-07-30 20:05:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.72 1998-07-30 22:39:58 cg Exp $'
 ! !
 MessageTracer initialize!