[squeak-dev] The Trunk: Morphic-ar.188.mcz

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."]!