diff -r 45f193f4e870 -r 1836a16763cc UIPainterView.st
--- a/UIPainterView.st	Fri Jul 04 23:47:35 1997 +0200
+++ b/UIPainterView.st	Fri Jul 04 23:50:04 1997 +0200
@@ -472,6 +472,9 @@
 
         newSel  := OrderedCollection new.
         builder := UIBuilder new.
+        className notNil ifTrue:[
+            builder applicationClass:(Smalltalk classNamed:className).
+        ].
 
         keepLayout ifFalse:[
             pasteOffset := 0@0.
@@ -511,6 +514,8 @@
         self select:newSel.
         self elementChangedSize:frame.
     ]
+
+    "Modified: 4.7.1997 / 23:49:14 / cg"
 !
 
 pasteWithLayout
@@ -945,7 +950,10 @@
     "build view and subviews from aSpecification into a frame. The top view
      is returned. The contained components of a spec are set to nil
     "
-    aBuilder applicationClass:(Smalltalk classNamed:className).
+
+    className notNil ifTrue:[
+        aBuilder applicationClass:(Smalltalk classNamed:className).
+    ].
 
     aBuilder componentCreationHook:[:aView :aSpec :aBdr||sv p s n|
         p := ViewProperty new.
@@ -967,6 +975,7 @@
 
     ^ aSpecification buildViewWithLayoutFor:aBuilder in:aFrame.
 
+    "Modified: 4.7.1997 / 23:48:55 / cg"
 !
 
 fullSpecFor:anObject
@@ -1033,6 +1042,9 @@
         self withSelectionHiddenDo:[
             self transaction:#specification selectionDo:[:aView|
                 builder := UIBuilder new.
+                className notNil ifTrue:[
+                    builder applicationClass:(Smalltalk classNamed:className).
+                ].
                 props   := self propertyOfView:aView.
                 name    := (aSpec name) withoutSeparators.
 
@@ -1060,6 +1072,8 @@
             ]
         ]
     ]
+
+    "Modified: 4.7.1997 / 23:49:44 / cg"
 ! !
 
 !UIPainterView methodsFor:'transaction'!
@@ -1202,6 +1216,9 @@
         view    := props view.
         spec    := args at:1.
         builder := UIBuilder new.
+        className notNil ifTrue:[
+            builder applicationClass:(Smalltalk classNamed:className).
+        ].
         props spec:spec.
 
         spec needsRebuildForAttributes ifTrue:[
@@ -1216,6 +1233,7 @@
         listHolder propertyChanged:props.
     ]
 
+    "Modified: 4.7.1997 / 23:49:39 / cg"
 ! !
 
 !UIPainterView methodsFor:'user actions - arrange'!