Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ar.188.mcz

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

Name: Morphic-ar.188
Author: ar
Time: 19 September 2009, 8:24:08 am
UUID: b9f143fa-295f-2f45-a7da-37e95e08353e
Ancestors: Morphic-ar.187

Remove the ability to install projects as active subprojects since we're retiring the entire WiW facility.

=============== Diff against Morphic-ar.187 ===============

Item was changed:
  ----- Method: ProjectViewMorph>>showMenuForProjectView (in category 'events') -----
  showMenuForProjectView
  	| menu |
  	(menu := MenuMorph new)
  		add: 'enter this project' translated
  		action: [^ self enter];
- 		
- 		add: 'ENTER ACTIVE' translated
- 		action: [self setProperty: #wasOpenedAsSubproject toValue: true.
- 			^ self enterAsActiveSubproject];
  		
  		add: 'PUBLISH (also saves a local copy)' translated
  		action: [^ project storeOnServerShowProgressOn: self forgetURL: false];
  		
  		add: 'PUBLISH to a different server' translated
  		action: [project forgetExistingURL.
  			^ project storeOnServerShowProgressOn: self forgetURL: true];
  		
  		add: 'see if server version is more recent' translated
  		action: [^ self checkForNewerVersionAndLoad];
  
  		addLine;
  		add: 'expunge this project' translated
  		action: [^ self expungeProject].
  
  	menu title: ('Project Named \"{1}"' translated withCRs format: {project name}).
  	menu invokeModal.!

Item was removed:
- ----- Method: PasteUpMorph>>installAsActiveSubprojectIn:titled: (in category 'world state') -----
- installAsActiveSubprojectIn: enclosingWorld titled: aString
- 
- 	| opt newWidth |
- 
- 	opt := self optimumExtentFromAuthor.
- 	(opt x > (enclosingWorld width * 0.7) or: 
- 			[opt y > (enclosingWorld height * 0.7)]) ifTrue: [
- 		newWidth := enclosingWorld width // 2.
- 		opt := newWidth @ (opt y * newWidth / opt x) truncated
- 	].
- 	^self 
- 		installAsActiveSubprojectIn: enclosingWorld 
- 		at: (enclosingWorld topLeft + (enclosingWorld extent - opt // 2) extent: opt) 
- 		titled: aString
- !

Item was removed:
- ----- Method: PasteUpMorph>>installAsActiveSubprojectIn:at:titled: (in category 'world state') -----
- installAsActiveSubprojectIn: enclosingWorld at: newBounds titled: aString 
- 	| window howToOpen tm boundsForWorld |
- 	howToOpen := self embeddedProjectDisplayMode.
- 	"#scaled may be the only one that works at the moment"
- 	submorphs do: [:ss | ss owner isNil ifTrue: [ss privateOwner: self]].
- 	"Transcript that was in outPointers and then got deleted."
- 	boundsForWorld := howToOpen == #naked ifTrue: [newBounds] ifFalse: [bounds].
- 	worldState canvas: nil.
- 	worldState viewBox: boundsForWorld.
- 	self bounds: boundsForWorld.
- 
- 	"self viewBox: Display boundingBox."
- 	"worldState handsDo: [:h | h initForEvents]."
- 	self installFlaps.
- 
- 	"SystemWindow noteTopWindowIn: self."
- 	"self displayWorldSafely."
- 	howToOpen == #naked ifTrue: [enclosingWorld addMorphFront: self].
- 	howToOpen == #window 
- 		ifTrue: 
- 			[window := (NewWorldWindow labelled: aString) model: self.
- 			window addMorph: self frame: (0 @ 0 extent: 1.0 @ 1.0).
- 			window openInWorld: enclosingWorld].
- 	howToOpen == #frame 
- 		ifTrue: 
- 			[window := (AlignmentMorphBob1 new)
- 						minWidth: 100;
- 						minHeight: 100;
- 						borderWidth: 8;
- 						borderColor: Color green;
- 						bounds: newBounds.
- 			window addMorph: self.
- 			window openInWorld: enclosingWorld].
- 	howToOpen == #scaled 
- 		ifTrue: 
- 			[self position: 0 @ 0.
- 			window := (EmbeddedWorldBorderMorph new)
- 						minWidth: 100;
- 						minHeight: 100;
- 						borderWidth: 8;
- 						borderColor: Color green;
- 						bounds: newBounds.
- 			tm := BOBTransformationMorph new.
- 			window addMorph: tm.
- 			tm addMorph: self.
- 			window openInWorld: enclosingWorld.
- 			tm changeWorldBoundsToShow: bounds.
- 			self arrangeToStartSteppingIn: enclosingWorld
- 			"tm scale: (tm width / self width min: tm height / self height) asFloat."]!