[squeak-dev] The Trunk: Morphic-mt.762.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Feb 26 17:40:58 UTC 2015

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:

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

Name: Morphic-mt.762
Author: mt
Time: 26 February 2015, 6:40:30.831 pm
UUID: bf4412d4-1e58-344a-ab7b-05e401f170d4
Ancestors: Morphic-mt.761

Flag added to document that we don't handle rounded corners for roll-over borders. (eToys only?)

=============== Diff against Morphic-mt.761 ===============

Item was changed:
  ----- Method: Morph>>drawRolloverBorderOn: (in category 'drawing') -----
  drawRolloverBorderOn: aCanvas 
  	| colorToUse offsetToUse myShadow newForm f |
  	colorToUse := self
  				valueOfProperty: #rolloverColor
  				ifAbsent: [Color blue alpha: 0.5].
  	offsetToUse := self
  				valueOfProperty: #rolloverWidth
  				ifAbsent: [10 @ 10].
  	self hasRolloverBorder: false.
  	myShadow := self shadowForm.
  	self hasRolloverBorder: true.
  	myShadow offset: 0 @ 0.
  	f := ColorForm extent: myShadow extent depth: 1.
  	myShadow displayOn: f.
  	f colors: {Color transparent. colorToUse}.
  	newForm := Form extent: offsetToUse * 2 + myShadow extent depth: 32.
  	(WarpBlt toForm: newForm) sourceForm: f;
  		 cellSize: 1;
  		 combinationRule: 3;
  		 copyQuad: f boundingBox innerCorners toRect: newForm boundingBox.
+ 	self flag: #roundedCorners. "mt: Check for #wantsRoundedCorners and call appropriate things in canvas."
  		translateBy: offsetToUse negated
  		during: [:shadowCanvas | 
  			shadowCanvas shadowColor: colorToUse.
  			shadowCanvas paintImage: newForm at: self position]!

More information about the Squeak-dev mailing list