739 |
739 |
740 |
740 |
741 AspectsAsInstances ifTrue:[ |
741 AspectsAsInstances ifTrue:[ |
742 code := code , '\' , |
742 code := code , '\' , |
743 ' ' , aspect , ' isNil ifTrue:[\' , |
743 ' ' , aspect , ' isNil ifTrue:[\' , |
744 ' ' , aspect , ' := ' , ' ' , modelGen , '.\'. |
744 ' ' , aspect , ' := ' , modelGen , '.\'. |
745 modelClass ~~ TriggerValue ifTrue:[ |
745 modelClass ~~ TriggerValue ifTrue:[ |
746 code := code , |
746 code := code , |
747 '"/ if your app needs to be notified of changes, uncomment one of the lines below:\' , |
747 '"/ if your app needs to be notified of changes, uncomment one of the lines below:\' , |
748 '"/ ' , aspect , ' addDependent:self.\' , |
748 '"/ ' , aspect , ' addDependent:self.\' , |
749 '"/ ' , aspect , ' onChangeSend:#', aspect ,'Changed to:self.\'. |
749 '"/ ' , aspect , ' onChangeSend:#', aspect ,'Changed to:self.\'. |