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@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@8 corner: 10@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@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.!
Locked
