1185 name notNil ifTrue:[ |
1185 name notNil ifTrue:[ |
1186 "/ "/ debugging ... |
1186 "/ "/ debugging ... |
1187 "/ (namedComponents notNil and:[namedComponents includesKey:name asSymbol]) ifTrue:[ |
1187 "/ (namedComponents notNil and:[namedComponents includesKey:name asSymbol]) ifTrue:[ |
1188 "/ Transcript showCR:'WARNING multiple UI-build of: ',name asSymbol |
1188 "/ Transcript showCR:'WARNING multiple UI-build of: ',name asSymbol |
1189 "/ ]. |
1189 "/ ]. |
1190 self componentAt:name put:aView. |
1190 self componentAt:name put:aView. |
1191 ]. |
1191 ]. |
1192 spec addView:aView toMappingOfBuilder:self. |
1192 spec addView:aView toMappingOfBuilder:self. |
1193 componentCreationHook notNil ifTrue:[ |
1193 componentCreationHook notNil ifTrue:[ |
1194 componentCreationHook value:aView value:spec value:self |
1194 componentCreationHook value:aView value:spec value:self |
1195 ]. |
1195 ]. |
|
1196 |
|
1197 "/ Set UUID |
|
1198 aView uuid: spec uuid. |
1196 |
1199 |
1197 self isEditing ifFalse:[ |
1200 self isEditing ifFalse:[ |
1198 (createCallBackSelector := spec postBuildCallback) notNil ifTrue:[ |
1201 (createCallBackSelector := spec postBuildCallback) notNil ifTrue:[ |
1199 app := self application. |
1202 app := self application. |
1200 app |
1203 app |
1201 perform:createCallBackSelector |
1204 perform:createCallBackSelector |
1202 withOptionalArgument:aView |
1205 withOptionalArgument:aView |
1203 and:spec |
1206 and:spec |
1204 and:self. |
1207 and:self. |
1205 ]. |
1208 ]. |
1206 ]. |
1209 ]. |
1207 |
1210 |
1208 "Modified: / 5.9.1995 / 21:42:54 / claus" |
1211 "Modified: / 05-09-1995 / 21:42:54 / claus" |
1209 "Created: / 31.10.1997 / 18:47:01 / cg" |
1212 "Created: / 31-10-1997 / 18:47:01 / cg" |
1210 "Modified: / 31.10.1997 / 18:51:22 / cg" |
1213 "Modified: / 20-05-2019 / 12:55:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1211 ! ! |
1214 ! ! |
1212 |
1215 |
1213 !WindowBuilder methodsFor:'startup'! |
1216 !WindowBuilder methodsFor:'startup'! |
1214 |
1217 |
1215 closeRequest |
1218 closeRequest |