The Trunk: ToolBuilder-Morphic-mt.242.mcz

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.242.mcz

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

Name: ToolBuilder-Morphic-mt.242
Author: mt
Time: 18 September 2019, 9:17:15.560595 am
UUID: e02a2718-8003-4152-adf5-363ded77b45a
Ancestors: ToolBuilder-Morphic-mt.241

Minor tweaks to scrollbars in file dialogs. Due to the compact nature of file saver/chooser, provide a horizontal bar for the dialog tree when needed. In the directory chooser, one can more easily use the grips.

=============== Diff against ToolBuilder-Morphic-mt.241 ===============

Item was added:
+ ----- Method: DirectoryChooserDialog>>buildDirectoryTreeWith: (in category 'toolbuilder') -----
+ buildDirectoryTreeWith: builder
+
+ ^ (super buildDirectoryTreeWith: builder)
+ hScrollBarPolicy: #never; "Use the dialog grips to see more"
+ yourself!

Item was changed:
  ----- Method: FileAbstractSelectionDialog>>buildDirectoryTreeWith: (in category 'toolbuilder') -----
  buildDirectoryTreeWith: builder
  | treeSpec |
  treeSpec := builder pluggableTreeSpec new.
  treeSpec
  model: self ;
  roots: #rootDirectoryList ;
  hasChildren: #hasMoreDirectories: ;
  getChildren: #subDirectoriesOf: ;
  getSelectedPath: #selectedPath ;
  setSelected: #setDirectoryTo: ;
  getSelected: #directory;
  label: #directoryNameOf: ;
  menu: nil ;
+ autoDeselect: false ;
+ hScrollBarPolicy: #whenNeeded.
- autoDeselect: false.
  ^ treeSpec!

Item was changed:
  ----- Method: FileAbstractSelectionDialog>>buildFileListWith: (in category 'toolbuilder') -----
  buildFileListWith: builder
  | listSpec |
  listSpec := builder pluggableListSpec new.
  listSpec
  model: self ;
  list: #fileList ;
  getIndex: #fileListIndex ;
  setIndex: #fileListIndex: ;
  menu: nil ;
  keyPress: nil ;
  frame:
  (self
  frameOffsetFromTop:0
  fromLeft: 0
  width: 1
  bottomFraction: 1);
+ hScrollBarPolicy: #whenNeeded .
- hScrollBarPolicy: #always .
  ^listSpec!