1632 #itemValue: #doLoadFromFile |
1632 #itemValue: #doLoadFromFile |
1633 #translateLabel: true |
1633 #translateLabel: true |
1634 ) |
1634 ) |
1635 #(#MenuItem |
1635 #(#MenuItem |
1636 #activeHelpKey: #fileGrabImage |
1636 #activeHelpKey: #fileGrabImage |
1637 #label: 'Grab from Screen' |
1637 #label: 'Grab from Screen...' |
1638 #itemValue: #grabScreenImage |
1638 #itemValue: #grabScreenImage |
1639 #translateLabel: true |
1639 #translateLabel: true |
1640 ) |
1640 ) |
1641 #(#MenuItem |
1641 #(#MenuItem |
1642 #enabled: #imageHasNextImage |
1642 #enabled: #imageHasNextImage |
1660 #label: 'Save As...' |
1660 #label: 'Save As...' |
1661 #itemValue: #doSaveMethodAs |
1661 #itemValue: #doSaveMethodAs |
1662 #translateLabel: true |
1662 #translateLabel: true |
1663 ) |
1663 ) |
1664 #(#MenuItem |
1664 #(#MenuItem |
1665 #label: '-' |
|
1666 ) |
|
1667 #(#MenuItem |
|
1668 #activeHelpKey: #fileSaveAs |
1665 #activeHelpKey: #fileSaveAs |
1669 #enabled: #imageIsLoaded |
1666 #enabled: #imageIsLoaded |
1670 #label: 'Save to File...' |
1667 #label: 'Save to File...' |
1671 #itemValue: #doSaveImageFileAs |
1668 #itemValue: #doSaveImageFileAs |
1672 #translateLabel: true |
1669 #translateLabel: true |
1679 #translateLabel: true |
1676 #translateLabel: true |
1680 ) |
1677 ) |
1681 #(#MenuItem |
1678 #(#MenuItem |
1682 #activeHelpKey: #fileSaveButtonImageAs |
1679 #activeHelpKey: #fileSaveButtonImageAs |
1683 #enabled: #imageIsLoaded |
1680 #enabled: #imageIsLoaded |
1684 #label: 'Save As Button to File...' |
1681 #label: 'Save as Button to File...' |
1685 #itemValue: #doSaveButtonImageToFileAs |
1682 #itemValue: #doSaveButtonImageToFileAs |
1686 #translateLabel: true |
1683 #translateLabel: true |
1687 ) |
1684 ) |
1688 #(#MenuItem |
1685 #(#MenuItem |
1689 #label: '-' |
1686 #label: '-' |
1863 #itemValue: #doShiftManual |
1860 #itemValue: #doShiftManual |
1864 #translateLabel: true |
1861 #translateLabel: true |
1865 ) |
1862 ) |
1866 #(#MenuItem |
1863 #(#MenuItem |
1867 #activeHelpKey: #uncropManual |
1864 #activeHelpKey: #uncropManual |
1868 #label: 'Ungrop (Add Border)...' |
1865 #label: 'Uncrop (Add Border)...' |
1869 #itemValue: #doUnCropManual |
1866 #itemValue: #doUnCropManual |
1870 #translateLabel: true |
1867 #translateLabel: true |
1871 ) |
1868 ) |
1872 ) |
1869 ) |
1873 nil |
1870 nil |
2292 #choiceValue: #pasteUnder |
2289 #choiceValue: #pasteUnder |
2293 ) |
2290 ) |
2294 #(#MenuItem |
2291 #(#MenuItem |
2295 #activeHelpKey: #drawModePasteWithMask |
2292 #activeHelpKey: #drawModePasteWithMask |
2296 #enabled: #imageIsLoaded |
2293 #enabled: #imageIsLoaded |
2297 #label: 'Paste With Mask' |
2294 #label: 'Paste with Mask' |
2298 #translateLabel: true |
2295 #translateLabel: true |
2299 #choice: #editMode |
2296 #choice: #editMode |
2300 #choiceValue: #pasteWithMask |
2297 #choiceValue: #pasteWithMask |
2301 ) |
2298 ) |
2302 #(#MenuItem |
2299 #(#MenuItem |
3313 shiftProcess := nil. |
3310 shiftProcess := nil. |
3314 ]. |
3311 ]. |
3315 shiftProcess := |
3312 shiftProcess := |
3316 [ |
3313 [ |
3317 [ |
3314 [ |
3318 imageEditView image colorMap:originalColormap copy. |
3315 imageEditView image |
3319 imageEditView image colorMapProcessing:[:clr | shiftedColor value:clr value:hShift value:lFactor value:sFactor]. |
3316 colorMap:originalColormap copy; |
|
3317 colorMapProcessing:[:clr | shiftedColor value:clr value:hShift value:lFactor value:sFactor]. |
3320 self updateImage. |
3318 self updateImage. |
3321 self updateInfoLabel. |
3319 self updateInfoLabel. |
3322 ] ensure:[ shiftProcess := nil ]. |
3320 ] ensure:[ shiftProcess := nil ]. |
3323 ] forkAt:7. |
3321 ] forkAt:7. |
3324 ]. |
3322 ]. |
3325 |
3323 |
3326 bindings := IdentityDictionary new. |
3324 bindings := IdentityDictionary new. |
3327 bindings at:#hueShiftAmount put:(hueShift := 0 asValue). |
3325 bindings at:#hueShiftAmount put:(hueShift := 0 asValue). |
3328 (bindings at:#hueShiftAmount) onChangeEvaluate:shiftAction. |
3326 hueShift onChangeEvaluate:shiftAction. |
3329 |
3327 |
3330 bindings at:#lightAmount put:(lightValue := 100 asValue). |
3328 bindings at:#lightAmount put:(lightValue := 100 asValue). |
3331 (bindings at:#lightAmount) onChangeEvaluate:shiftAction. |
3329 lightValue onChangeEvaluate:shiftAction. |
3332 |
3330 |
3333 bindings at:#saturationAmount put:(saturationValue := 100 asValue). |
3331 bindings at:#saturationAmount put:(saturationValue := 100 asValue). |
3334 (bindings at:#saturationAmount) onChangeEvaluate:shiftAction. |
3332 saturationValue onChangeEvaluate:shiftAction. |
3335 |
3333 |
3336 bindings at:#acceptChannel put:acceptChannel. |
3334 bindings at:#acceptChannel put:acceptChannel. |
3337 bindings at:#hlsColor put:avgColorHolder. |
3335 bindings at:#hlsColor put:avgColorHolder. |
3338 |
3336 |
3339 (self openDialogInterface:#changeHLSDialogSpec withBindings:bindings) |
3337 (self openDialogInterface:#changeHLSDialogSpec withBindings:bindings) |