--- a/UIPainterView.st Fri Jul 27 18:11:17 2001 +0200
+++ b/UIPainterView.st Fri Jul 27 18:30:46 2001 +0200
@@ -737,29 +737,38 @@
' "*** Please change as required and accept it in the browser."\' ,
' "*** (and replace this comment by something more useful ;-)"\' .
+
AspectsAsInstances ifTrue:[
- code := (code , '\' ,
+ code := code , '\' ,
' ' , aspect , ' isNil ifTrue:[\' ,
- ' ' , aspect , ' := ' , ' ' , modelGen , '.\' ,
- '"/ if your app needs to be notified of changes, uncomment one of the lines below:\' ,
- '"/ ' , aspect , ' addDependent:self.\' ,
- '"/ ' , aspect , ' onChangeSend:#', aspect ,'Changed to:self.\' ,
+ ' ' , aspect , ' := ' , ' ' , modelGen , '.\'.
+ modelClass ~~ TriggerValue ifTrue:[
+ code := code ,
+ '"/ if your app needs to be notified of changes, uncomment one of the lines below:\' ,
+ '"/ ' , aspect , ' addDependent:self.\' ,
+ '"/ ' , aspect , ' onChangeSend:#', aspect ,'Changed to:self.\'.
+ ].
+ code := code ,
' ].\' ,
' ^ ' , aspect ,'.\' ,
- '!! !!\\')
+ '!! !!\\'
] ifFalse:[
- code := (code , '\' ,
+ code := code , '\' ,
' |holder|\' ,
'\' ,
' (holder := builder bindingAt:#' , aspect , ') isNil ifTrue:[\' ,
' holder := ', modelGen, '.\',
- ' builder aspectAt:#' , aspect , ' put:holder.\',
- '"/ if your app needs to be notified of changes, uncomment one of the lines below:\' ,
- '"/ holder addDependent:self.\' ,
- '"/ holder onChangeSend:#', aspect ,'Changed to:self.\' ,
+ ' builder aspectAt:#' , aspect , ' put:holder.\'.
+ modelClass ~~ TriggerValue ifTrue:[
+ code := code ,
+ '"/ if your app needs to be notified of changes, uncomment one of the lines below:\' ,
+ '"/ holder addDependent:self.\' ,
+ '"/ holder onChangeSend:#', aspect ,'Changed to:self.\'.
+ ].
+ code := code ,
' ].\' ,
' ^ holder.\' ,
- '!! !!\\')
+ '!! !!\\'
].
^ code withCRs