UIBuilder.st
changeset 497 6544ec670fe0
parent 479 8058c8296148
child 503 23faf6064747
equal deleted inserted replaced
496:60a1effff295 497:6544ec670fe0
   175 !
   175 !
   176 
   176 
   177 endComposite
   177 endComposite
   178     |entry|
   178     |entry|
   179 
   179 
   180     specStack isEmpty ifFalse:[
   180     (specStack notNil and:[specStack notEmpty]) ifTrue:[
   181         entry := specStack removeLast.
   181         entry := specStack removeLast.
   182         composite := entry key.
   182         composite := entry key.
   183         compositeView := entry value.
   183         compositeView := entry value.
   184     ].
   184     ].
   185     ^ composite
   185     ^ composite
   186 
   186 
   187     "Created: 3.3.1997 / 17:17:43 / cg"
   187     "Created: 3.3.1997 / 17:17:43 / cg"
   188     "Modified: 3.3.1997 / 18:55:16 / cg"
   188     "Modified: 6.3.1997 / 16:18:05 / cg"
   189 !
   189 !
   190 
   190 
   191 endCompositeLayout:layout
   191 endCompositeLayout:layout
   192     composite compositeSpec:(CompositeSpec new layout:layout).
   192     composite compositeSpec:(CompositeSpec new layout:layout).
   193     compositeView layout:layout.
   193     compositeView layout:layout.
   257 ! !
   257 ! !
   258 
   258 
   259 !UIBuilder class methodsFor:'documentation'!
   259 !UIBuilder class methodsFor:'documentation'!
   260 
   260 
   261 version
   261 version
   262     ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.22 1997-03-03 21:28:21 cg Exp $'
   262     ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.23 1997-03-06 15:18:25 cg Exp $'
   263 ! !
   263 ! !
   264 UIBuilder initialize!
   264 UIBuilder initialize!