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

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

Name: Morphic-mt.974
Author: mt
Time: 8 May 2015, 4:18:52.877 pm
UUID: 6eeb73ef-2f37-4b4c-b686-f06aa396fff2
Ancestors: Morphic-topa.973

Remove drop shadow when dragging dialog boxes.

=============== Diff against Morphic-topa.973 ===============

Item was changed:
  ----- Method: UserDialogBoxMorph>>initialize (in category 'initialization') -----
  initialize
  
  	| titleRow cc |
  	super initialize.
  	self color: Color white.
  	self listDirection: #topToBottom; wrapCentering: #center;
  		hResizing: #shrinkWrap; vResizing: #shrinkWrap.
  	self layoutInset: -1 @ -1; cellInset: 5 at 5.
  	self borderStyle: BorderStyle thinGray.
+ 	self setProperty: #indicateKeyboardFocus: toValue: #never.
  	
  	FillInTheBlankMorph roundedDialogCorners
  		ifTrue: [self useRoundedCorners].
  
  	self hasDropShadow: Preferences menuAppearance3d.
  	self useSoftDropShadow
  		ifFalse: [
  			self
  				shadowColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.666);
  				shadowOffset: 1 @ 1]
  		ifTrue: [
  			self
  				shadowColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.01);
  				shadowOffset: (10 at 8 corner: 10 at 12)].
  
  	cc := Color gray: 0.8.
  	titleRow := AlignmentMorph newRow.
  	titleRow hResizing: #spaceFill; vResizing: #shrinkWrap.
  
  	self cornerStyle == #rounded
  		ifTrue: [titleRow useRoundedCorners].
  
  	titleRow borderStyle: BorderStyle thinGray.
  	titleRow layoutInset: (5 at 5 corner: (2@ (5 + (titleRow cornerStyle == #rounded ifTrue: [Morph preferredCornerRadius] ifFalse: [0])))).
  	titleRow color: cc.
  	titleRow fillStyle: self titleGradient.
  
  	titleMorph := StringMorph new.
  	titleMorph emphasis: 1.
  	titleRow addMorph: titleMorph.
  	labelMorph := TextMorph new.
  	labelMorph margins: (Preferences standardButtonFont widthOf: $x) * 2  @ 0.
  	labelMorph lock.
  	buttonRow := AlignmentMorph newRow
  		vResizing: #rigid;
  		height: (Preferences standardButtonFont height + 20);
  		hResizing: #spaceFill;
  		layoutInset: 
  			(((Preferences standardButtonFont widthOf: $x) * 2 @ 0)
  			corner: ((Preferences standardButtonFont widthOf: $x) * 2 @ 10));
  		cellInset: (Preferences standardButtonFont widthOf: $x) * 2.
  	buttonRow color: Color transparent.
  	self 
  		addMorphBack: titleRow ;
  		addMorphBack: labelMorph ;
  		addMorphBack: buttonRow.
  	keyMap := Dictionary new!

Item was changed:
  ----- Method: UserDialogBoxMorph>>justDroppedInto:event: (in category 'events') -----
  justDroppedInto: aMorph event: event
+ 
+ 	"Restore drop shadow if necessary."
+ 	self hasDropShadow: Preferences menuAppearance3d.
+ 
  	"aggressively preserve focus"
  	event hand newMouseFocus: self.!

Item was changed:
  ----- Method: UserDialogBoxMorph>>mouseDown: (in category 'events') -----
  mouseDown: event
  	self stopAutoTrigger.
  	"Always bring me to the front since I am modal"
  	self comeToFront.
  	(self containsPoint: event position) ifFalse:[
  		Beeper beepPrimitive.
  		^self flash].
+ 	
+ 	self hasDropShadow: false.
  	event hand grabMorph: self.!