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!