Mercurial Mercurial > hg > stx-libview / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ResourcePack.st
changeset 3407 4099e88bcab1
parent 3317 fbad8f950059
child 3422 f00c788fa81f 
--- a/ResourcePack.st	Tue Mar 06 13:48:34 2001 +0100
+++ b/ResourcePack.st	Mon Mar 19 10:13:00 2001 +0100
@@ -694,6 +694,9 @@
                             ErrorSignal handle:[:ex |
                                 ('ResourcePack [warning]: ''' , ex errorString , '''') errorPrintCR.
                                 ('ResourcePack [info]: file: ' , inStream pathName printString , ' line: ' , lNo printString , ': ''' , lineString , '''') errorPrintCR.
+                                ('ResourcePack [info]: in: ' , ex suspendedContext fullPrintString) errorPrintCR.
+                                ('ResourcePack [info]:   : ' , ex suspendedContext sender fullPrintString) errorPrintCR.
+                                ('ResourcePack [info]:   : ' , ex suspendedContext sender sender fullPrintString) errorPrintCR.
                                 value := nil.
                             ] do:[
                                 value := Compiler evaluate:rest compile:false.
@@ -753,6 +756,9 @@
                         ErrorSignal handle:[:ex |
                             ('ResourcePack [warning]: ''' , ex errorString , '''') errorPrintCR.
                             ('ResourcePack [info]: file: ' , inStream pathName printString , ' line: ' , lNo printString , ': ''' , lineString , '''') errorPrintCR.
+                            ('ResourcePack [info]: in: ' , ex suspendedContext fullPrintString) errorPrintCR.
+                            ('ResourcePack [info]:   : ' , ex suspendedContext sender fullPrintString) errorPrintCR.
+                            ('ResourcePack [info]:   : ' , ex suspendedContext sender sender fullPrintString) errorPrintCR.
                             ok := false.
                         ] do:[
                             self 
@@ -776,6 +782,6 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.65 2000-09-28 06:50:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.66 2001-03-19 09:13:00 cg Exp $'
 ! !
 ResourcePack initialize!
hg/stx-libview