The Trunk: ST80-dtl.71.mcz

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

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

Name: ST80-dtl.71
Author: dtl
Time: 25 November 2009, 2:13:56 am
UUID: 3aebce8b-babf-4b63-b603-a90a668a186e
Ancestors: ST80-dtl.70

Move project navigation and menu methods from class side of Project to instance methods. Replace #isMorphic logic with dispatch to appropriate project instances for MVC and Morphic conditions.

=============== Diff against ST80-dtl.70 ===============

Item was added:
+ ----- Method: MVCProject>>addItem:toMenu:selection:requestor: (in category 'utilities') -----
+ addItem: item toMenu: menu selection: action requestor: requestingProject
+ "Add a menu item representing this project to a menu being created by requestingProject"
+
+ | color |
+ "Color to be used for this menu item, will be ignored if current project is MVC"
+ color := self world isInMemory
+ ifTrue: [Color veryVeryDarkGray]
+ ifFalse: [Color blue].
+ "Menu item of type appropriate for current project"
+ requestingProject
+ addItem: item
+ toMenu: menu
+ selection: action
+ color: color
+ thumbnail: thumbnail!

Item was changed:
  ----- Method: ScreenController>>jumpToProject (in category 'menu messages') -----
  jumpToProject
 
+ Project current jumpToProject.
- Project jumpToProject.
  !

Item was added:
+ ----- Method: MVCProject>>jumpToProject (in category 'utilities') -----
+ jumpToProject
+ "Present a list of potential projects and enter the one selected."
+
+ "Project current jumpToProject"
+
+ self jumpToSelection: (self buildJumpToMenu: CustomMenu new) startUpLeftFlush!

Item was changed:
  ----- Method: ProjectController>>redButtonActivity (in category 'control activity') -----
  redButtonActivity
  | index |
  view isCollapsed ifTrue: [^ super redButtonActivity].
  (view insetDisplayBox containsPoint: Sensor cursorPoint)
  ifFalse: [^ super redButtonActivity].
  index := (UIManager default chooseFrom: #('enter' 'jump to project...') lines: #()).
  index = 0 ifTrue: [^ self].
 
  "save size on enter for thumbnail on exit"
  model setViewSize: view insetDisplayBox extent.
  index = 1 ifTrue: [^ model enter: false revert: false saveForRevert: false].
+ index = 2 ifTrue: [Project current jumpToProject. ^ self].
- index = 2 ifTrue: [Project jumpToProject. ^ self].
  !

Item was added:
+ ----- Method: MVCProject>>addItem:toMenu:selection:color:thumbnail: (in category 'utilities') -----
+ addItem: item toMenu: menu selection: action color: aColor thumbnail: aForm
+ "Add menu item representing the sender to a menu. Morphic projects use
+ aColor and aForm for menu items."
+
+ menu add: item action: action!

Item was removed:
- ----- Method: MVCProject class>>jumpToProject (in category 'utilities') -----
- jumpToProject
- "Project jumpToProject"
- "Present a list of potential projects and enter the one selected."
-
- self jumpToSelection: (self buildJumpToMenu: CustomMenu new) startUpLeftFlush!