equal
deleted
inserted
replaced
76 ^ view |
76 ^ view |
77 |
77 |
78 "Modified: 16.1.1997 / 00:45:07 / cg" |
78 "Modified: 16.1.1997 / 00:45:07 / cg" |
79 ! |
79 ! |
80 |
80 |
81 buildFromSpec:aSpecArray |
81 buildFromSpec:aSpecOrSpecArray |
82 |m spec| |
82 |m spec| |
83 |
83 |
84 "/ old: |
84 window notNil ifTrue:[ |
85 "/ self readSpec:aSpecArray. |
85 ^ self buildFromSpec:aSpecOrSpecArray in:window |
|
86 ]. |
86 |
87 |
87 spec := UISpecification from:aSpecArray. |
88 spec := UISpecification from:aSpecOrSpecArray. |
88 window := view := spec buildViewFor:self. |
89 window := view := spec buildViewFor:self. |
89 |
90 |
90 "/ menuAspect notNil ifTrue:[ |
91 "/ menuAspect notNil ifTrue:[ |
91 "/ m := self componentAt:menuAspect. |
92 "/ m := self componentAt:menuAspect. |
92 "/ m notNil ifTrue:[ |
93 "/ m notNil ifTrue:[ |
107 |
108 |
108 buildFromSpec:aSpecArray in:aView |
109 buildFromSpec:aSpecArray in:aView |
109 |m spec| |
110 |m spec| |
110 |
111 |
111 spec := UISpecification from:aSpecArray. |
112 spec := UISpecification from:aSpecArray. |
112 |
|
113 view := spec buildViewFor:self in:aView. |
113 view := spec buildViewFor:self in:aView. |
114 |
114 |
115 "/ menuAspect notNil ifTrue:[ |
115 "/ menuAspect notNil ifTrue:[ |
116 "/ m := self componentAt:menuAspect. |
116 "/ m := self componentAt:menuAspect. |
117 "/ m notNil ifTrue:[ |
117 "/ m notNil ifTrue:[ |
136 ! ! |
136 ! ! |
137 |
137 |
138 !UIBuilder class methodsFor:'documentation'! |
138 !UIBuilder class methodsFor:'documentation'! |
139 |
139 |
140 version |
140 version |
141 ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.19 1997-01-17 20:36:49 cg Exp $' |
141 ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.20 1997-03-03 10:15:07 ca Exp $' |
142 ! ! |
142 ! ! |
143 UIBuilder initialize! |
143 UIBuilder initialize! |