--- a/UIBuilder.st	Tue Jan 14 22:29:43 1997 +0100
+++ b/UIBuilder.st	Thu Jan 16 11:11:49 1997 +0100
@@ -63,6 +63,13 @@
 
 !UIBuilder methodsFor:'operation'!
 
+add:aSpec
+    view := aSpec buildViewFor:self.
+    ^ view
+
+    "Modified: 16.1.1997 / 00:45:07 / cg"
+!
+
 buildFromSpec:aSpecArray
     |m spec|
 
@@ -118,7 +125,7 @@
     "Created: 14.2.1997 / 14:52:27 / cg"
 ! !
 
-!UIBuilder methodsFor:'private arg parsing'!
+!UIBuilder ignoredMethodsFor:'private arg parsing'!
 
 getAlignmentOrigin:spec
     "called for #(AlignmentOrigin ?x ?relX ?x ?y ?relY ?y)"
@@ -230,7 +237,7 @@
 	    with:(((spec at:2) @ (spec at:3)) corner:((spec at:4) @ (spec at:5)))
 ! !
 
-!UIBuilder methodsFor:'private spec attribute parsing'!
+!UIBuilder ignoredMethodsFor:'private spec attribute parsing'!
 
 XXyMultipleSelections:args view:aView
     aView multipleSelectOk:args
@@ -584,7 +591,7 @@
     self readSpec:args view:aView frame:frameView.
 ! !
 
-!UIBuilder methodsFor:'private spec component parsing'!
+!UIBuilder ignoredMethodsFor:'private spec component parsing'!
 
 xActionButtonSpec:aSpec view:aView
     |b|
@@ -838,11 +845,7 @@
 
 ! !
 
-!UIBuilder methodsFor:'private spec parsing'!
-
-add:aSpec
-    self readSpec:aSpec
-!
+!UIBuilder ignoredMethodsFor:'private spec parsing'!
 
 doSingleSpec:selector args:args for:aView frame:frame
     Verbose ifTrue:[
@@ -901,7 +904,7 @@
     self perform:('x' , what , ':view:') asSymbol with:aSpec with:aView
 ! !
 
-!UIBuilder methodsFor:'private special kludges'!
+!UIBuilder ignoredMethodsFor:'private special kludges'!
 
 fixExtentFor:aPoint
     ^ aPoint "/ (aPoint * (1 @ 1.5)) truncated
@@ -918,6 +921,6 @@
 !UIBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.16 1997-01-14 14:17:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.17 1997-01-16 10:11:49 cg Exp $'
 ! !
 UIBuilder initialize!