equal
deleted
inserted
replaced
1437 self selectedColumnModel value:0. |
1437 self selectedColumnModel value:0. |
1438 self clipboard: (columns at: idx). |
1438 self clipboard: (columns at: idx). |
1439 columns removeIndex:idx. |
1439 columns removeIndex:idx. |
1440 self seqList removeIndex:idx. |
1440 self seqList removeIndex:idx. |
1441 self updateColumnView. |
1441 self updateColumnView. |
1442 columns isEmpty ifTrue: [self isColumnSelected value: false] |
1442 columns isEmpty ifTrue: [self isColumnSelected value: false]. |
|
1443 hasChanged := true |
1443 ]. |
1444 ]. |
1444 ! |
1445 ! |
1445 |
1446 |
1446 doDefineClass |
1447 doDefineClass |
1447 "launch a dialog to define class and superclass |
1448 "launch a dialog to define class and superclass |
2212 |
2213 |
2213 ! ! |
2214 ! ! |
2214 |
2215 |
2215 !DataSetBuilder methodsFor:'startup / release'! |
2216 !DataSetBuilder methodsFor:'startup / release'! |
2216 |
2217 |
|
2218 closeRequest |
|
2219 "close request |
|
2220 " |
|
2221 self checkMenuItemModified ifTrue: [super closeRequest] |
|
2222 ! |
|
2223 |
2217 postBuildWith:builder |
2224 postBuildWith:builder |
2218 |
2225 |
2219 super postBuildWith:builder. |
2226 super postBuildWith:builder. |
2220 |
2227 |
2221 (builder componentAt: #columnView) selectConditionBlock: [:i|self checkMenuItemModified] |
2228 (builder componentAt: #columnView) selectConditionBlock: [:i|self checkMenuItemModified] |