The Trunk: Morphic-dtl.252.mcz

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!