[Pkg] The Trunk: System-dtl.189.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Dec 3 02:22:01 UTC 2009


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:'
- 	]!



More information about the Packages mailing list