changeset 2573 | c18db441c6ab |
parent 2572 | 1c09be361688 |
child 2575 | 43e98f6d71d2 |
2572:1c09be361688 | 2573:c18db441c6ab |
---|---|
1697 ) |
1697 ) |
1698 (MenuItem |
1698 (MenuItem |
1699 label: '-' |
1699 label: '-' |
1700 ) |
1700 ) |
1701 (MenuItem |
1701 (MenuItem |
1702 enabled: hasColormap |
|
1703 label: 'Inspect Color' |
1702 label: 'Inspect Color' |
1704 itemValue: inspectColor |
1703 itemValue: inspectColor |
1705 translateLabel: true |
1704 translateLabel: true |
1706 ) |
1705 ) |
1707 ) |
1706 ) |
4708 self updateLabelsAndHistory. |
4707 self updateLabelsAndHistory. |
4709 ] |
4708 ] |
4710 ! |
4709 ! |
4711 |
4710 |
4712 inspectColor |
4711 inspectColor |
4713 |clrIndex| |
4712 |clrIndex clr| |
4714 |
4713 |
4715 clrIndex := self selectedColorIndexOrNil. |
4714 self hasColormap ifFalse:[ |
4716 clrIndex isNil ifTrue:[ |
4715 clr := self selectedColorOrNil |
4717 ^ self |
4716 ] ifTrue:[ |
4718 ]. |
4717 clrIndex := self selectedColorIndexOrNil. |
4719 (self image colorFromValue:clrIndex-1) inspect |
4718 clrIndex isNil ifTrue:[ |
4719 ^ self |
|
4720 ]. |
|
4721 clr := self image colorFromValue:clrIndex-1 |
|
4722 ]. |
|
4723 clr inspect |
|
4720 ! |
4724 ! |
4721 |
4725 |
4722 makeBrighter |
4726 makeBrighter |
4723 | anyChange| |
4727 | anyChange| |
4724 |
4728 |