DirectoryContentsBrowser.st
changeset 5321 4839bfb1a28d
parent 5312 63b275aa2c69
child 5334 637f49d94b1b
equal deleted inserted replaced
5320:322c753155a1 5321:4839bfb1a28d
  1110 
  1110 
  1111     filename baseName = '..' ifTrue:[
  1111     filename baseName = '..' ifTrue:[
  1112         self currentFileNameHolder value:(OrderedCollection with:(self directory directory)).
  1112         self currentFileNameHolder value:(OrderedCollection with:(self directory directory)).
  1113         ^ self.
  1113         ^ self.
  1114     ].
  1114     ].
  1115     (anItem fileName isDirectory) ifTrue:[
  1115     (filename isDirectory) ifTrue:[
  1116         self currentFileNameHolder value:(OrderedCollection with:filename).
  1116         self currentFileNameHolder value:(OrderedCollection with:filename).
  1117         ^ self.
  1117         ^ self.
  1118     ].
  1118     ].
  1119     self withWaitCursorDo:[
  1119     self withWaitCursorDo:[
  1120         self openApplByFileItem:anItem.
  1120         self openApplByFileItem:anItem.
  3088 ! !
  3088 ! !
  3089 
  3089 
  3090 !DirectoryContentsBrowser class methodsFor:'documentation'!
  3090 !DirectoryContentsBrowser class methodsFor:'documentation'!
  3091 
  3091 
  3092 version
  3092 version
  3093     ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.135 2003-10-24 11:20:48 cg Exp $'
  3093     ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.136 2003-10-27 10:09:37 cg Exp $'
  3094 ! !
  3094 ! !