etstjan@dutepp0.et.tudelft.nl (Jan van Oorschot) (02/07/91)
Hi STV/PM users,
I just installed my 1.2 version of STV/PM and had to solve a bug
in the directory handling of (network-) HPFS disks. The file-browser didn't
see the subdirectories. It assumed that a directory only has the
directory-bit set...... oh wel, just look at the source and the
patch
greetings Jan
JPMvOOrschot@et.tudelft.nl
### bug fix ####
!Directory methods !
extractDirNameFrom: dta
"Private - Answer the directory name
extracted from dta."
| answer |
((dta at: 21) asciiValue bitAnd: 16r10) = 16r10 ifTrue: [
answer := Directory extractFileNameFrom: dta.
(answer = '.' or: [answer = '..'])
ifTrue: [^nil]].
^answer! !