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

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

Name: Morphic-laza.389
Author: laza
Time: 25 March 2010, 3:55:38.504 pm
UUID: 2559029d-daab-4085-b080-eb9f63f493de
Ancestors: Morphic-ar.388

make inactive Window buttons dimmed

=============== Diff against Morphic-ar.388 ===============

Item was added:
+ ----- Method: SystemWindowButton>>unlock (in category 'accessing') -----
+ unlock
+ 	self restoreImage.
+ 	super unlock!

Item was added:
+ ----- Method: SystemWindowButton>>lock (in category 'accessing') -----
+ lock
+ 	self passivate.
+ 	super lock!

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]].
+ 
+ 	"Control boxes remain active, except in novice mode"
+ 	labelArea
+ 		ifNotNil: [
+ 			labelArea submorphsDo: [:m |
+ 				(Preferences noviceMode not and: [m == closeBox or: [m == collapseBox]]) ifFalse: [m lock]]]
- 	labelArea ifNotNil:
- 		[labelArea submorphsDo: [:m |
- 			m == label
- 				ifTrue: [m lock]
- 				ifFalse: [
- 					Preferences noviceMode
- 						ifTrue: [m lock; hide]
- 						ifFalse: [
- 							(m == closeBox or: [m == collapseBox])
- 								ifFalse: [m lock; hide]]]]]
  		ifNil: "i.e. label area is nil, so we're titleless"
  			[self adjustBorderUponDeactivationWhenLabeless].
  !

Item was added:
+ ----- Method: SystemWindowButton>>passivate (in category 'visual properties') -----
+ passivate
+ 
+ 	self firstSubmorph form: (self firstSubmorph form dimmed) 
+ !