equal
deleted
inserted
replaced
1262 "build from a aTabList" |
1262 "build from a aTabList" |
1263 |
1263 |
1264 self selection:0. |
1264 self selection:0. |
1265 listOfTabs removeAll. |
1265 listOfTabs removeAll. |
1266 |
1266 |
1267 aTabList do:[:aTabItem| listOfTabs add: aTabItem ]. |
1267 aTabList do:[:aTabItem| |
|
1268 self assert:(aTabItem isKindOf:TabItem). |
|
1269 listOfTabs add: aTabItem |
|
1270 ]. |
1268 self clearModified. |
1271 self clearModified. |
1269 listOfTabs notEmpty ifTrue:[ self selection:1 ]. |
1272 listOfTabs notEmpty ifTrue:[ self selection:1 ]. |
|
1273 |
|
1274 "Modified: / 08-11-2010 / 13:57:27 / cg" |
1270 ! |
1275 ! |
1271 |
1276 |
1272 loadFromClass:aClass andSelector:aSelector |
1277 loadFromClass:aClass andSelector:aSelector |
1273 "build from class and selector" |
1278 "build from class and selector" |
1274 |
1279 |
1291 |
1296 |
1292 (cls respondsTo: aSelector) ifTrue:[ |
1297 (cls respondsTo: aSelector) ifTrue:[ |
1293 spec := cls perform: aSelector. |
1298 spec := cls perform: aSelector. |
1294 ]. |
1299 ]. |
1295 spec size ~~ 0 ifTrue:[ |
1300 spec size ~~ 0 ifTrue:[ |
1296 spec do:[:aTab| |
1301 spec do:[:aTabOrArray| |
1297 listOfTabs add:aTab. |
1302 |tab| |
|
1303 |
|
1304 aTabOrArray isArray ifTrue:[ |
|
1305 tab := aTabOrArray decodeAsLiteralArray |
|
1306 ] ifFalse:[ |
|
1307 tab := aTabOrArray. |
|
1308 ]. |
|
1309 self assert:(tab isKindOf:TabItem). |
|
1310 listOfTabs add:tab. |
1298 ]. |
1311 ]. |
1299 self addHistoryEntryForClass:cls selector:specSelector. |
1312 self addHistoryEntryForClass:cls selector:specSelector. |
1300 ] |
1313 ] |
1301 ] |
1314 ] |
1302 ]. |
1315 ]. |
1303 |
1316 |
1304 self clearModified. |
1317 self clearModified. |
1305 ]. |
1318 ]. |
1306 listOfTabs notEmpty ifTrue:[ self selection:1 ]. |
1319 listOfTabs notEmpty ifTrue:[ self selection:1 ]. |
|
1320 |
|
1321 "Modified: / 08-11-2010 / 13:59:09 / cg" |
1307 ! ! |
1322 ! ! |
1308 |
1323 |
1309 !TabListEditor methodsFor:'change & update'! |
1324 !TabListEditor methodsFor:'change & update'! |
1310 |
1325 |
1311 update:something with:aParameter from:someObject |
1326 update:something with:aParameter from:someObject |
1437 |
1452 |
1438 addTab:aTab |
1453 addTab:aTab |
1439 |idx| |
1454 |idx| |
1440 |
1455 |
1441 aTab notNil ifTrue:[ |
1456 aTab notNil ifTrue:[ |
|
1457 self assert:(aTab isKindOf:TabItem). |
1442 self testMode value: false. |
1458 self testMode value: false. |
1443 |
1459 |
1444 (idx := self selection) == 0 ifTrue:[ |
1460 (idx := self selection) == 0 ifTrue:[ |
1445 listOfTabs add:aTab. |
1461 listOfTabs add:aTab. |
1446 self selection:(listOfTabs size). |
1462 self selection:(listOfTabs size). |
1447 ] ifFalse:[ |
1463 ] ifFalse:[ |
1448 listOfTabs add:aTab afterIndex:idx |
1464 listOfTabs add:aTab afterIndex:idx |
1449 ]. |
1465 ]. |
1450 self setModified. |
1466 self setModified. |
1451 ]. |
1467 ]. |
|
1468 |
|
1469 "Modified: / 08-11-2010 / 13:55:27 / cg" |
1452 ! |
1470 ! |
1453 |
1471 |
1454 cancel |
1472 cancel |
1455 "cancel all changes" |
1473 "cancel all changes" |
1456 |
1474 |