2668 Processor |
2668 Processor |
2669 addTimedBlock:[ |
2669 addTimedBlock:[ |
2670 |image d8image img| |
2670 |image d8image img| |
2671 |
2671 |
2672 image := Image fromUser. |
2672 image := Image fromUser. |
2673 |
2673 image isNil ifFalse:[ |
2674 image depth > 8 ifTrue:[ |
2674 image depth > 8 ifTrue:[ |
2675 Object errorSignal handle:[:ex | |
2675 Object errorSignal handle:[:ex | |
2676 ex signal == Object haltSignal ifTrue:[ex reject]. |
2676 ex signal == Object haltSignal ifTrue:[ex reject]. |
2677 ex signal == Signal noHandlerSignal ifTrue:[ex reject]. |
2677 ex signal == Signal noHandlerSignal ifTrue:[ex reject]. |
2678 |
2678 |
2679 self warn:'Could not convert to depth8 image (too many colors)'. |
2679 self warn:'Could not convert to depth8 image (too many colors)'. |
2680 d8image := nil. |
2680 d8image := nil. |
2681 ] do:[ |
2681 ] do:[ |
2682 d8image := Depth8Image new. |
2682 d8image := Depth8Image new. |
2683 d8image fromImage:image. |
2683 d8image fromImage:image. |
|
2684 ]. |
|
2685 d8image notNil ifTrue:[ |
|
2686 image := d8image |
|
2687 ] |
2684 ]. |
2688 ]. |
2685 d8image notNil ifTrue:[ |
2689 (imageEditView image:image) notNil ifTrue:[ |
2686 image := d8image |
2690 self listOfColors contents:(image colorMap). |
|
2691 self findColorMapMode. |
|
2692 self updateLabelsAndHistory. |
2687 ] |
2693 ] |
2688 ]. |
2694 ] |
2689 (imageEditView image:image) notNil ifTrue:[ |
2695 ] |
2690 self listOfColors contents:(image colorMap). |
|
2691 self findColorMapMode. |
|
2692 self updateLabelsAndHistory. |
|
2693 ] |
|
2694 ] |
|
2695 afterSeconds:1 |
2696 afterSeconds:1 |
2696 |
2697 |
2697 "Created: / 29.7.1998 / 21:24:42 / cg" |
2698 "Created: / 29.7.1998 / 21:24:42 / cg" |
2698 "Modified: / 10.9.1998 / 16:01:23 / cg" |
2699 "Modified: / 10.9.1998 / 16:01:23 / cg" |
2699 ! ! |
2700 ! ! |