# HG changeset patch # User Claus Gittinger # Date 885564727 -3600 # Node ID dd67c1e99fed72f2bccff3dd9298f0467572c04f # Parent 947f891984649b1cf54a4f51abeb11fa4d79b4a6 oops diff -r 947f89198464 -r dd67c1e99fed UIPainterView.st --- a/UIPainterView.st Fri Jan 23 14:59:24 1998 +0100 +++ b/UIPainterView.st Fri Jan 23 15:12:07 1998 +0100 @@ -827,7 +827,7 @@ spec := treeView generateFullSpecForComponents:spec. str := WriteStream on:String new. UISpecification prettyPrintSpecArray:spec on:str indent:5. - specCode := self generateChunkFor:(str contents). + specCode := str contents. (specCode includes:$!!) ifTrue:[ "/ oops - must be chunk format ...