equal
deleted
inserted
replaced
351 componentToSpecMapping isNil ifTrue:[^ nil]. |
351 componentToSpecMapping isNil ifTrue:[^ nil]. |
352 ^ componentToSpecMapping at:aView ifAbsent:nil |
352 ^ componentToSpecMapping at:aView ifAbsent:nil |
353 ! |
353 ! |
354 |
354 |
355 componentToSpecMappingAt:aView put:aSpec |
355 componentToSpecMappingAt:aView put:aSpec |
|
356 |
|
357 "/ self assert:(aSpec isKindOf:UISpecification). |
|
358 |
356 componentToSpecMapping isNil ifTrue:[ |
359 componentToSpecMapping isNil ifTrue:[ |
357 componentToSpecMapping := IdentityDictionary new. |
360 componentToSpecMapping := IdentityDictionary new. |
358 ]. |
361 ]. |
359 componentToSpecMapping at:aView put:aSpec |
362 componentToSpecMapping at:aView put:aSpec |
360 ! |
363 ! |
1107 "/ (namedComponents notNil and:[namedComponents includesKey:name asSymbol]) ifTrue:[ |
1110 "/ (namedComponents notNil and:[namedComponents includesKey:name asSymbol]) ifTrue:[ |
1108 "/ Transcript showCR:'WARNING multiple UI-build of: ',name asSymbol |
1111 "/ Transcript showCR:'WARNING multiple UI-build of: ',name asSymbol |
1109 "/ ]. |
1112 "/ ]. |
1110 self componentAt:name put:aView. |
1113 self componentAt:name put:aView. |
1111 ]. |
1114 ]. |
1112 self componentToSpecMappingAt:aView put:spec. |
1115 spec addView:aView toMappingOfBuilder:self. |
1113 componentCreationHook notNil ifTrue:[ |
1116 componentCreationHook notNil ifTrue:[ |
1114 componentCreationHook value:aView value:spec value:self |
1117 componentCreationHook value:aView value:spec value:self |
1115 ]. |
1118 ]. |
1116 |
1119 |
1117 self isEditing ifFalse:[ |
1120 self isEditing ifFalse:[ |
1447 ! ! |
1450 ! ! |
1448 |
1451 |
1449 !WindowBuilder class methodsFor:'documentation'! |
1452 !WindowBuilder class methodsFor:'documentation'! |
1450 |
1453 |
1451 version |
1454 version |
1452 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.131 2008-05-19 10:41:28 sr Exp $' |
1455 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.132 2008-05-19 16:03:19 sr Exp $' |
1453 ! ! |
1456 ! ! |