DebugView.st
changeset 1926 3fbf7b616bcd
parent 1917 200617958f79
child 1960 e317efd283b8
--- a/DebugView.st	Tue Oct 13 16:53:55 1998 +0200
+++ b/DebugView.st	Tue Oct 13 19:58:08 1998 +0200
@@ -832,8 +832,8 @@
                  have to catch errors occuring in unwind-blocks
                 "
                 Object errorSignal handle:[:ex |
-                    'DebugView [info]: ignored error while unwinding: ' errorPrint.
-                    ex errorString errorPrintCR.
+                    'DebugView [info]: ignored error while unwinding: ' infoPrint.
+                    ex errorString infoPrintCR.
                     ex proceed
                 ] do:[
                     con unwind:retval.
@@ -988,6 +988,7 @@
     "Modified: / 17.4.1997 / 13:01:32 / stefan"
     "Created: / 30.10.1997 / 21:08:18 / cg"
     "Modified: / 29.7.1998 / 15:05:37 / cg"
+    "Modified: / 13.10.1998 / 19:56:59 / ps"
 !
 
 openOn:aProcess
@@ -3878,6 +3879,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.218 1998-10-05 12:04:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.219 1998-10-13 17:58:08 cg Exp $'
 ! !
 DebugView initialize!