equal
deleted
inserted
replaced
1412 ! |
1412 ! |
1413 |
1413 |
1414 buildSubCanvas:spec withBuilder:aBuilder |
1414 buildSubCanvas:spec withBuilder:aBuilder |
1415 "build a subcanvases spec into aSubcanvas" |
1415 "build a subcanvases spec into aSubcanvas" |
1416 |
1416 |
1417 |sameApp| |
1417 |sameApp prevSpec prevSource| |
1418 |
1418 |
1419 builder isNil ifTrue:[ |
1419 builder isNil ifTrue:[ |
1420 builder := aBuilder. |
1420 builder := aBuilder. |
1421 aBuilder isNil ifTrue:[ |
1421 aBuilder isNil ifTrue:[ |
1422 self createBuilder |
1422 self createBuilder |
1423 ] |
1423 ] |
|
1424 ] ifFalse:[ |
|
1425 prevSpec := aBuilder spec. |
|
1426 prevSource := aBuilder source. |
1424 ]. |
1427 ]. |
1425 |
1428 |
1426 aBuilder source:self. |
1429 aBuilder source:self. |
1427 |
1430 |
1428 "/ if the subcanvases appModel is NOT the same as |
1431 "/ if the subcanvases appModel is NOT the same as |
1442 sameApp ifTrue:[ |
1445 sameApp ifTrue:[ |
1443 self postBuildAsSubcanvasWith:aBuilder. |
1446 self postBuildAsSubcanvasWith:aBuilder. |
1444 ] ifFalse:[ |
1447 ] ifFalse:[ |
1445 self postBuildWith:aBuilder. |
1448 self postBuildWith:aBuilder. |
1446 ]. |
1449 ]. |
|
1450 |
|
1451 prevSpec notNil ifTrue:[ |
|
1452 "/ restore state in builder if original builder was used |
|
1453 aBuilder spec:prevSpec. |
|
1454 aBuilder source:prevSource. |
|
1455 ]. |
|
1456 |
1447 ^ aBuilder |
1457 ^ aBuilder |
1448 |
1458 |
1449 "Created: / 18.6.1998 / 20:08:45 / cg" |
1459 "Created: / 18.6.1998 / 20:08:45 / cg" |
1450 "Modified: / 8.7.1998 / 18:30:46 / cg" |
1460 "Modified: / 8.7.1998 / 18:30:46 / cg" |
1451 ! |
1461 ! |
2104 ! ! |
2114 ! ! |
2105 |
2115 |
2106 !ApplicationModel class methodsFor:'documentation'! |
2116 !ApplicationModel class methodsFor:'documentation'! |
2107 |
2117 |
2108 version |
2118 version |
2109 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.107 1999-07-05 22:00:33 cg Exp $' |
2119 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.108 1999-07-14 10:43:53 tm Exp $' |
2110 ! ! |
2120 ! ! |
2111 ApplicationModel initialize! |
2121 ApplicationModel initialize! |