UIBuilder.st
changeset 917 66872b5bfdcb
parent 863 8e7411aa5697
child 965 04cadbd21aac
equal deleted inserted replaced
916:64822d23fdec 917:66872b5bfdcb
   179 ! !
   179 ! !
   180 
   180 
   181 !UIBuilder methodsFor:'building'!
   181 !UIBuilder methodsFor:'building'!
   182 
   182 
   183 buildFromSpec:aSpecOrSpecArray
   183 buildFromSpec:aSpecOrSpecArray
   184     |m spec|
   184     |spec|
   185 
   185 
   186     window notNil ifTrue:[
   186     window notNil ifTrue:[
   187         ^ self buildFromSpec:aSpecOrSpecArray in:window
   187         ^ self buildFromSpec:aSpecOrSpecArray in:window
   188     ].
   188     ].
   189 
   189 
   195     "Modified: / 5.9.1995 / 21:43:29 / claus"
   195     "Modified: / 5.9.1995 / 21:43:29 / claus"
   196     "Modified: / 31.10.1997 / 18:41:14 / cg"
   196     "Modified: / 31.10.1997 / 18:41:14 / cg"
   197 !
   197 !
   198 
   198 
   199 buildFromSpec:aSpecArray in:aView
   199 buildFromSpec:aSpecArray in:aView
   200     |m spec|
   200     |spec|
   201 
   201 
   202     spec := UISpecification from:aSpecArray.
   202     spec := UISpecification from:aSpecArray.
   203     ^ spec buildViewFor:self in:aView.
   203     ^ spec buildViewFor:self in:aView.
   204 
   204 
   205     "Modified: 3.3.1997 / 18:44:02 / cg"
   205     "Modified: 3.3.1997 / 18:44:02 / cg"
   362 ! !
   362 ! !
   363 
   363 
   364 !UIBuilder class methodsFor:'documentation'!
   364 !UIBuilder class methodsFor:'documentation'!
   365 
   365 
   366 version
   366 version
   367     ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.35 1998-03-11 00:23:26 tz Exp $'
   367     ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.36 1998-05-11 20:48:34 tz Exp $'
   368 ! !
   368 ! !
   369 UIBuilder initialize!
   369 UIBuilder initialize!