equal
deleted
inserted
replaced
2476 |
2476 |
2477 reduceNumberOfColors |
2477 reduceNumberOfColors |
2478 |s n anyChange img| |
2478 |s n anyChange img| |
2479 |
2479 |
2480 s := Dialog request:'Number of color bits to strip (1-7) ?'. |
2480 s := Dialog request:'Number of color bits to strip (1-7) ?'. |
2481 s isNil ifTrue:[^ self]. |
2481 s size == 0 ifTrue:[^ self]. |
2482 n := Integer readFrom:s onError:0. |
2482 n := Integer readFrom:s onError:0. |
2483 (n between:1 and:7) ifFalse:[ |
2483 (n between:1 and:7) ifFalse:[ |
2484 Dialog warn:'Image unchanged'. |
2484 Dialog warn:'Image unchanged'. |
2485 ^ self |
2485 ^ self |
2486 ]. |
2486 ]. |