equal
deleted
inserted
replaced
1225 #( |
1225 #( |
1226 #(#MenuItem |
1226 #(#MenuItem |
1227 #'label:' 'Cut' |
1227 #'label:' 'Cut' |
1228 #'value:' #doCutColumn |
1228 #'value:' #doCutColumn |
1229 #'enabled:' #isColumnSelected |
1229 #'enabled:' #isColumnSelected |
1230 #'shortcutKeyCharacter:' #Cut |
|
1231 ) |
1230 ) |
1232 #(#MenuItem |
1231 #(#MenuItem |
1233 #'label:' 'Copy' |
1232 #'label:' 'Copy' |
1234 #'value:' #doCopyColumn |
1233 #'value:' #doCopyColumn |
1235 #'enabled:' #isColumnSelected |
1234 #'enabled:' #isColumnSelected |
1236 #'shortcutKeyCharacter:' #Copy |
|
1237 ) |
1235 ) |
1238 #(#MenuItem |
1236 #(#MenuItem |
1239 #'label:' 'Paste' |
1237 #'label:' 'Paste' |
1240 #'value:' #doPasteColumn |
1238 #'value:' #doPasteColumn |
1241 #'enabled:' #valueOfHavingClipboard |
1239 #'enabled:' #valueOfHavingClipboard |
1242 #'shortcutKeyCharacter:' #Paste |
|
1243 ) |
1240 ) |
1244 #(#MenuItem |
1241 #(#MenuItem |
1245 #'label:' '-' |
1242 #'label:' '-' |
1246 ) |
1243 ) |
1247 #(#MenuItem |
1244 #(#MenuItem |
1391 |cls| |
1388 |cls| |
1392 |
1389 |
1393 (cls := self resolveClassNamed) notNil ifTrue:[ |
1390 (cls := self resolveClassNamed) notNil ifTrue:[ |
1394 SystemBrowser openInClass:cls |
1391 SystemBrowser openInClass:cls |
1395 ] ifFalse:[ |
1392 ] ifFalse:[ |
1396 self information:'no class yet'. |
1393 self information:'No class defined!!' |
1397 ]. |
1394 ] |
1398 |
1395 |
1399 |
1396 |
1400 |
1397 |
1401 ! |
1398 ! |
1402 |
1399 |
1511 |
1508 |
1512 doGenerateCode |
1509 doGenerateCode |
1513 |cls superclass| |
1510 |cls superclass| |
1514 |
1511 |
1515 className isNil ifTrue:[ |
1512 className isNil ifTrue:[ |
1516 ^ self information:'no class defined' |
1513 ^ self information:'No class defined!!' |
1517 ]. |
1514 ]. |
1518 cls := self resolveClassNamed. |
1515 cls := self resolveClassNamed. |
1519 |
1516 |
1520 cls isNil ifTrue:[ |
1517 cls isNil ifTrue:[ |
1521 superclass := Smalltalk resolveName:superclassName inClass:self class. |
1518 superclass := Smalltalk resolveName:superclassName inClass:self class. |
1809 |
1806 |
1810 !DataSetBuilder methodsFor:'change & update'! |
1807 !DataSetBuilder methodsFor:'change & update'! |
1811 |
1808 |
1812 update:something with:aParameter from:someObject |
1809 update:something with:aParameter from:someObject |
1813 "one of my aspects has changed; update modified channel |
1810 "one of my aspects has changed; update modified channel |
1814 " |
1811 " |
|
1812 |
1815 isModified ifFalse:[ |
1813 isModified ifFalse:[ |
1816 isModified := hasChanged := true. |
1814 isModified := hasChanged := true. |
1817 self modifiedChannel value:true. |
1815 self modifiedChannel value:true. |
1818 "self isNotModified value:false. " |
1816 "self isNotModified value:false. " |
1819 ] |
1817 ] |
2223 |
2221 |
2224 postBuildWith:builder |
2222 postBuildWith:builder |
2225 |
2223 |
2226 super postBuildWith:builder. |
2224 super postBuildWith:builder. |
2227 |
2225 |
2228 (builder componentAt: #columnView) selectConditionBlock: [:i|self checkMenuItemModified] |
2226 (builder componentAt: #columnView) |
|
2227 selectConditionBlock: [:i|self checkMenuItemModified]; |
|
2228 selection: 1 |
2229 |
2229 |
2230 |
2230 |
2231 |
2231 |
2232 ! ! |
2232 ! ! |
2233 |
2233 |