equal
deleted
inserted
replaced
112 ]. |
112 ]. |
113 |
113 |
114 client := anApplication. |
114 client := anApplication. |
115 self rebuild. |
115 self rebuild. |
116 ^ builder |
116 ^ builder |
|
117 ! |
|
118 |
|
119 clientView |
|
120 ^ clientView |
117 ! |
121 ! |
118 |
122 |
119 makeClientViewScrollable:aBoolean |
123 makeClientViewScrollable:aBoolean |
120 |vs| |
124 |vs| |
121 |
125 |
358 "/ Transcript showCR:'SubCanvas: nil spec'. |
362 "/ Transcript showCR:'SubCanvas: nil spec'. |
359 ^ self |
363 ^ self |
360 ] |
364 ] |
361 ]. |
365 ]. |
362 subSpec isArray ifTrue:[ |
366 subSpec isArray ifTrue:[ |
363 subSpec := subSpec decodeAsLiteralArray |
367 subSpec := subSpec decodeAsLiteralArray. |
|
368 subSpec isArray ifTrue:[self halt]. |
364 ]. |
369 ]. |
365 |
370 |
366 builder isNil ifTrue:[ |
371 builder isNil ifTrue:[ |
367 client isNil ifTrue:[ |
372 client isNil ifTrue:[ |
368 builderClass := UIBuilder |
373 builderClass := UIBuilder |
436 ] |
441 ] |
437 ] |
442 ] |
438 ]. |
443 ]. |
439 |
444 |
440 clientViewIsScrolled ifTrue:[ |
445 clientViewIsScrolled ifTrue:[ |
441 clientView extent:((subSpec window layout) ? (subSpec window bounds)) extent. |
446 subSpec window layout notNil ifTrue:[ |
|
447 "/ mhmh - what should we base the size computation on ? |
|
448 "/ (I dont see any reason to look at the windows spec at all; |
|
449 "/ isn't the user of the spec the only one to control the size). |
|
450 clientView extent:(subSpec window bounds extent) |
|
451 ] ifFalse:[ |
|
452 clientView extent:(subSpec window bounds extent) |
|
453 ]. |
442 ]. |
454 ]. |
443 |
455 |
444 self realized ifTrue:[ |
456 self realized ifTrue:[ |
445 clientView realizeAllSubViews |
457 clientView realizeAllSubViews |
446 ]. |
458 ]. |
579 ! ! |
591 ! ! |
580 |
592 |
581 !SubCanvas class methodsFor:'documentation'! |
593 !SubCanvas class methodsFor:'documentation'! |
582 |
594 |
583 version |
595 version |
584 ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.56 2007-11-08 11:51:11 ca Exp $' |
596 ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.57 2008-02-18 08:33:17 cg Exp $' |
585 ! ! |
597 ! ! |