equal
deleted
inserted
replaced
2264 " |
2264 " |
2265 |
2265 |
2266 <resource: #menu> |
2266 <resource: #menu> |
2267 |
2267 |
2268 ^ |
2268 ^ |
2269 #(#Menu |
2269 #(Menu |
2270 #( |
2270 ( |
2271 #(#MenuItem |
2271 (MenuItem |
2272 #label: 'TileMode' |
2272 label: 'TileMode' |
2273 #translateLabel: true |
2273 translateLabel: true |
2274 #indication: #tileModeHolder |
2274 indication: tileModeHolder |
|
2275 ) |
|
2276 (MenuItem |
|
2277 label: '-' |
|
2278 ) |
|
2279 (MenuItem |
|
2280 label: 'Background Color' |
|
2281 translateLabel: true |
|
2282 submenu: |
|
2283 (Menu |
|
2284 ( |
|
2285 (MenuItem |
|
2286 label: 'Gray' |
|
2287 translateLabel: true |
|
2288 choice: previewBackgroundColor |
|
2289 choiceValue: nil |
|
2290 ) |
|
2291 (MenuItem |
|
2292 label: 'Black' |
|
2293 translateLabel: true |
|
2294 choice: previewBackgroundColor |
|
2295 choiceValue: black |
|
2296 ) |
|
2297 (MenuItem |
|
2298 label: 'White' |
|
2299 translateLabel: true |
|
2300 choice: previewBackgroundColor |
|
2301 choiceValue: white |
|
2302 ) |
|
2303 ) |
|
2304 nil |
|
2305 nil |
|
2306 ) |
2275 ) |
2307 ) |
2276 ) |
2308 ) |
2277 nil |
2309 nil |
2278 nil |
2310 nil |
2279 ) |
2311 ) |
2534 holder addDependent:self. |
2566 holder addDependent:self. |
2535 ]. |
2567 ]. |
2536 ^ holder |
2568 ^ holder |
2537 ! |
2569 ! |
2538 |
2570 |
|
2571 previewBackgroundColor |
|
2572 |holder| |
|
2573 (holder := builder bindingAt:#previewBackgroundColor) isNil ifTrue:[ |
|
2574 builder aspectAt:#previewBackgroundColor put:(holder := nil asValue). |
|
2575 holder addDependent:self. |
|
2576 ]. |
|
2577 ^ holder |
|
2578 ! |
|
2579 |
2539 selectionOfColor |
2580 selectionOfColor |
2540 "returns a valueHolder for the current selection of the edit color. |
2581 "returns a valueHolder for the current selection of the edit color. |
2541 Here, an AspectAdaptor which accesses selectedColorIndex is returned." |
2582 Here, an AspectAdaptor which accesses selectedColorIndex is returned." |
2542 |
2583 |
2543 |holder| |
2584 |holder| |
2609 setValue: 0; |
2650 setValue: 0; |
2610 value: (self listOfColors indexOf: imageEditView selectedColor). |
2651 value: (self listOfColors indexOf: imageEditView selectedColor). |
2611 ! |
2652 ! |
2612 |
2653 |
2613 update:something with:aParameter from:changedObject |
2654 update:something with:aParameter from:changedObject |
2614 |clrIndex img | |
2655 |clrIndex img clr| |
2615 |
2656 |
2616 img := self image. |
2657 img := self image. |
2617 |
2658 |
2618 changedObject == self tileModeHolder ifTrue:[ |
2659 changedObject == self tileModeHolder ifTrue:[ |
2619 self imagePreView tileMode:(changedObject value) tileOffset:(img extent). |
2660 self imagePreView |
2620 self imagePreView clear; invalidate. |
2661 tileMode:(changedObject value) tileOffset:(img extent); |
|
2662 clear; |
|
2663 invalidate. |
|
2664 ^ self |
|
2665 ]. |
|
2666 changedObject == self previewBackgroundColor ifTrue:[ |
|
2667 clr := changedObject value isNil |
|
2668 ifTrue:[imageEditView viewBackground] |
|
2669 ifFalse:[Color perform:changedObject value]. |
|
2670 self imagePreView |
|
2671 viewBackground:clr; |
|
2672 clear; |
|
2673 invalidate. |
2621 ^ self |
2674 ^ self |
2622 ]. |
2675 ]. |
2623 |
2676 |
2624 changedObject == self listOfColors ifTrue:[ |
2677 changedObject == self listOfColors ifTrue:[ |
2625 something == #at: ifTrue:[ |
2678 something == #at: ifTrue:[ |