equal
deleted
inserted
replaced
825 ] |
825 ] |
826 ]. |
826 ]. |
827 spec := treeView generateFullSpecForComponents:spec. |
827 spec := treeView generateFullSpecForComponents:spec. |
828 str := WriteStream on:String new. |
828 str := WriteStream on:String new. |
829 UISpecification prettyPrintSpecArray:spec on:str indent:5. |
829 UISpecification prettyPrintSpecArray:spec on:str indent:5. |
830 specCode := str contents. |
830 specCode := self generateChunkFor:(str contents). |
831 |
831 |
832 (specCode includes:$!!) ifTrue:[ |
832 (specCode includes:$!!) ifTrue:[ |
833 "/ oops - must be chunk format ... |
833 "/ oops - must be chunk format ... |
834 str := WriteStream on:String new. |
834 str := WriteStream on:String new. |
835 str nextPutAllAsChunk:specCode. |
835 str nextPutAllAsChunk:specCode. |