[Pkg] The Trunk: Morphic-dtl.252.mcz

[commits at source.squeak.org]

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

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

Name: Morphic-dtl.252
Author: dtl
Time: 27 November 2009, 2:05:42 am
UUID: a913b73c-7edd-41fb-a948-3d82c49748c1
Ancestors: Morphic-kb.251

Add instance methods originally from class side of Project

=============== Diff against Morphic-kb.251 ===============

Item was added:
+ ----- Method: MorphicProject>>enterIfThereOrFind: (in category 'squeaklet on server') -----
+ enterIfThereOrFind: aProjectName
+ 
+ 	| newProject |
+ 	newProject := Project named: aProjectName.
+ 	newProject ifNotNil: [^newProject enter].
+ 
+ 	ComplexProgressIndicator new 
+ 		targetMorph: nil;
+ 		historyCategory: 'project loading';
+ 		withProgressDo: [
+ 			[
+ 				newProject := self fromMyServerLoad: aProjectName
+ 			] 
+ 				on: ProjectViewOpenNotification
+ 				do: [ :ex | ex resume: false]		
+ 					"we probably don't want a project view morph in this case"
+ 		].
+ 
+ 	newProject ifNotNil: [^newProject enter].
+ 	Beeper beep.!

Item was added:
+ ----- Method: MorphicProject>>openBlankProjectNamed: (in category 'squeaklet on server') -----
+ openBlankProjectNamed: projName
+ 
+ 	| proj projViewer |
+ 
+ 	proj := MorphicProject openViewOn: nil.
+ 	proj changeSet name: projName.
+ 	proj world addMorph: (
+ 		TextMorph new 
+ 			beAllFont: ((TextStyle default fontOfSize: 26) emphasized: 1);
+ 			color: Color red;
+ 			contents: 'Welcome to a new project - ',projName
+ 	).
+ 	proj setParent: self.
+ 	projViewer := (self findProjectView: projName) ifNil: [^proj].
+ 	(projViewer owner isSystemWindow) ifTrue: [
+ 			projViewer owner model: proj].
+ 	^ projViewer project: proj!