equal
deleted
inserted
replaced
3601 |
3601 |
3602 ! ! |
3602 ! ! |
3603 |
3603 |
3604 !UIPainter::TreeView methodsFor:'building'! |
3604 !UIPainter::TreeView methodsFor:'building'! |
3605 |
3605 |
3606 generateFullSpecForComponents:aSpecArray |
3606 generateFullSpecForComponents:aSpecArray named:specNameSymbol |
3607 "generates a full spec from aSpecArray" |
3607 "generates a full spec from aSpecArray" |
3608 |
3608 |
3609 |fullSpec winSpec| |
3609 |fullSpec winSpec| |
3610 |
3610 |
3611 fullSpec := FullSpec new. |
3611 fullSpec := FullSpec new. |
|
3612 fullSpec name:specNameSymbol. |
3612 |
3613 |
3613 fullSpec fromBuilder:(self canvas topView) |
3614 fullSpec fromBuilder:(self canvas topView) |
3614 components:(SpecCollection new collection:aSpecArray). |
3615 components:(SpecCollection new collection:aSpecArray). |
3615 |
3616 |
3616 windowSpec notNil ifTrue:[ |
3617 windowSpec notNil ifTrue:[ |
3617 winSpec := fullSpec window. |
3618 winSpec := fullSpec window. |
3618 winSpec copyValuesFromSpec:windowSpec. |
3619 winSpec copyValuesFromSpec:windowSpec. |
3619 winSpec name: winSpec label. |
3620 winSpec name: winSpec label. |
3620 ]. |
3621 ]. |
3621 ^ fullSpec literalArrayEncoding. |
3622 ^ fullSpec literalArrayEncoding. |
3622 |
3623 |
3623 ! |
3624 ! |
3624 |
3625 |