520 #adjust: #right |
520 #adjust: #right |
521 ) |
521 ) |
522 #(#InputFieldSpec |
522 #(#InputFieldSpec |
523 #name: 'GropLeftEntryField' |
523 #name: 'GropLeftEntryField' |
524 #layout: #(#LayoutFrame 95 0 21 0 132 0 43 0) |
524 #layout: #(#LayoutFrame 95 0 21 0 132 0 43 0) |
|
525 #tabable: true |
525 #model: #left |
526 #model: #left |
526 #type: #number |
527 #type: #number |
527 #acceptChannel: #acceptChannel |
528 #acceptChannel: #acceptChannel |
528 #acceptOnPointerLeave: false |
529 #acceptOnPointerLeave: false |
529 ) |
530 ) |
530 #(#ActionButtonSpec |
531 #(#ActionButtonSpec |
531 #label: 'Now' |
532 #label: 'Now' |
532 #name: 'GropLeftNowButton' |
533 #name: 'GropLeftNowButton' |
533 #layout: #(#LayoutFrame 148 0 21 0 221 0 43 0) |
534 #layout: #(#LayoutFrame 148 0 21 0 221 0 43 0) |
534 #translateLabel: true |
535 #translateLabel: true |
|
536 #tabable: true |
535 #model: #gropLeftNow |
537 #model: #gropLeftNow |
536 ) |
538 ) |
537 #(#LabelSpec |
539 #(#LabelSpec |
538 #label: 'Right:' |
540 #label: 'Right:' |
539 #name: 'GropRightLabel' |
541 #name: 'GropRightLabel' |
542 #adjust: #right |
544 #adjust: #right |
543 ) |
545 ) |
544 #(#InputFieldSpec |
546 #(#InputFieldSpec |
545 #name: 'GropRightEntryField' |
547 #name: 'GropRightEntryField' |
546 #layout: #(#LayoutFrame 95 0 51 0 132 0 73 0) |
548 #layout: #(#LayoutFrame 95 0 51 0 132 0 73 0) |
|
549 #tabable: true |
547 #model: #right |
550 #model: #right |
548 #type: #number |
551 #type: #number |
549 #acceptChannel: #acceptChannel |
552 #acceptChannel: #acceptChannel |
550 #acceptOnPointerLeave: false |
553 #acceptOnPointerLeave: false |
551 ) |
554 ) |
552 #(#ActionButtonSpec |
555 #(#ActionButtonSpec |
553 #label: 'Now' |
556 #label: 'Now' |
554 #name: 'GropRightButton' |
557 #name: 'GropRightButton' |
555 #layout: #(#LayoutFrame 148 0 51 0 221 0 73 0) |
558 #layout: #(#LayoutFrame 148 0 51 0 221 0 73 0) |
556 #translateLabel: true |
559 #translateLabel: true |
|
560 #tabable: true |
557 #model: #gropRightNow |
561 #model: #gropRightNow |
558 ) |
562 ) |
559 #(#LabelSpec |
563 #(#LabelSpec |
560 #label: 'Top:' |
564 #label: 'Top:' |
561 #name: 'GropTopLabel' |
565 #name: 'GropTopLabel' |
564 #adjust: #right |
568 #adjust: #right |
565 ) |
569 ) |
566 #(#InputFieldSpec |
570 #(#InputFieldSpec |
567 #name: 'GropTopEntryField' |
571 #name: 'GropTopEntryField' |
568 #layout: #(#LayoutFrame 95 0 81 0 132 0 103 0) |
572 #layout: #(#LayoutFrame 95 0 81 0 132 0 103 0) |
|
573 #tabable: true |
569 #model: #top |
574 #model: #top |
570 #type: #number |
575 #type: #number |
571 #acceptChannel: #acceptChannel |
576 #acceptChannel: #acceptChannel |
572 #acceptOnPointerLeave: false |
577 #acceptOnPointerLeave: false |
573 ) |
578 ) |
574 #(#ActionButtonSpec |
579 #(#ActionButtonSpec |
575 #label: 'Now' |
580 #label: 'Now' |
576 #name: 'GropTopButton' |
581 #name: 'GropTopButton' |
577 #layout: #(#LayoutFrame 148 0 81 0 221 0 103 0) |
582 #layout: #(#LayoutFrame 148 0 81 0 221 0 103 0) |
578 #translateLabel: true |
583 #translateLabel: true |
|
584 #tabable: true |
579 #model: #gropTopNow |
585 #model: #gropTopNow |
580 ) |
586 ) |
581 #(#LabelSpec |
587 #(#LabelSpec |
582 #label: 'Bottom:' |
588 #label: 'Bottom:' |
583 #name: 'GropBottomLabel' |
589 #name: 'GropBottomLabel' |
586 #adjust: #right |
592 #adjust: #right |
587 ) |
593 ) |
588 #(#InputFieldSpec |
594 #(#InputFieldSpec |
589 #name: 'GropBottomEntryField' |
595 #name: 'GropBottomEntryField' |
590 #layout: #(#LayoutFrame 95 0 111 0 132 0 133 0) |
596 #layout: #(#LayoutFrame 95 0 111 0 132 0 133 0) |
|
597 #tabable: true |
591 #model: #bottom |
598 #model: #bottom |
592 #type: #number |
599 #type: #number |
593 #acceptChannel: #acceptChannel |
600 #acceptChannel: #acceptChannel |
594 #acceptOnPointerLeave: false |
601 #acceptOnPointerLeave: false |
595 ) |
602 ) |
596 #(#ActionButtonSpec |
603 #(#ActionButtonSpec |
597 #label: 'Now' |
604 #label: 'Now' |
598 #name: 'GropBottomButton' |
605 #name: 'GropBottomButton' |
599 #layout: #(#LayoutFrame 148 0 111 0 221 0 133 0) |
606 #layout: #(#LayoutFrame 148 0 111 0 221 0 133 0) |
600 #translateLabel: true |
607 #translateLabel: true |
|
608 #tabable: true |
601 #model: #gropBottomNow |
609 #model: #gropBottomNow |
602 ) |
610 ) |
603 #(#HorizontalPanelViewSpec |
611 #(#HorizontalPanelViewSpec |
604 #name: 'HorizontalPanel1' |
612 #name: 'HorizontalPanel1' |
605 #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1) |
613 #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1) |
613 #collection: #( |
621 #collection: #( |
614 #(#ActionButtonSpec |
622 #(#ActionButtonSpec |
615 #label: 'Cancel' |
623 #label: 'Cancel' |
616 #name: 'Button1' |
624 #name: 'Button1' |
617 #translateLabel: true |
625 #translateLabel: true |
|
626 #tabable: true |
618 #model: #cancel |
627 #model: #cancel |
619 #extent: #(#Point 77 22) |
628 #extent: #(#Point 77 22) |
620 ) |
629 ) |
621 #(#ActionButtonSpec |
630 #(#ActionButtonSpec |
622 #label: 'Apply' |
631 #label: 'Apply' |
623 #name: 'Button3' |
632 #name: 'Button3' |
624 #translateLabel: true |
633 #translateLabel: true |
|
634 #tabable: true |
625 #model: #applyAction |
635 #model: #applyAction |
626 #extent: #(#Point 78 22) |
636 #extent: #(#Point 78 22) |
627 ) |
637 ) |
628 #(#ActionButtonSpec |
638 #(#ActionButtonSpec |
629 #label: 'OK' |
639 #label: 'OK' |
630 #name: 'Button2' |
640 #name: 'Button2' |
631 #translateLabel: true |
641 #translateLabel: true |
|
642 #tabable: true |
632 #model: #accept |
643 #model: #accept |
633 #extent: #(#Point 78 22) |
644 #extent: #(#Point 78 22) |
634 ) |
645 ) |
635 ) |
646 ) |
636 |
647 |
2768 "Created: / 12.3.1999 / 00:20:28 / cg" |
2779 "Created: / 12.3.1999 / 00:20:28 / cg" |
2769 "Modified: / 16.3.1999 / 21:57:26 / cg" |
2780 "Modified: / 16.3.1999 / 21:57:26 / cg" |
2770 ! |
2781 ! |
2771 |
2782 |
2772 makeSelectedColorDarker |
2783 makeSelectedColorDarker |
2773 |depth img cMap clr newColorMap newImage oldCListSize newMode| |
2784 |depth img cMap clr newImage| |
2774 |
2785 |
2775 img := self image. |
2786 img := self image. |
2776 cMap := img colorMap. |
2787 cMap := img colorMap. |
2777 cMap isNil ifTrue:[ |
2788 cMap isNil ifTrue:[ |
2778 self warn:'Image has no colormap\change colorMap mode first.' withCRs. |
2789 self warn:'Image has no colormap\change colorMap mode first.' withCRs. |
3023 self updateInfoLabel |
3034 self updateInfoLabel |
3024 ]. |
3035 ]. |
3025 ]. |
3036 ]. |
3026 |
3037 |
3027 bindings := IdentityDictionary new. |
3038 bindings := IdentityDictionary new. |
3028 bindings at:#left put:(left := 0 asValue). |
3039 bindings at:#left put:(left := 1 asValue). |
3029 bindings at:#right put:(right := 0 asValue). |
3040 bindings at:#right put:(right := 1 asValue). |
3030 bindings at:#top put:(top := 0 asValue). |
3041 bindings at:#top put:(top := 1 asValue). |
3031 bindings at:#bottom put:(bottom := 0 asValue). |
3042 bindings at:#bottom put:(bottom := 1 asValue). |
3032 bindings at:#acceptChannel put:acceptChannel. |
3043 bindings at:#acceptChannel put:acceptChannel. |
3033 |
3044 |
3034 bindings at:#gropLeftNow put:[ gropAction value:left value:0 value:0 value:0 ]. |
3045 bindings at:#gropLeftNow put:[ gropAction value:left value:0 value:0 value:0 ]. |
3035 bindings at:#gropRightNow put:[ gropAction value:0 value:right value:0 value:0 ]. |
3046 bindings at:#gropRightNow put:[ gropAction value:0 value:right value:0 value:0 ]. |
3036 bindings at:#gropTopNow put:[ gropAction value:0 value:0 value:top value:0 ]. |
3047 bindings at:#gropTopNow put:[ gropAction value:0 value:0 value:top value:0 ]. |
3037 bindings at:#gropBottomNow put:[ gropAction value:0 value:0 value:0 value:bottom ]. |
3048 bindings at:#gropBottomNow put:[ gropAction value:0 value:0 value:0 value:bottom ]. |
3038 |
3049 |
3039 bindings at:#applyAction put:[ gropAction value:left value:right value:top value:bottom ]. |
3050 bindings at:#applyAction put:[ gropAction value:left value:right value:top value:bottom ]. |
3040 |
3051 |
3041 (self openDialogInterface:#gropDialogSpec withBindings:bindings) |
3052 (self openDialogInterface:#gropDialogSpec withBindings:bindings) |
3042 ifFalse:[ imageEditView undo ]. |
3053 ifFalse:[ |
|
3054 firstChange ~~ true ifTrue:[ |
|
3055 imageEditView undo |
|
3056 ] |
|
3057 ]. |
3043 |
3058 |
3044 "Created: / 7.9.1998 / 18:16:07 / cg" |
3059 "Created: / 7.9.1998 / 18:16:07 / cg" |
3045 "Modified: / 7.9.1998 / 18:20:42 / cg" |
3060 "Modified: / 7.9.1998 / 18:20:42 / cg" |
3046 ! |
3061 ! |
3047 |
3062 |