'From Squeak3.3alpha of 12 January 2002 [latest update: #4767] on 21 February 2002 at 2:02:57 am'! "Change Set: chgDir-sw Date: 21 February 2002 Author: Scott Wallace Published in 3.3a as 4768chgDir-sw.cs. Further fileList fix -- when the directory is changed, reconfigure the button pane."! !FileList methodsFor: 'volume list and pattern' stamp: 'sw 2/21/2002 02:01'! volumeListIndex: index "Select the volume name having the given index." | delim path | volListIndex := index. index = 1 ifTrue: [self directory: (FileDirectory on: '')] ifFalse: [delim := directory pathNameDelimiter. path := String streamContents: [:strm | 2 to: index do: [:i | strm nextPutAll: (volList at: i) withBlanksTrimmed. i < index ifTrue: [strm nextPut: delim]]]. self directory: (directory on: path)]. brevityState := #FileList. self addPath: path. self changed: #fileList. self changed: #contents. self updateButtonRow! !