[Pkg] The Trunk: Morphic-mt.887.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Apr 16 12:05:20 UTC 2015


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!



More information about the Packages mailing list