Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1215.mcz

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

Name: Morphic-mt.1215
Author: mt
Time: 31 July 2016, 11:34:33.618418 am
UUID: 73cf8a9d-c030-5f48-a2de-6bf45a687362
Ancestors: Morphic-mt.1214

*** Widget Refactorings and UI Themes (Part 10 of 11) ***

Drop shadow theme support and keyboard focus color theme support.

=============== Diff against Morphic-mt.1214 ===============

Item was added:
+ ----- Method: Morph class>>themeProperties (in category 'preferences') -----
+ themeProperties
+ 	
+ 	| catName |
+ 	catName := 'Other'.
+ 	
+ 	^{ 
+ 		{ #hardShadowColor. catName.  'The color of shadows. An alpha about 0.5 is recommended.' }.
+ 		{ #hardShadowOffset. catName. 'The offset of the shadows behind the morph.' } .
+ 		{ #softShadowColor. catName.  'The color of soft shadows. An alpha less than 0.05 is recommended.' }.
+ 		{ #softShadowOffset. catName. 'The offset of soft shadows behind the morph.' } .
+ 		{ #keyboardFocusColor. catName. 'The color of the keyboard focus indication.' }.
+ 		{ #keyboardFocusWidth. catName. 'The width of the keyboard focus indication.' }.
+ 	}!

Item was changed:
  ----- Method: Morph class>>useSoftDropShadow: (in category 'preferences') -----
  useSoftDropShadow: aBoolean
  
  	UseSoftDropShadow = aBoolean ifTrue: [^ self].
  	UseSoftDropShadow := aBoolean.
  	
  	SystemWindow refreshAllWindows.
+ 	DialogWindow refreshAllDialogs.
  	SystemProgressMorph reset.
  	TheWorldMainDockingBar updateInstances.!

Item was changed:
  ----- Method: Morph>>addDropShadow (in category 'drop shadows') -----
  addDropShadow
  
+ 	self
+ 		hasDropShadow: true;
+ 		shadowOffset: (self useSoftDropShadow
+ 			ifTrue: [self userInterfaceTheme softShadowOffset ifNil: [10 at 8 corner: 10 at 12]]
+ 			ifFalse: [self userInterfaceTheme hardShadowOffset ifNil: [1 at 1]]);
+ 		shadowColor: (self useSoftDropShadow
+ 			ifTrue: [self userInterfaceTheme softShadowColor ifNil: [Color black alpha: 0.01]]
+ 			ifFalse: [self userInterfaceTheme hardShadowColor ifNil: [Color black alpha: 0.5]]).!
- 	self hasDropShadow: true.
- 		
- 	self useSoftDropShadow
- 		ifFalse: [
- 			self
- 				shadowOffset: 3 at 3;
- 				shadowColor: (Color black alpha: 0.5)]
- 		ifTrue: [
- 			self
- 				shadowOffset: (10 at 8 corner: 10 at 12);
- 				shadowColor: (Color black alpha: 0.01)].!

Item was added:
+ ----- Method: Morph>>applyUserInterfaceTheme (in category 'updating') -----
+ applyUserInterfaceTheme
+ 
+ 	"Re-initialize the shadow. Ensure shadow cache invalidation."
+ 	self hasDropShadow ifTrue: [
+ 		self addDropShadow.
+ 		self removeProperty: #dropShadow.
+ 		self changed].!

Item was changed:
  ----- Method: Morph>>drawKeyboardFocusIndicationOn: (in category 'drawing') -----
  drawKeyboardFocusIndicationOn: aCanvas
  
  	self wantsRoundedCorners
+ 		ifTrue: [aCanvas frameRoundRect: self bounds radius: self cornerRadius width: self keyboardFocusWidth color: self keyboardFocusColor]
+ 		ifFalse: [aCanvas frameRectangle: self bounds width: self keyboardFocusWidth color: self keyboardFocusColor].!
- 		ifTrue: [aCanvas frameRoundRect: self bounds radius: self cornerRadius width: 3 "self borderStyle width" color: self keyboardFocusColor]
- 		ifFalse: [aCanvas frameRectangle: self bounds width: 3  "self borderStyle width" color: self keyboardFocusColor].!

Item was changed:
  ----- Method: Morph>>keyboardFocusColor (in category 'drawing') -----
  keyboardFocusColor
  
+ 	^ self userInterfaceTheme keyboardFocusColor ifNil: [TranslucentColor r: 0.3 g: 0.5 b: 0.5 alpha: 0.5]!
- 	^ Preferences keyboardFocusColor muchDarker alpha: 0.5!

Item was added:
+ ----- Method: Morph>>keyboardFocusWidth (in category 'drawing') -----
+ keyboardFocusWidth
+ 
+ 	^ self userInterfaceTheme keyboardFocusWidth ifNil: [3]!

Item was changed:
  ----- Method: Morph>>shadowOffset: (in category 'drop shadows') -----
  shadowOffset: aPoint
  	"Set the current shadow offset"
  
  	self shadowOffset = aPoint ifTrue: [^ self].
  	self changed.
  
  	(aPoint isNil or: [ aPoint isZero ])
  		ifTrue:[self removeProperty: #shadowOffset]
  		ifFalse:[self setProperty: #shadowOffset toValue: aPoint].
  
+ 	self removeProperty: #dropShadow.
  	self layoutChanged.
  	self changed.!