953 ' "This method is used when I am embedded as subApplication,"\' , |
953 ' "This method is used when I am embedded as subApplication,"\' , |
954 ' "and the mainApp wants to connect its aspects to mine."\'. |
954 ' "and the mainApp wants to connect its aspects to mine."\'. |
955 |
955 |
956 AspectsAsInstances ifTrue:[ |
956 AspectsAsInstances ifTrue:[ |
957 code := (code , '\' , |
957 code := (code , '\' , |
958 ' "/ ' , aspect , ' notNil ifTrue:[\' , |
958 '"/ ' , aspect , ' notNil ifTrue:[\' , |
959 ' "/ ' , aspect , ' removeDependent:self.\' , |
959 '"/ ' , aspect , ' removeDependent:self.\' , |
960 ' "/ ].\' , |
960 '"/ ].\' , |
961 ' ' , aspect ,' := something.\' , |
961 ' ' , aspect ,' := something.\' , |
962 ' "/ ' , aspect ,' notNil ifTrue:[\' , |
962 '"/ ' , aspect ,' notNil ifTrue:[\' , |
963 ' "/ ' , aspect , ' addDependent:self.\' , |
963 '"/ ' , aspect , ' addDependent:self.\' , |
964 ' "/ ].\' , |
964 '"/ ].\' , |
965 ' ^ self.\' , |
965 ' ^ self.\' , |
966 '!! !!\\') |
966 '!! !!\\') |
967 ] ifFalse:[ |
967 ] ifFalse:[ |
968 code := (code , '\' , |
968 code := (code , '\' , |
969 ' "/ |holder|\' , |
969 '"/ |holder|\' , |
970 '\' , |
970 '\' , |
971 ' "/ (holder := builder bindingAt:#' , aspect , ') notNil ifTrue:[\' , |
971 '"/ (holder := builder bindingAt:#' , aspect , ') notNil ifTrue:[\' , |
972 ' "/ holder removeDependent:self.\' , |
972 '"/ holder removeDependent:self.\' , |
973 ' "/ ].\' , |
973 '"/ ].\' , |
974 ' builder aspectAt:#' , aspect , ' put:something.\', |
974 ' builder aspectAt:#' , aspect , ' put:something.\', |
975 ' "/ something notNil ifTrue:[\' , |
975 '"/ something notNil ifTrue:[\' , |
976 ' "/ something addDependent:self.\' , |
976 '"/ something addDependent:self.\' , |
977 ' "/ ].\' , |
977 '"/ ].\' , |
978 ' ^ self.\' , |
978 ' ^ self.\' , |
979 '!! !!\\') |
979 '!! !!\\') |
980 ]. |
980 ]. |
981 |
981 |
982 ^ code withCRs |
982 ^ code withCRs |