Button.st
changeset 5452 83b9d2b7ffff
parent 5449 4f95262d1b63
child 5453 b1f4397e4bde
equal deleted inserted replaced
5451:de512bcff4de 5452:83b9d2b7ffff
  2192         ].    
  2192         ].    
  2193         (border class == MacFlatButtonBorder) ifTrue:[ 
  2193         (border class == MacFlatButtonBorder) ifTrue:[ 
  2194             (c1 notNil and:[c2 notNil]) ifTrue:[
  2194             (c1 notNil and:[c2 notNil]) ifTrue:[
  2195                 border backgroundColor1:c1.
  2195                 border backgroundColor1:c1.
  2196                 border backgroundColor2:c2.
  2196                 border backgroundColor2:c2.
  2197                 border viewBackgroundColor:viewBackground.
  2197                 "/ border viewBackgroundColor:viewBackground.
  2198                 border color:bc.
  2198                 border color:bc.
  2199                 (GradientBackground new
  2199                 (GradientBackground new
  2200                         direction:#northSouth;
  2200                         direction:#northSouth;
  2201                          colors:{c1 . c2};
  2201                          colors:{c1 . c2};
  2202                          usedLength:height)
  2202                          usedLength:height)
  2205                 clearInside := false.
  2205                 clearInside := false.
  2206             ] ifFalse:[
  2206             ] ifFalse:[
  2207                 c1 := c2 := bg. 
  2207                 c1 := c2 := bg. 
  2208                 border backgroundColor1:c1.
  2208                 border backgroundColor1:c1.
  2209                 border backgroundColor2:c2.
  2209                 border backgroundColor2:c2.
  2210                 border viewBackgroundColor:viewBackground.
  2210                 "/ border viewBackgroundColor:viewBackground.
  2211                 border color:bc.
  2211                 border color:bc.
  2212             ].
  2212             ].
  2213         ].
  2213         ].
  2214         (border class == MacButtonBorder) ifTrue:[ 
  2214         (border class == MacButtonBorder) ifTrue:[ 
  2215             (c1 notNil and:[c2 notNil and:[c3 notNil]]) ifTrue:[
  2215             (c1 notNil and:[c2 notNil and:[c3 notNil]]) ifTrue:[