--- 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.\' ,
'!! !!\\')