[Pkg] The Trunk: ST80-dtl.71.mcz

[commits at source.squeak.org]

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!