Use new interface #client:spec: (ca)
authorStefan Vogel <sv@exept.de>
Tue, 21 Sep 1999 20:28:08 +0200
changeset 1221 473547d0dad1
parent 1220 998ca027d633
child 1222 bcb8b0ec295c
Use new interface #client:spec: (ca)
DataSetBuilder.st
--- a/DataSetBuilder.st	Mon Sep 20 16:28:43 1999 +0200
+++ b/DataSetBuilder.st	Tue Sep 21 20:28:08 1999 +0200
@@ -2600,9 +2600,7 @@
 
     view isNil ifTrue:[
         view := View origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
-        specSelector := (self class slices at:tabSelection) last.
-        spec := self class interfaceSpecFor:specSelector.
-        self builder buildFromSpec:spec in:view.
+        view client:self spec:(self class slices at:tabSelection) last.
 
         noteBook realized ifTrue:[
             noteBook realizeAllSubViews