'From Squeak3.1alpha of 5 February 2001 [latest update: #3720] on 24 February 2001 at 10:21:02 pm'! "Change Set: threadOops Date: 24 February 2001 Author: Bob Arning fixed walkback due to missing #fixTemps"! !InternalThreadNavigationMorph methodsFor: 'as yet unclassified' stamp: 'RAA 2/24/2001 22:18'! loadPageWithProgress | projectInfo projectName | projectInfo _ listOfPages at: currentIndex. projectName _ projectInfo at: 1. loadedProject _ Project named: projectName. self class know: listOfPages as: threadName. WorldState addDeferredUIMessage: [ InternalThreadNavigationMorph openThreadNamed: threadName atIndex: currentIndex ] fixTemps. loadedProject ifNil: [ ComplexProgressIndicator new targetMorph: self; historyCategory: 'project loading'; withProgressDo: [ [ loadedProject _ CurrentProjectRefactoring currentFromMyServerLoad: projectName ] on: ProjectViewOpenNotification do: [ :ex | ex resume: false] "we probably don't want a project view morph in this case" ]. ]. loadedProject ifNil: [ ^self inform: 'I cannot find that project' ]. self delete. loadedProject enter. ! ! !ProjectSorterMorph methodsFor: 'as yet unclassified' stamp: 'RAA 2/24/2001 22:19'! clickFromSorterEvent: evt morph: aMorph | where what | (aMorph bounds containsPoint: evt cursorPoint) ifFalse: [^self]. evt isMouseUp ifFalse: [ evt shiftPressed ifFalse: [^evt hand grabMorph: aMorph]. ^self ]. evt shiftPressed ifTrue: [ where _ aMorph owner submorphs indexOf: aMorph ifAbsent: [nil]. what _ book threadName. WorldState addDeferredUIMessage: [ InternalThreadNavigationMorph openThreadNamed: what atIndex: where ] fixTemps. (Project named: (aMorph valueOfProperty: #nameOfThisProject)) enter. ]. ! !