A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-tfel.390.mcz

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

Name: Morphic-tfel.390
Author: tfel
Time: 25 March 2010, 11:14:55.843 pm
UUID: 51168667-c3e6-4655-96f1-fc79d409501e
Ancestors: Morphic-laza.389, Morphic-tfel.389

Changes to World menu
	* Dark title font
	* No more 3 shadows on drag
	* SystemWindowButtons for Pin+Close
	* Rounded corners
	
Changes to SystemWindows
	* Smaller default title font

=============== Diff against Morphic-tfel.389 ===============

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 changed:
  ----- Method: SystemWindow>>addLabel (in category 'label') -----
  addLabel
  
  	(labelArea isNil or: [label isNil]) ifTrue: [^ self].
  	labelArea 
  		addMorphBack: (Morph new extent: self class borderWidth @ 0);
  		addMorphBack: label.
  	label on: #startDrag send: #startDragFromLabel: to: self.
+ 	label on: #click send: #activate to: self.
  	self class clickOnLabelToEdit
  		ifTrue: [label on: #mouseUp send: #relabel to: self].
  	self class doubleClickOnLabelToExpand
  		ifTrue: [label on: #doubleClick send: #expandBoxHit to: self].!

Item was changed:
  ----- Method: SystemWindow>>addLabelArea (in category 'initialization') -----
  addLabelArea
  
+ 	labelArea ifNotNil: [labelArea abandon].
  	labelArea := (AlignmentMorph newSpacer: Color transparent)
  			vResizing: #spaceFill;
  			layoutPolicy: ProportionalLayout new.
  	self addMorph: labelArea.!

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

Item was changed:
  (PackageInfo named: 'Morphic') postscript: 'DockingBarMorph allInstances do: #delete.
+ TheWorldMainDockingBar updateInstances.
- TheWorldMainDockingBar updateInstances
  MenuMorph initializeImages.
+ Preferences setPreference: #roundedMenuCorners toValue: true.
+ Preferences setWindowTitleFontTo: (StrikeFont familyName: ''DejaVuSans'' pointSize: 10 emphasized: 1).
+ SystemWindow withAllSubclasses do: [:c | c allInstances do: [:w | w initializeLabelArea]]'!
- Preferences setPreference: #roundedMenuCorners toValue: true.'!

Item was changed:
  ----- Method: SystemWindow class>>boxExtent (in category 'preferences') -----
  boxExtent
  	"answer the extent to use in all the buttons"
  	
  	^ (Preferences alternativeWindowBoxesLook
  		ifTrue: [18 @ 18]
+ 		ifFalse: [16 @ 16])!
- 		ifFalse: [14 @ 14])!