equal
deleted
inserted
replaced
4883 anyChange := false. |
4883 anyChange := false. |
4884 |
4884 |
4885 shiftedColor := [:clr :hShift :lFactor :sFactor | |
4885 shiftedColor := [:clr :hShift :lFactor :sFactor | |
4886 Color |
4886 Color |
4887 hue:((clr hue) ? 0 + hShift) |
4887 hue:((clr hue) ? 0 + hShift) |
4888 light:((clr light * lFactor / 100) "min:100") |
4888 light:((clr light * lFactor / 100) min:100) |
4889 saturation:((clr saturation * sFactor / 100) "min:100")]. |
4889 saturation:((clr saturation * sFactor / 100) min:100)]. |
4890 |
4890 |
4891 shiftAction := |
4891 shiftAction := |
4892 [ |
4892 [ |
4893 |hShift lFactor sFactor| |
4893 |hShift lFactor sFactor| |
4894 |
4894 |