The Trunk: ToolBuilder-Morphic-tpr.219.mcz

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

The Trunk: ToolBuilder-Morphic-tpr.219.mcz

commits-2
tim Rowledge uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-tpr.219.mcz

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

Name: ToolBuilder-Morphic-tpr.219
Author: tpr
Time: 28 May 2018, 10:51:16.292529 am
UUID: e9c527a5-216d-4d62-8020-0592a535118a
Ancestors: ToolBuilder-Morphic-mt.218

Correct class comment for DirectoryChooserDialog. Add method to provide Project load/save directory choosing.

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

Item was changed:
  FileAbstractSelectionDialog subclass: #DirectoryChooserDialog
  instanceVariableNames: ''
  classVariableNames: ''
  poolDictionaries: ''
  category: 'ToolBuilder-Morphic-Tools'!
 
+ !DirectoryChooserDialog commentStamp: 'tpr 4/2/2018 09:52' prior: 0!
+ A DirectoryChooserDialog is a modal dialog to allow choosing a directory. The actual directory chosen is returned, or nil if no selection was made.
- !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
+ myDirectory := DirectoryChooserDialog openOn: myApplicationDefaultDirectory label: 'Choose the directory to use'
- myDirname := DirectoryChooserDialog openOn: myApplicationDefaultDirectory label: 'Choose the directory to use'
  !

Item was added:
+ ----- Method: DirectoryChooserDialog class>>findAFolderForProject:label: (in category 'instance creation') -----
+ findAFolderForProject: aProject label: labelString
+ "Select a directory for either saving or loading a project file"
+ "Temporary simple version without the 'interesting' blue ui stuff
+ See FileList2 class>>#modalFolderSelectorForProject: for the full horror"
+ ^self openOn: FileDirectory default label: labelString!