'From Squeak3.1alpha of 5 February 2001 [latest update: #4248] on 15 August 2001 at 12:01:40 pm'! "Change Set: badReturn Date: 15 August 2001 Author: Bob Arning Fix a cannot return in InternalThreadNavigationMorph"! !InternalThreadNavigationMorph methodsFor: 'as yet unclassified' stamp: 'RAA 8/15/2001 12:00'! insertNewProject | newProj | [newProj _ Project newMorphicOn: nil.] on: ProjectViewOpenNotification do: [ :ex | ex resume: false]. EToyProjectDetailsMorph getFullInfoFor: newProj ifValid: [self insertNewProjectActionFor: newProj] expandedFormat: false. ! ! !InternalThreadNavigationMorph methodsFor: 'as yet unclassified' stamp: 'RAA 8/15/2001 12:00'! insertNewProjectActionFor: newProj | me | me _ CurrentProjectRefactoring currentProjectName. listOfPages withIndexDo: [ :each :index | each first = me ifTrue: [ listOfPages add: {newProj name} afterIndex: index. ^self switchToThread: threadName. ]. ]. listOfPages add: {newProj name} afterIndex: listOfPages size. ^self switchToThread: threadName ! !