equal
deleted
inserted
replaced
2751 ]. |
2751 ]. |
2752 |
2752 |
2753 (view := listOfSpecViews at:tabSelection) isNil ifTrue:[ |
2753 (view := listOfSpecViews at:tabSelection) isNil ifTrue:[ |
2754 view := SimpleView new. |
2754 view := SimpleView new. |
2755 spec := (self class slices at:tabSelection) last. |
2755 spec := (self class slices at:tabSelection) last. |
|
2756 |
|
2757 "/ view client:nil spec:(self class interfaceSpecFor:spec) builder:(self builder). |
2756 view client:self spec:spec builder:(self builder). |
2758 view client:self spec:spec builder:(self builder). |
2757 listOfSpecViews at:tabSelection put:view. |
2759 listOfSpecViews at:tabSelection put:view. |
2758 ]. |
2760 ]. |
2759 self canvasHolder value:view |
2761 self canvasHolder value:view |
2760 ! ! |
2762 ! ! |
2849 ! |
2851 ! |
2850 |
2852 |
2851 cutOrDelete:isCut |
2853 cutOrDelete:isCut |
2852 "remove selected column and optionally put it to the clipboard" |
2854 "remove selected column and optionally put it to the clipboard" |
2853 |
2855 |
2854 |idx| |
2856 |idx model| |
2855 |
2857 |
2856 ((idx := selectedColumnIndex) ~~ 0 and: [self askForItemModification]) |
2858 ((idx := selectedColumnIndex) ~~ 0 and:[self askForItemModification]) ifFalse:[ |
2857 ifTrue: |
2859 ^ self |
2858 [ |
2860 ]. |
2859 self selectedColumnModel value:0. |
2861 model := self selectedColumnModel. |
2860 isCut ifTrue:[self clipboard: (columns at: idx)]. |
2862 model value:0. |
2861 columns removeIndex:idx. |
2863 |
2862 self seqList removeIndex:idx. |
2864 isCut ifTrue:[ |
2863 columns size > 0 ifTrue: [self selectedColumnModel value: ((idx - 1) max: 1)]. |
2865 self clipboard: (columns at: idx) |
2864 self updateColumnView. |
2866 ]. |
2865 self updateInputFields. |
2867 columns removeIndex:idx. |
2866 columns isEmpty ifTrue: [self isColumnSelected value: false]. |
2868 |
2867 self cancel. |
2869 self seqList removeIndex:idx. |
2868 modified := true. |
2870 model value:(idx min:(columns size)). |
2869 ] |
2871 self updateColumnView. |
|
2872 self updateInputFields. |
|
2873 |
|
2874 columns isEmpty ifTrue:[ |
|
2875 self isColumnSelected value: false |
|
2876 ]. |
|
2877 self cancel. |
|
2878 modified := true. |
|
2879 |
2870 ! |
2880 ! |
2871 |
2881 |
2872 doBrowseRowClass |
2882 doBrowseRowClass |
2873 "browse class of columns spec" |
2883 "browse class of columns spec" |
2874 |
2884 |