author | Claus Gittinger <cg@exept.de> |
Thu, 22 Jan 1998 21:06:47 +0100 | |
changeset 458 | daa7b41dd2e3 |
parent 457 | 0b39d43d4324 |
child 459 | fb5b5ecf7e86 |
UIPainterView.st | file | annotate | diff | comparison | revisions |
--- a/UIPainterView.st Thu Jan 22 20:59:48 1998 +0100 +++ b/UIPainterView.st Thu Jan 22 21:06:47 1998 +0100 @@ -827,7 +827,7 @@ spec := treeView generateFullSpecForComponents:spec. str := WriteStream on:String new. UISpecification prettyPrintSpecArray:spec on:str indent:5. - specCode := str contents. + specCode := self generateChunkFor:(str contents). (specCode includes:$!!) ifTrue:[ "/ oops - must be chunk format ...