The Trunk: Morphic-mt.762.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Morphic-mt.762.mcz

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

==================== 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."
  aCanvas
  translateBy: offsetToUse negated
  during: [:shadowCanvas |
  shadowCanvas shadowColor: colorToUse.
  shadowCanvas paintImage: newForm at: self position]!