The Trunk: Morphic-mt.887.mcz

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

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

Name: Morphic-mt.887
Author: mt
Time: 16 April 2015, 2:04:43.557 pm
UUID: e877ec70-5430-f043-9a5b-75c569dbad9a
Ancestors: Morphic-mt.886

Fixed regression in button colors of UserDialogBoxMorph.

=============== Diff against Morphic-mt.886 ===============

Item was changed:
  ----- Method: UserDialogBoxMorph>>addButton:value:selected:performActionOnEscape: (in category 'constructing') -----
  addButton: buttonLabel value: buttonValue selected: isSelected performActionOnEscape: performActionOnEscape
  "Adds a button with the given label and value.
  The value is returned if the user presses the button."
  | button |
  button := PluggableButtonMorphPlus new
  label: buttonLabel ;
  action: [ self closeDialog: buttonValue ] ;
+ onColor: self buttonColor twiceLighter
+ offColor: self buttonColor twiceLighter.
- color: self buttonColor twiceLighter.
  isSelected ifTrue: [ self selectButton: button ].
  performActionOnEscape ifTrue: [ self performActionOnEscapeOf: button ].
  self registerKeyFor: button.
  buttonRow addMorphBack: button!

Item was changed:
  ----- Method: UserDialogBoxMorph>>deselectSelectedButton (in category 'events') -----
  deselectSelectedButton
 
  selectedButton ifNil: [ ^self ].
+ selectedButton
+ onColor: self buttonColor twiceLighter
+ offColor: self buttonColor twiceLighter.
- selectedButton color: self buttonColor twiceLighter.
  selectedButton := nil!

Item was changed:
  ----- Method: UserDialogBoxMorph>>selectButton: (in category 'events') -----
  selectButton: aButton
 
  self deselectSelectedButton.
+ aButton
+ onColor: Color orange muchLighter
+ offColor: Color orange muchLighter.
- aButton color: Color orange muchLighter.
  selectedButton := aButton!