The Trunk: Tools-tpr.781.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-tpr.781.mcz

commits-2
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@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!