--- a/AbstractOperatingSystem.st Fri Jun 03 18:15:16 2011 +0100
+++ b/AbstractOperatingSystem.st Wed Jun 08 22:53:07 2011 +0100
@@ -189,13 +189,18 @@
ResourcePack notNil ifTrue:[
Error handle:[:ex |
- 'OS [warning]: error when reading resources for libbasic' errorPrintCR.
+ 'OS [warning]: error when reading resources for libbasic:' errorPrintCR.
+ 'OS [info]: 'errorPrint. ex description errorPrintCR.
+ 'OS [info]: backtrace: ' errorPrintCR.
+ self withErrorStreamDo:[:s |
+ ex suspendedContext fullPrintAllOn:s.
+ ].
] do:[
Resources := ResourcePack forPackage:(self package).
].
]
- "Modified: / 01-10-2007 / 12:14:43 / cg"
+ "Modified: / 21-04-2011 / 12:48:02 / cg"
!
initialize
@@ -668,6 +673,10 @@
(as kept in an osErrorHolder)."
Resources isNil ifTrue:[
+ "/ do not care to load resource strings, if the error happens durig early initialization
+ Smalltalk isInitialized ifFalse:[
+ ^ errorSymbol
+ ].
self initResources.
Resources isNil ifTrue:[
^ errorSymbol
@@ -680,7 +689,7 @@
OperatingSystem errorStringForSymbol:(OperatingSystem errorSymbolForNumber:4)
"
- "Modified: / 01-10-2007 / 12:14:52 / cg"
+ "Modified: / 21-04-2011 / 13:13:29 / cg"
!
errorSymbolAndTextForNumber:errNr
@@ -7025,15 +7034,15 @@
!AbstractOperatingSystem class methodsFor:'documentation'!
version
- ^ '$Id: AbstractOperatingSystem.st 10632 2011-04-09 17:19:04Z vranyj1 $'
+ ^ '$Id: AbstractOperatingSystem.st 10643 2011-06-08 21:53:07Z vranyj1 $'
!
version_CVS
- ^ 'Header: /var/local/cvs/stx/libbasic/AbstractOperatingSystem.st,v 1.210 2011-03-08 17:48:53 stefan Exp '
+ ^ 'Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.213 2011/04/21 11:13:33 cg Exp '
!
version_SVN
- ^ '$Id: AbstractOperatingSystem.st 10632 2011-04-09 17:19:04Z vranyj1 $'
+ ^ '$Id: AbstractOperatingSystem.st 10643 2011-06-08 21:53:07Z vranyj1 $'
! !
AbstractOperatingSystem initialize!
@@ -7045,3 +7054,4 @@
+