The Trunk: Morphic-laza.360.mcz

Alexander Lazarević uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-laza.360.mcz

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

Name: Morphic-laza.360
Author: laza
Time: 26 February 2010, 5:32:46.686 pm
UUID: a332f36c-87c9-401e-b883-cc1fbfd10236
Ancestors: Morphic-ar.359, Morphic-laza.356

Merge with 356

=============== Diff against Morphic-ar.359 ===============

Item was changed:
  ----- Method: SystemWindow>>passivate (in category 'top window') -----
  passivate
  "Make me unable to respond to mouse and keyboard"
 
  label ifNotNil: [label color: Color darkGray].
  self setStripeColorsFrom: self paneColorToUse.
  model modelSleep.
 
  "Control boxes remain active, except in novice mode"
  self submorphsDo: [:m |
  m == labelArea ifFalse:
  [m lock]].
  labelArea ifNotNil:
  [labelArea submorphsDo: [:m |
+ m == label
+ ifTrue: [m lock]
+ ifFalse: [
+ Preferences noviceMode
+ ifTrue: [m lock; hide]
+ ifFalse: [
+ ({closeBox. collapseBox. label} includes: m)
+ ifFalse: [m lock; hide]]]]]
- (m == closeBox or: [m == collapseBox])
- ifTrue:
- [Preferences noviceMode ifTrue: [m lock]]
- ifFalse:
- [m lock]]]
  ifNil: "i.e. label area is nil, so we're titleless"
  [self adjustBorderUponDeactivationWhenLabeless].
  !

Item was changed:
  ----- Method: SystemWindow>>activateWindow (in category 'top window') -----
  activateWindow
  "Bring me to the front and make me able to respond to mouse and keyboard.
  Was #activate (sw 5/18/2001 23:20)"
 
  | oldTop outerMorph sketchEditor pal |
  outerMorph := self topRendererOrSelf.
  outerMorph owner ifNil: [^ self "avoid spurious activate when drop in trash"].
  oldTop := TopWindow.
  oldTop = self ifTrue: [^self].
  TopWindow := self.
  oldTop ifNotNil: [oldTop passivate].
  outerMorph owner firstSubmorph == outerMorph
  ifFalse: ["Bring me (with any flex) to the top if not already"
  outerMorph owner addMorphFront: outerMorph].
  self submorphsDo: [:m | m unlock].
 
  label ifNotNil: [label color: Color black].
 
  labelArea ifNotNil:
+ [labelArea submorphsDo: [:m | m unlock; show].
- [labelArea submorphsDo: [:m | m unlock].
  self setStripeColorsFrom: self paneColorToUse].
  self isCollapsed ifFalse:
  [model modelWakeUpIn: self.
  self positionSubmorphs.
  labelArea ifNil: [self adjustBorderUponActivationWhenLabeless]].
 
  (sketchEditor := self extantSketchEditor) ifNotNil:
  [sketchEditor comeToFront.
  (pal := self world findA: PaintBoxMorph) ifNotNil:
  [pal comeToFront]].
  !