equal
deleted
inserted
replaced
2202 isButton: true |
2202 isButton: true |
2203 labelImage: (ResourceRetriever ToolbarIconLibrary copyWidgetIcon) |
2203 labelImage: (ResourceRetriever ToolbarIconLibrary copyWidgetIcon) |
2204 ) |
2204 ) |
2205 (MenuItem |
2205 (MenuItem |
2206 activeHelpKey: editPaste |
2206 activeHelpKey: editPaste |
2207 enabled: valueOfCanPaste |
2207 enabled: canPasteHolder |
2208 label: 'Paste' |
2208 label: 'Paste' |
2209 itemValue: doPaste |
2209 itemValue: doPaste |
2210 translateLabel: true |
2210 translateLabel: true |
2211 isButton: true |
2211 isButton: true |
2212 labelImage: (ResourceRetriever ToolbarIconLibrary pasteWidgetIcon) |
2212 labelImage: (ResourceRetriever ToolbarIconLibrary pasteWidgetIcon) |
2446 self updateColumnView. |
2446 self updateColumnView. |
2447 self updateInputFields. |
2447 self updateInputFields. |
2448 self updateInfoLabel. |
2448 self updateInfoLabel. |
2449 self updateHistory. |
2449 self updateHistory. |
2450 self clearModifiedFlag. |
2450 self clearModifiedFlag. |
2451 self valueOfEnablingCommitButtons value:false. |
2451 self enablingCommitButtonsHolder value:false. |
2452 ] |
2452 ] |
2453 ]. |
2453 ]. |
2454 |
2454 |
2455 "if opened on table columns" |
2455 "if opened on table columns" |
2456 |
2456 |
3086 |
3086 |
3087 cancel |
3087 cancel |
3088 "remove all changes and reload selected column values" |
3088 "remove all changes and reload selected column values" |
3089 |
3089 |
3090 self updateInputFields. |
3090 self updateInputFields. |
3091 self valueOfEnablingCommitButtons value:false. |
3091 self enablingCommitButtonsHolder value:false. |
3092 self clearModifiedFlag. |
3092 self clearModifiedFlag. |
3093 self valueOfEnablingCommitButtons value:false. |
3093 self enablingCommitButtonsHolder value:false. |
3094 |
3094 |
3095 "Modified: / 27.10.1998 / 14:41:41 / cg" |
3095 "Modified: / 27.10.1998 / 14:41:41 / cg" |
3096 ! |
3096 ! |
3097 |
3097 |
3098 cutOrDelete:isCut |
3098 cutOrDelete:isCut |
3155 list := self seqList. |
3155 list := self seqList. |
3156 label := 'Column ', (list size + 1) printString. |
3156 label := 'Column ', (list size + 1) printString. |
3157 columns add:(dscs := DataSetColumnSpec label:label selector:nil) afterIndex:selectedColumnIndex. |
3157 columns add:(dscs := DataSetColumnSpec label:label selector:nil) afterIndex:selectedColumnIndex. |
3158 self setDefaultValuesInNewColumn:dscs. |
3158 self setDefaultValuesInNewColumn:dscs. |
3159 self seqList add:label afterIndex:selectedColumnIndex. |
3159 self seqList add:label afterIndex:selectedColumnIndex. |
3160 self valueOfEnablingCommitButtons value ifFalse:[ |
3160 self enablingCommitButtonsHolder value ifFalse:[ |
3161 self selectedColumnModel value:selectedColumnIndex + 1 |
3161 self selectedColumnModel value:selectedColumnIndex + 1 |
3162 ]. |
3162 ]. |
3163 self cancel. |
3163 self cancel. |
3164 self updateColumnView. |
3164 self updateColumnView. |
3165 self setModified. |
3165 self setModified. |
3332 lbl := self labelFromColumn:col. |
3332 lbl := self labelFromColumn:col. |
3333 |
3333 |
3334 columns add:col afterIndex:selectedColumnIndex. |
3334 columns add:col afterIndex:selectedColumnIndex. |
3335 self seqList add:lbl afterIndex:selectedColumnIndex. |
3335 self seqList add:lbl afterIndex:selectedColumnIndex. |
3336 |
3336 |
3337 self valueOfEnablingCommitButtons value ifFalse:[ |
3337 self enablingCommitButtonsHolder value ifFalse:[ |
3338 self selectedColumnModel value:selectedColumnIndex + 1 |
3338 self selectedColumnModel value:selectedColumnIndex + 1 |
3339 ]. |
3339 ]. |
3340 self updateColumnView. |
3340 self updateColumnView. |
3341 self updateInputFields. |
3341 self updateInputFields. |
3342 self setModified. |
3342 self setModified. |