diff -r f3eda2f72399 -r 36916e4ce9ab UIPainterView.st
--- a/UIPainterView.st	Thu Nov 23 14:20:39 2000 +0100
+++ b/UIPainterView.st	Thu Dec 07 08:50:17 2000 +0100
@@ -733,13 +733,16 @@
       '    "automatically generated by UIPainter ..."\\' ,
       '    "*** the code below creates a default model when invoked."\' ,
       '    "*** (which may not be the one you wanted)"\' ,
-      '    "*** Please change as required and accept it in the browser."\'.
+      '    "*** Please change as required and accept it in the browser."\' ,
+      '    "*** (and replace this comment by something more useful ;-)"\' .
 
     AspectsAsInstances ifTrue:[
         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 ,'.\' ,
           '!! !!\\') 
@@ -750,7 +753,9 @@
           '    (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.\' ,
           '    ].\' ,
           '    ^ holder.\' ,
           '!! !!\\')