# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 885499607 -3600
# Node ID daa7b41dd2e3c9fd524c740bf8cebc3533f6a5b0
# Parent  0b39d43d4324ce706ba12ea41e26380393a2051d
care for exclas in spec-code (labels with exclamation marks)

diff -r 0b39d43d4324 -r daa7b41dd2e3 UIPainterView.st
--- 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 ...