UIPainterView.st
changeset 1474 d2ee565fa32a
parent 1467 b46624bb6994
child 1494 115ae5972b27
--- 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