equal
deleted
inserted
replaced
154 !SubCanvas methodsFor:'building'! |
154 !SubCanvas methodsFor:'building'! |
155 |
155 |
156 rebuild |
156 rebuild |
157 "rebuild |
157 "rebuild |
158 " |
158 " |
159 |subSpec savedView| |
159 |subSpec savedView builderClass| |
160 |
160 |
161 scrolledView notNil ifTrue:[ |
161 scrolledView notNil ifTrue:[ |
162 scrolledView destroySubViews |
162 scrolledView destroySubViews |
163 ]. |
163 ]. |
164 |
164 |
173 ^ self |
173 ^ self |
174 ] |
174 ] |
175 ]. |
175 ]. |
176 |
176 |
177 builder isNil ifTrue:[ |
177 builder isNil ifTrue:[ |
178 builder := client builderClass new. |
178 client isNil ifTrue:[ |
|
179 builderClass := UIBuilder |
|
180 ] ifFalse:[ |
|
181 builderClass := client builderClass |
|
182 ]. |
|
183 builder := builderClass new. |
179 ]. |
184 ]. |
180 |
185 |
181 "/ old: |
186 "/ old: |
182 "/ builder buildFromSpec:subSpec in:scrolledView. |
187 "/ builder buildFromSpec:subSpec in:scrolledView. |
183 |
188 |
276 ! ! |
281 ! ! |
277 |
282 |
278 !SubCanvas class methodsFor:'documentation'! |
283 !SubCanvas class methodsFor:'documentation'! |
279 |
284 |
280 version |
285 version |
281 ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.10 1999-02-24 16:01:04 cg Exp $' |
286 ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.11 1999-05-21 16:26:11 cg Exp $' |
282 ! ! |
287 ! ! |