equal
deleted
inserted
replaced
76 "release existing components and generate new components from |
76 "release existing components and generate new components from |
77 the given windowSpec, using the given builder." |
77 the given windowSpec, using the given builder." |
78 |
78 |
79 |myApp| |
79 |myApp| |
80 |
80 |
|
81 (client notNil and:[client ~~ anApplication]) ifTrue:[ |
|
82 client releaseAsSubCanvas. |
|
83 client := nil. |
|
84 ]. |
|
85 |
81 (builder := aBuilder) isNil ifTrue:[ |
86 (builder := aBuilder) isNil ifTrue:[ |
82 builder := anApplication perform:#builder |
87 builder := anApplication perform:#builder |
83 ifNotUnderstood:[UIBuilder new] |
88 ifNotUnderstood:[UIBuilder new] |
84 ]. |
89 ]. |
85 |
90 |
91 myApp ~~ anApplication ifTrue:[ |
96 myApp ~~ anApplication ifTrue:[ |
92 anApplication masterApplication:myApp |
97 anApplication masterApplication:myApp |
93 ] |
98 ] |
94 ]. |
99 ]. |
95 |
100 |
96 (client notNil and:[client ~~ anApplication]) ifTrue:[ |
|
97 client releaseAsSubCanvas |
|
98 ]. |
|
99 client := anApplication. |
101 client := anApplication. |
100 self rebuild. |
102 self rebuild. |
101 ^ builder |
103 ^ builder |
102 ! |
104 ! |
103 |
105 |
413 ! ! |
415 ! ! |
414 |
416 |
415 !SubCanvas class methodsFor:'documentation'! |
417 !SubCanvas class methodsFor:'documentation'! |
416 |
418 |
417 version |
419 version |
418 ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.22 2000-02-01 12:15:45 cg Exp $' |
420 ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.23 2000-02-08 10:31:31 ca Exp $' |
419 ! ! |
421 ! ! |