[comp.lang.smalltalk] bug in STV/PM 1.2

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! !