--- a/ResourcePack.st Tue Feb 03 17:50:40 2004 +0100
+++ b/ResourcePack.st Tue Feb 03 18:13:35 2004 +0100
@@ -242,6 +242,7 @@
ResourcePack fromFile:'FBrowser.rs'
ResourcePack fromFile:'Smalltalk.rs'
ResourcePack fromFile:'Smalltalk.rs' asFilename
+ ResourcePack fromFile:'../../libtool/resources/AboutBox_ru.rs' asFilename
"
!
@@ -839,7 +840,17 @@
] ifFalse:[
(lineString startsWith:'encoding') ifTrue:[
rest := lineString copyFrom:9.
- encoding := rest withoutSeparators asSymbol
+ rest := rest withoutSeparators.
+ (rest startsWith:'#') ifTrue:[
+ rest := rest copyFrom:2.
+ ].
+ (rest startsWith:'''') ifTrue:[
+ rest := rest copyFrom:2.
+ (rest endsWith:'''') ifTrue:[
+ rest := rest copyWithoutLast:1.
+ ].
+ ].
+ encoding := rest asSymbol.
]
]
]
@@ -880,7 +891,7 @@
!ResourcePack class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.81 2004-02-03 15:47:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.82 2004-02-03 17:13:35 cg Exp $'
! !
ResourcePack initialize!