--- 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!