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