equal
deleted
inserted
replaced
2108 ! |
2108 ! |
2109 |
2109 |
2110 grabScreenImage |
2110 grabScreenImage |
2111 "let user choose an area and grab that are for editing" |
2111 "let user choose an area and grab that are for editing" |
2112 |
2112 |
2113 |image img| |
2113 |image d8image img| |
2114 |
2114 |
2115 image := Image fromUser. |
2115 image := Image fromUser. |
2116 |
2116 |
2117 image depth > 8 ifTrue:[ |
2117 image depth > 8 ifTrue:[ |
2118 Object errorSignal handle:[:ex | |
2118 Object errorSignal handle:[:ex | |
|
2119 ex signal == Object haltSignal ifTrue:[ex reject]. |
|
2120 ex signal == Signal noHandlerSignal ifTrue:[ex reject]. |
|
2121 |
2119 self warn:'Could not convert to depth8 image (too many colors)'. |
2122 self warn:'Could not convert to depth8 image (too many colors)'. |
2120 ^ self |
2123 d8image := nil. |
2121 ] do:[ |
2124 ] do:[ |
2122 image := Depth8Image fromImage:image. |
2125 d8image := Depth8Image new. |
|
2126 d8image fromImage:image. |
|
2127 ]. |
|
2128 d8image notNil ifTrue:[ |
|
2129 image := d8image |
2123 ] |
2130 ] |
2124 ]. |
2131 ]. |
2125 (imageEditView image: image) notNil |
2132 (imageEditView image:image) notNil ifTrue:[ |
2126 ifTrue: |
|
2127 [ |
|
2128 self listOfColors contents:(image colorMap). |
2133 self listOfColors contents:(image colorMap). |
2129 self findColorMapMode. |
2134 self findColorMapMode. |
2130 self updateLabelsAndHistory. |
2135 self updateLabelsAndHistory. |
2131 ] |
2136 ] |
2132 |
2137 |