--- 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'!