equal
deleted
inserted
replaced
497 aView ~~ inputView ifTrue:[ |
497 aView ~~ inputView ifTrue:[ |
498 specArray add:(self fullSpecFor:aView) |
498 specArray add:(self fullSpecFor:aView) |
499 ] |
499 ] |
500 ]. |
500 ]. |
501 spec := FullSpec new. |
501 spec := FullSpec new. |
502 spec fromBuilder:self components:(SpecCollection new collection:specArray). |
502 spec fromBuilder:self topView components:(SpecCollection new collection:specArray). |
503 specArray := spec literalArrayEncoding. |
503 specArray := spec literalArrayEncoding. |
504 |
504 |
505 str := WriteStream on:String new. |
505 str := WriteStream on:String new. |
506 UISpecification prettyPrintSpecArray:specArray on:str indent:5. |
506 UISpecification prettyPrintSpecArray:specArray on:str indent:5. |
507 |
507 |
907 updateFromSpec:aSpec |
907 updateFromSpec:aSpec |
908 "update current selected view from specification |
908 "update current selected view from specification |
909 " |
909 " |
910 |props name builder v| |
910 |props name builder v| |
911 |
911 |
|
912 aSpec class == WindowSpec ifTrue:[ |
|
913 aSpec setAttributesIn:self topView with:(UIBuilder new). |
|
914 ^ treeView canvasNameChanged:aSpec name. |
|
915 ]. |
|
916 |
912 self singleSelection notNil ifTrue:[ |
917 self singleSelection notNil ifTrue:[ |
913 self withSelectionHiddenDo:[ |
918 self withSelectionHiddenDo:[ |
914 self transaction:#specification selectionDo:[:aView| |
919 self transaction:#specification selectionDo:[:aView| |
915 builder := UIBuilder new. |
920 builder := UIBuilder new. |
916 className notNil ifTrue:[ |
921 className notNil ifTrue:[ |