equal
deleted
inserted
replaced
2619 ]. |
2619 ]. |
2620 ^ label printString |
2620 ^ label printString |
2621 ! |
2621 ! |
2622 |
2622 |
2623 labelInPreviewPressed:anIndex |
2623 labelInPreviewPressed:anIndex |
2624 (builder componentAt:#labelAndColumns) selection:anIndex |
2624 (self componentAt:#labelAndColumns) selection:anIndex |
2625 ! |
2625 ! |
2626 |
2626 |
2627 updateColumnView |
2627 updateColumnView |
2628 "updates column view from column descriptions |
2628 "updates column view from column descriptions |
2629 " |
2629 " |
2775 |
2775 |
2776 ! |
2776 ! |
2777 |
2777 |
2778 postBuildWith:builder |
2778 postBuildWith:builder |
2779 |
2779 |
2780 columnView := self builder componentAt:#columnView. |
2780 columnView := self componentAt:#columnView. |
2781 "/ columnView labelView enabled:false. |
2781 "/ columnView labelView enabled:false. |
2782 |
2782 |
2783 super postBuildWith:builder. |
2783 super postBuildWith:builder. |
2784 |
2784 |
2785 columns notEmpty ifTrue: [ |
2785 columns notEmpty ifTrue: [ |
2788 self updateInputFields. |
2788 self updateInputFields. |
2789 self updateInfoLabel. |
2789 self updateInfoLabel. |
2790 self updateHistory |
2790 self updateHistory |
2791 ]. |
2791 ]. |
2792 |
2792 |
2793 (builder componentAt: #labelAndColumns) |
2793 (self componentAt: #labelAndColumns) |
2794 selectConditionBlock: [:i|self askForItemModification]; |
2794 selectConditionBlock: [:i|self askForItemModification]; |
2795 action: [:i|self cancel]; |
2795 action: [:i|self cancel]; |
2796 selection: 1. |
2796 selection: 1. |
2797 ! |
2797 ! |
2798 |
2798 |