# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 996251446 -7200
# Node ID d2ee565fa32a2ce53ec49f87ee57291a885b8f22
# Parent  3a437483e5fd86930135bfa995717ce8e0594e29
*** empty log message ***

diff -r 3a437483e5fd -r d2ee565fa32a UIPainterView.st
--- 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