equal
deleted
inserted
replaced
263 window notNil ifTrue:[ |
263 window notNil ifTrue:[ |
264 ext := window extent. |
264 ext := window extent. |
265 |
265 |
266 ((window isMemberOf:View) |
266 ((window isMemberOf:View) |
267 or:[window isMemberOf:SimpleView]) ifTrue:[ |
267 or:[window isMemberOf:SimpleView]) ifTrue:[ |
|
268 |
268 windowView ~~ window ifTrue:[ |
269 windowView ~~ window ifTrue:[ |
269 windowView isNil ifTrue:[ |
270 windowView isNil ifTrue:[ |
270 self halt |
271 self halt:'debug halt - should not happen' |
271 ] |
272 ] |
272 ]. |
273 ]. |
273 aView addSubView:window. |
274 aView addSubView:window. |
274 ]. |
275 ]. |
275 ]. |
276 ]. |
280 spec notNil ifTrue:[ |
281 spec notNil ifTrue:[ |
281 spec window setupView:window for:self |
282 spec window setupView:window for:self |
282 ] |
283 ] |
283 ]. |
284 ]. |
284 |
285 |
285 "Modified: 3.3.1997 / 22:05:37 / cg" |
286 "Modified: 17.6.1997 / 18:03:54 / cg" |
286 ! ! |
287 ! ! |
287 |
288 |
288 !UIBuilder methodsFor:'misc'! |
289 !UIBuilder methodsFor:'misc'! |
289 |
290 |
290 newSubBuilder |
291 newSubBuilder |
297 ! ! |
298 ! ! |
298 |
299 |
299 !UIBuilder class methodsFor:'documentation'! |
300 !UIBuilder class methodsFor:'documentation'! |
300 |
301 |
301 version |
302 version |
302 ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.25 1997-05-27 09:13:44 ca Exp $' |
303 ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.26 1997-06-17 16:08:53 cg Exp $' |
303 ! ! |
304 ! ! |
304 UIBuilder initialize! |
305 UIBuilder initialize! |