equal
deleted
inserted
replaced
1051 created for a spec. |
1051 created for a spec. |
1052 If it has a name, add it to the namedComponents dictionary; |
1052 If it has a name, add it to the namedComponents dictionary; |
1053 if I have a creationHook (application callBack), evaluate it." |
1053 if I have a creationHook (application callBack), evaluate it." |
1054 |
1054 |
1055 name notNil ifTrue:[ |
1055 name notNil ifTrue:[ |
1056 "/ debugging ... |
1056 "/ "/ debugging ... |
1057 (namedComponents notNil and:[namedComponents includesKey:name asSymbol]) ifTrue:[ |
1057 "/ (namedComponents notNil and:[namedComponents includesKey:name asSymbol]) ifTrue:[ |
1058 Transcript showCR:'WARNING multiple UI-build of: ',name asSymbol |
1058 "/ Transcript showCR:'WARNING multiple UI-build of: ',name asSymbol |
1059 ]. |
1059 "/ ]. |
1060 self componentAt:name put:aView. |
1060 self componentAt:name put:aView. |
1061 ]. |
1061 ]. |
1062 componentCreationHook notNil ifTrue:[ |
1062 componentCreationHook notNil ifTrue:[ |
1063 componentCreationHook value:aView value:spec value:self |
1063 componentCreationHook value:aView value:spec value:self |
1064 ] |
1064 ] |
1374 ! ! |
1374 ! ! |
1375 |
1375 |
1376 !WindowBuilder class methodsFor:'documentation'! |
1376 !WindowBuilder class methodsFor:'documentation'! |
1377 |
1377 |
1378 version |
1378 version |
1379 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.114 2004-06-11 13:30:51 cg Exp $' |
1379 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.115 2004-06-11 14:03:19 cg Exp $' |
1380 ! ! |
1380 ! ! |