The Trunk: Morphic-cmm.512.mcz

Chris Muller uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cmm.512.mcz

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

Name: Morphic-cmm.512
Author: cmm
Time: 11 January 2011, 7:32:39.874 pm
UUID: 302fd40c-97b1-4854-b1a8-1cb85a1c7846
Ancestors: Morphic-ul.511

- 4.2 aesthetics improvement:  Halos and the halo-bounds indicator should be borderless and slightly translucent, because they serve as a *meta* indicator/control of a real, tangible object (a Morph).  Similar to Balloon-help Morphs, which are also slightly transparent.
- showSplitterHandles will default to off in 4.2.  Updated another place trying to set it true.

=============== Diff against Morphic-ul.511 ===============

Item was changed:
  ----- Method: HaloMorph>>addHandleAt:color:icon:on:send:to: (in category 'private') -----
  addHandleAt: aPoint color: aColor icon: iconName on: eventName send: selector to: recipient
  "Add a handle centered at the given point with the given color,
  and set it up to respond to the given event by sending the
  given selector to the given recipient. Return the handle."
  | handle |
+ handle := self createHandleAt: aPoint color: (aColor alpha: 0.8) iconName: iconName.
- handle := self createHandleAt: aPoint color: aColor iconName: iconName.
  self addMorph: handle.
 
  handle on: #mouseUp send: #endInteraction to: self.
  handle on: eventName send: selector to: recipient.
  handle setBalloonText: (target balloonHelpTextForHandle: handle) translated.
 
  ^ handle !

Item was changed:
  ----- Method: HaloMorph>>createHandleAt:color:iconName: (in category 'private') -----
  createHandleAt: aPoint color: aColor iconName: iconName
  | bou handle |
  bou := Rectangle center: aPoint extent: self handleSize asPoint.
  Preferences alternateHandlesLook
+ ifTrue: [handle := RectangleMorph newBounds: bou color: aColor.
- ifTrue: [
- handle := RectangleMorph newBounds: bou color: aColor.
- handle borderWidth: 0.
  handle useRoundedCorners.
  self setColor: aColor toHandle: handle]
  ifFalse: [handle := EllipseMorph newBounds: bou color: aColor].
+ handle borderWidth: 0;
+ wantsYellowButtonMenu: false.
  ""
- handle borderColor: aColor muchDarker.
- handle wantsYellowButtonMenu: false.
- ""
  iconName isNil
+ ifFalse: [| form |
- ifFalse: [| form |
  form := ScriptingSystem formAtKey: iconName.
  form isNil
+ ifFalse: [| image |
- ifFalse: [| image |
  image := ImageMorph new.
  image image: form.
  image color: aColor makeForegroundColor.
  image lock.
  handle addMorphCentered: image]].
  ""
  ^ handle!

Item was changed:
  ----- Method: HaloMorph>>drawOn: (in category 'drawing') -----
  drawOn: aCanvas
  "Draw this morph only if it has no target."
  target isNil
  ifTrue: [^ super drawOn: aCanvas].
  (Preferences showBoundsInHalo
  and: [target isWorldMorph not])
+ ifTrue: [| boundsColor |
- ifTrue: [| boundsColor |
  boundsColor := Preferences menuSelectionColor
  ifNil: [Color blue].
  aCanvas
  frameAndFillRectangle: self bounds
  fillColor: Color transparent
  borderWidth: 2
+ borderColor:
+ (boundsColor isTranslucent
+ ifTrue: [boundsColor]
+ ifFalse: [boundsColor alpha: 0.8])]!
- borderColor: boundsColor]!

Item was changed:
  ----- Method: SystemWindow class>>updatePreferences (in category 'initializing') -----
  updatePreferences
  "Temporary method to update system-wide preferences"
  Preferences setPreference: #defaultWindowColor toValue: (Color veryVeryLightGray muchLighter).
  (Preferences preferenceAt: #defaultWindowColor) defaultValue: (Color veryVeryLightGray muchLighter).
 
  Preferences setPreference: #menuAppearance3d toValue: true.
  (Preferences preferenceAt: #menuAppearance3d) defaultValue: true.
 
  Preferences setPreference: #menuColorFromWorld toValue: false.
  (Preferences preferenceAt: #menuColorFromWorld) defaultValue: false.
 
  Preferences setPreference: #roundedMenuCorners toValue: false.
  (Preferences preferenceAt: #roundedMenuCorners) defaultValue: false.
 
  Preferences setParameter: #menuColor to: (Color gray: 0.9).
  Preferences setParameter: #menuTitleColor to: (Color transparent).
  Preferences setParameter: #menuTitleBorderWidth to: 0.
  Preferences setParameter: #defaultWorldColor to: (Color gray: 0.25).
 
+ Preferences setPreference: #showSplitterHandles toValue: false.
- Preferences setPreference: #showSplitterHandles toValue: true.
  (Preferences preferenceAt: #showSplitterHandles) defaultValue: true.
 
  Preferences setPreference: #showSharedFlaps toValue: false.
  (Preferences preferenceAt: #showSharedFlaps) defaultValue: false.
 
+ Preferences installBrightWindowColors.
- Preferences installUniformWindowColors.
 
  CornerGripMorph drawCornerResizeHandles: false.
  FillInTheBlankMorph roundedDialogCorners: true.
 
  LazyListMorph
  listSelectionColor: LazyListMorph listSelectionColor;
  listSelectionTextColor: Color black.
  PluggableButtonMorph roundedButtonCorners: true.
  SystemWindow
  clickOnLabelToEdit: false;
  doubleClickOnLabelToExpand: true;
  moveMenuButtonRight: true;
  hideExpandButton: false.
  !