[Pkg] The Trunk: ToolBuilder-Morphic-mt.242.mcz

[commits at source.squeak.org]

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!