[squeak-dev] The Trunk: MorphicExtras-ar.46.mcz

Andreas Raab uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-ar.46.mcz

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

Name: MorphicExtras-ar.46
Author: ar
Time: 18 September 2009, 10:00:10 am
UUID: 9c189e26-a0c6-0240-8ce2-3434a380ebd9
Ancestors: MorphicExtras-ar.45

Project refactoring: Use MorphicProjects.

=============== Diff against MorphicExtras-ar.45 ===============

Item was changed:
  ----- Method: ProjectSorterMorph>>insertNewProject: (in category 'as yet unclassified') -----
  insertNewProject: evt
 
  | newProj |
 
+ [newProj := MorphicProject openViewOn: nil.]
- [newProj := Project newMorphicOn: nil.]
  on: ProjectViewOpenNotification
  do: [ :ex | ex resume: false].
 
  EToyProjectDetailsMorph
  getFullInfoFor: newProj
  ifValid: [
  evt hand attachMorph: (self sorterMorphForProjectNamed: newProj name)
  ]
  expandedFormat: false.
 
 
  !

Item was changed:
  ----- Method: InternalThreadNavigationMorph>>insertNewProject (in category 'navigation') -----
  insertNewProject
 
  | newProj |
 
+ [newProj := MorphicProject openViewOn: nil.]
- [newProj := Project newMorphicOn: nil.]
  on: ProjectViewOpenNotification
  do: [ :ex | ex resume: false].
 
  EToyProjectDetailsMorph
  getFullInfoFor: newProj
  ifValid: [self insertNewProjectActionFor: newProj]
  expandedFormat: false.
 
 
  !

Item was changed:
  ----- Method: ProjectNavigationMorph>>newProject (in category 'the actions') -----
  newProject
 
+ MorphicProject openViewOn: nil
- Project newMorphicOn: nil
  !