--- a/FileBrowser.st Fri Oct 26 10:14:04 2001 +0200
+++ b/FileBrowser.st Fri Oct 26 10:15:52 2001 +0200
@@ -2020,6 +2020,12 @@
SmalltalkInterchangeFileManager newForFileIn
fileName: path pathName;
fileIn.
+ ] ifFalse:[ (path hasSuffix:'pcl') ifTrue:[
+ Parcel isNil ifTrue:[
+ self warn:'Parcel support not loaded.'
+ ] ifFalse:[
+ Parcel loadParcelFrom: path pathName
+ ]
] ifFalse:[
"/ loading a regular (chunk) or xml source file
aStream := path readStream.
@@ -2035,7 +2041,7 @@
aStream close
]
]
- ]]
+ ]]]
]]
].
currentFileInFileName := prevCurrentFileName
@@ -7404,5 +7410,5 @@
!FileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.429 2001-10-22 08:23:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.430 2001-10-26 08:15:52 cg Exp $'
! !