FileSelectionBrowser.st
changeset 1144 480d64f9ad81
parent 1087 60922fe52470
child 1260 6f81c1d73e75
equal deleted inserted replaced
1143:b04847a679fc 1144:480d64f9ad81
   340     ^ holder
   340     ^ holder
   341 
   341 
   342 !
   342 !
   343 
   343 
   344 setRootForFile:aFilename
   344 setRootForFile:aFilename
   345     |f root d parent|
   345     |f root parent|
   346 
   346 
   347     f := aFilename asFilename.
   347     f := aFilename asFilename.
   348     root := Filename rootDirectoryOnVolume:f volume.
   348     root := Filename rootDirectoryOnVolume:f volume.
   349     self directory:aFilename.
   349     self directory:aFilename.
   350 
   350