[Pkg] The Trunk: Tools-tpr.781.mcz

[commits at source.squeak.org]

tim Rowledge uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-tpr.781.mcz

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

Name: Tools-tpr.781
Author: tpr
Time: 21 December 2017, 12:12:06.862491 pm
UUID: aff0d926-0733-4bdb-b10a-cd95a4ca7ee9
Ancestors: Tools-tpr.780

Class comment fr DirectoryChooser, couple of improvements

=============== Diff against Tools-tpr.780 ===============

Item was changed:
  FileAbstractSelectionDialog subclass: #DirectoryChooserDialog
  	instanceVariableNames: ''
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Tools-FileDialogs'!
+ 
+ !DirectoryChooserDialog commentStamp: 'tpr 12/21/2017 11:32' prior: 0!
+ A DirectoryChooserDialog is a modal dialog to allow choosing a directory. The full directory name is returned, or nil if no selection was made.
+ 
+ Normal usage would be 
+ 	myDirname := DirectoryChooserDialog openOn: myApplicationDefaultDirectory label: 'Choose the directory to use'
+ !

Item was added:
+ ----- Method: DirectoryChooserDialog class>>openOn:label: (in category 'instance creation') -----
+ openOn: aDirectory label: labelString
+ 	"open a directory chooser starting with aDirectory"
+ 
+ 	^DirectoryChooserDialog new
+ 		directory: aDirectory;
+ 		message: labelString;
+ 		getUserResponse!

Item was added:
+ ----- Method: DirectoryChooserDialog>>initialExtent (in category 'toolbuilder') -----
+ initialExtent
+ 	"Since this is a single list it can be a bit narrower than a FileChooserDialog"
+ 
+ 	^300 at 400!

Item was added:
+ ----- Method: FileChooserDialog class>>openOnPattern:label: (in category 'instance creation') -----
+ openOnPattern: patternList label: messageString
+ 	"open a modal dialog to choose a file. Start the dialog with aDirectory selected and files matching the default 'everything' pattern"
+ 
+ 	^self new
+ 		pattern: patternList;
+ 		message: messageString;
+ 		getUserResponse!