The Trunk: System-dtl.189.mcz

David T. Lewis uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-dtl.189.mcz

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

Name: System-dtl.189
Author: dtl
Time: 2 December 2009, 9:17:54 am
UUID: 3785764e-2a0f-4582-b416-f2903c553df7
Ancestors: System-ar.188

Move folder selection dialogs from Project to MVCProject and MorphicProject to eliminate MVC/Morphic dependency in Project. But note that PluggableFileList used for MVC is incorrectly categorized in package Morphic.

Change Imports>>viewImages to use "Project current isMorphic" rather than "self couldOpenInMorphic".

=============== Diff against System-ar.188 ===============

Item was changed:
  ----- Method: Imports>>viewImages (in category 'images') -----
  viewImages
  "Open up a special Form inspector on the dictionary of graphical imports."
  "Imports default viewImages"
  | widgetClass |
  imports size isZero ifTrue:
  [^ self inform:
  'The ImageImports repository is currently empty,
  so there is nothing to view at this time.  You can
  use a file list to import graphics from external files
  into Imports, and once you have done that,
  you will find this command more interesting.'].
 
+ widgetClass := Project current isMorphic
- widgetClass := self couldOpenInMorphic
                  ifTrue: [GraphicalDictionaryMenu]
   ifFalse: [FormInspectView].
  widgetClass openOn:  imports withLabel: 'Graphical Imports'
 
  !

Item was changed:
  ----- Method: Project>>findAFolderToLoadProjectFrom (in category 'file in/out') -----
  findAFolderToLoadProjectFrom
 
+ ^ CurrentProject findAFolderForProject: self label: 'Select a folder on a server:'
+ !
- self couldOpenInMorphic ifTrue: [
- ^FileList2 modalFolderSelectorForProjectLoad
- ] ifFalse: [
- ^PluggableFileList getFolderDialog openLabel: 'Select a folder on a server:'
- ]!

Item was added:
+ ----- Method: Project>>findAFolderForProject:label: (in category 'utilities') -----
+ findAFolderForProject: aProject label: dialogLabel
+ "Find a folder for saving or loading a project"
+
+ self subclassResponsibility
+ !

Item was changed:
  ----- Method: Project>>findAFolderToStoreProjectIn (in category 'file in/out') -----
  findAFolderToStoreProjectIn
 
+ ^ CurrentProject findAFolderForProject: self label: 'Select a folder on a server:'
+ !
- "Alan wants something prettier with a default"
-
- self couldOpenInMorphic ifTrue: [
- ^FileList2 modalFolderSelectorForProject: self
- ] ifFalse: [
- ^PluggableFileList getFolderDialog openLabel: 'Select a folder on a server:'
- ]!