equal
deleted
inserted
replaced
3011 img isNil ifTrue:[ |
3011 img isNil ifTrue:[ |
3012 self warn:'No Image.'. |
3012 self warn:'No Image.'. |
3013 ^ self |
3013 ^ self |
3014 ]. |
3014 ]. |
3015 clrIndex := self selectionOfColor value. |
3015 clrIndex := self selectionOfColor value. |
|
3016 img mask notNil ifTrue: [ clrIndex := clrIndex - 1 ]. |
3016 (img colorFromValue:clrIndex-1) inspect |
3017 (img colorFromValue:clrIndex-1) inspect |
3017 ! |
3018 ! |
3018 |
3019 |
3019 makeBrighter |
3020 makeBrighter |
3020 | anyChange| |
3021 | anyChange| |