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

commits at source.squeak.org commits at source.squeak.org
Mon Nov 23 20:11:32 UTC 2009


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

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

Name: ST80-dtl.70
Author: dtl
Time: 23 November 2009, 4:07:52 am
UUID: 76aad33b-2e1d-4a27-8190-4919910230e7
Ancestors: ST80-nice.69

Implement #interruptName:preemptedProcess: on instance side
MVCProject>>findProjectView: refactored from Project
MVCProject>>jumpToProject refactored from Prorject


=============== Diff against ST80-nice.69 ===============

Item was added:
+ ----- Method: MVCProject>>interruptName:preemptedProcess: (in category 'utilities') -----
+ interruptName: labelString preemptedProcess: theInterruptedProcess
+ 	"Create a Notifier on the active scheduling process with the given label."
+ 
+ 	^ ScheduledControllers interruptName: labelString
+ !

Item was added:
+ ----- 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!

Item was added:
+ ----- Method: MVCProject>>findProjectView: (in category 'utilities') -----
+ findProjectView: projectDescription
+ 	"In this world, find the ProjectController for the project described by projectDescription."
+ 
+ 	| pName dpName proj |
+ 	pName := (projectDescription isString) 
+ 		ifTrue: [projectDescription]
+ 		ifFalse: [projectDescription name].
+ 	world scheduledControllers do: [:cont |
+ 		(cont isKindOf: ProjectController) ifTrue: [
+ 			((proj := cont model) class == Project and: 
+ 				[proj name = pName]) ifTrue: [^ cont view].
+ 			proj class == DiskProxy ifTrue: [ 
+ 				dpName := proj constructorArgs first.
+ 				dpName := (dpName findTokens: '/') last.
+ 				dpName := (Project parseProjectFileName: dpName unescapePercents) first.
+ 				dpName = pName ifTrue: [^ cont view]]]].
+ 	^ nil!



More information about the Packages mailing list