equal
deleted
inserted
replaced
93 client releaseAsSubCanvas. |
93 client releaseAsSubCanvas. |
94 client := nil. |
94 client := nil. |
95 ]. |
95 ]. |
96 |
96 |
97 (builder := aBuilder) isNil ifTrue:[ |
97 (builder := aBuilder) isNil ifTrue:[ |
98 builder := anApplication perform:#builder ifNotUnderstood:[UIBuilder new] |
98 anApplication notNil ifTrue:[ |
|
99 builder := anApplication perform:#builder ifNotUnderstood:[ nil ] |
|
100 ]. |
|
101 builder isNil ifTrue:[ builder := UIBuilder new ]. |
99 ]. |
102 ]. |
100 |
103 |
101 spec := aWindowSpecOrSpecSymbol. |
104 spec := aWindowSpecOrSpecSymbol. |
102 |
105 |
103 "/ check for master application |
106 "/ check for master application |
539 ! ! |
542 ! ! |
540 |
543 |
541 !SubCanvas class methodsFor:'documentation'! |
544 !SubCanvas class methodsFor:'documentation'! |
542 |
545 |
543 version |
546 version |
544 ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.65 2008-10-20 14:47:34 cg Exp $' |
547 ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.66 2009-11-05 10:10:00 ca Exp $' |
545 ! ! |
548 ! |
|
549 |
|
550 version_CVS |
|
551 ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.66 2009-11-05 10:10:00 ca Exp $' |
|
552 ! ! |