equal
deleted
inserted
replaced
6822 |image| |
6822 |image| |
6823 |
6823 |
6824 (image := imageEditView image) notNil ifTrue:[ |
6824 (image := imageEditView image) notNil ifTrue:[ |
6825 self findColorMapMode. |
6825 self findColorMapMode. |
6826 self updateLabelsAndHistory. |
6826 self updateLabelsAndHistory. |
|
6827 self updateInfoLabel. |
6827 ] |
6828 ] |
|
6829 |
|
6830 "Modified: / 24-08-2017 / 18:20:37 / cg" |
6828 ! |
6831 ! |
6829 |
6832 |
6830 inspectColor |
6833 inspectColor |
6831 |clrIndex clr| |
6834 |clrIndex clr| |
6832 |
6835 |
7209 Dialog warn:'Image unchanged'. |
7212 Dialog warn:'Image unchanged'. |
7210 ^ self |
7213 ^ self |
7211 ]. |
7214 ]. |
7212 |
7215 |
7213 self withExecuteCursorDo:[ |
7216 self withExecuteCursorDo:[ |
7214 |reduceColor| |
7217 |reduceColor nUsed| |
7215 |
7218 |
7216 reduceColor := |
7219 reduceColor := |
7217 [:clr | |
7220 [:clr | |
7218 |r g b nr ng nb| |
7221 |r g b nr ng nb| |
7219 |
7222 |
7245 imageEditView setModified. |
7248 imageEditView setModified. |
7246 self updateImage. |
7249 self updateImage. |
7247 self updateImagePreView. |
7250 self updateImagePreView. |
7248 |
7251 |
7249 self fetchImageData. |
7252 self fetchImageData. |
|
7253 |
7250 usedColors := newImage usedColorsMax:10000. |
7254 usedColors := newImage usedColorsMax:10000. |
7251 usedColors size == 10000 ifTrue:[ |
7255 nUsed := usedColors size. |
7252 Dialog information:('>= ' , usedColors size printString , ' colors used.') |
7256 nUsed == 10000 ifTrue:[ |
|
7257 Dialog information:('>= ' , nUsed printString , ' colors used.') |
7253 ] ifFalse:[ |
7258 ] ifFalse:[ |
7254 Dialog information:(usedColors size printString , ' colors used.') |
7259 Dialog information:(nUsed printString , ' colors used.') |
7255 ] |
7260 ] |
7256 ]. |
7261 ]. |
7257 |
7262 |
7258 "Modified: / 07-07-2006 / 13:10:42 / cg" |
7263 "Modified: / 24-08-2017 / 18:25:04 / cg" |
7259 ! |
7264 ! |
7260 |
7265 |
7261 selectColor:aColor |
7266 selectColor:aColor |
7262 |idx img cMap| |
7267 |idx img cMap| |
7263 |
7268 |