equal
deleted
inserted
replaced
2053 |
2053 |
2054 selectedColumnIndex := 0. |
2054 selectedColumnIndex := 0. |
2055 |
2055 |
2056 updateBlock := [ |
2056 updateBlock := [ |
2057 columns notEmpty ifTrue: [ |
2057 columns notEmpty ifTrue: [ |
2058 self tabModel value: 0. |
2058 self tabModel value:0; value:1. "/ toggle to force change |
2059 self tabModel value: 1. |
2059 self selectedColumnModel value:nil; value:1. "/ toggle to force change |
2060 self selectedColumnModel value: nil. |
|
2061 self selectedColumnModel value: 1. |
|
2062 self updateColumnView. |
2060 self updateColumnView. |
2063 self updateInputFields. |
2061 self updateInputFields. |
2064 self updateInfoLabel. |
2062 self updateInfoLabel. |
2065 self updateHistory. |
2063 self updateHistory. |
2066 self modifiedChannel value: false. |
2064 self clearModifiedFlag. |
2067 self valueOfEnablingCommitButtons value:false. |
2065 self valueOfEnablingCommitButtons value:false. |
2068 ] |
2066 ] |
2069 ]. |
2067 ]. |
2070 |
2068 |
2071 "if opened on table columns" |
2069 "if opened on table columns" |
2104 |
2102 |
2105 self columns:aResourceSpec. |
2103 self columns:aResourceSpec. |
2106 |
2104 |
2107 columns notEmpty ifTrue: [ |
2105 columns notEmpty ifTrue: [ |
2108 self tabModel value: 1. |
2106 self tabModel value: 1. |
2109 self selectedColumnModel value: nil. |
2107 self selectedColumnModel value:nil; value:1. "/ toggle to force change |
2110 self selectedColumnModel value: 1. |
|
2111 self updateInputFields. |
2108 self updateInputFields. |
2112 self updateInfoLabel. |
2109 self updateInfoLabel. |
2113 self updateHistory |
2110 self updateHistory |
2114 ]. |
2111 ]. |
2115 |
2112 |
2692 "remove all changes and reload selected column values" |
2689 "remove all changes and reload selected column values" |
2693 |
2690 |
2694 self updateInputFields. |
2691 self updateInputFields. |
2695 self valueOfEnablingCommitButtons value:false. |
2692 self valueOfEnablingCommitButtons value:false. |
2696 self columnIsNotEditing value: true. |
2693 self columnIsNotEditing value: true. |
2697 self modifiedChannel value: false. |
2694 self clearModifiedFlag. |
2698 self valueOfEnablingCommitButtons value:false. |
2695 self valueOfEnablingCommitButtons value:false. |
2699 |
2696 |
2700 "Modified: / 27.10.1998 / 14:41:41 / cg" |
2697 "Modified: / 27.10.1998 / 14:41:41 / cg" |
2701 ! |
2698 ! |
2702 |
2699 |