The Trunk: Tools-mva.748.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Tools-mva.748.mcz

commits-2
Nicolas Cellier uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mva.748.mcz

==================== Summary ====================

Name: Tools-mva.748
Author: mva
Time: 15 March 2017, 4:58:37.421419 pm
UUID: 8ef7567d-e7b4-4879-81de-6bce929e3bbf
Ancestors: Tools-ul.747

fix selecting a directory in the left pane in a MVC project FileList on Mac and Linux (and it still works on Windows afterwards)

=============== Diff against Tools-ul.747 ===============

Item was changed:
  ----- Method: FileList>>volumeListIndex: (in category 'volume list and pattern') -----
  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: (FileDirectory on: path)].
- self directory: (directory on: path)].
  brevityState := #FileList.
  self addPath: path.
  self changed: #fileList.
  self changed: #contents.
  self updateButtonRow.!