diff -r 825e6e9fc37f -r 0aa39cc5f0a3 UIPainterView.st
--- a/UIPainterView.st	Wed Sep 22 11:37:36 1999 +0200
+++ b/UIPainterView.st	Wed Sep 22 13:24:33 1999 +0200
@@ -56,6 +56,16 @@
 "
 ! !
 
+!UIPainterView class methodsFor:'initialization'!
+
+initialize
+
+    AspectsAsInstances := false.
+    RedefineAspectMethods := false.
+
+    "Created: / 22.9.1999 / 12:32:31 / stefan"
+! !
+
 !UIPainterView class methodsFor:'code generation mode'!
 
 generateAspectsAsInstanceVariables
@@ -82,8 +92,9 @@
     "redefine methods yes or no. If a method is defined in super class
      should the message be reinstalled ?
     "
-    ^ RedefineAspectMethods ? false
+    ^ RedefineAspectMethods
 
+    "Modified: / 22.9.1999 / 12:33:03 / stefan"
 !
 
 redefineAspectMethods:aBoolean
@@ -670,7 +681,7 @@
       '    "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 in the browser."\'.
+      '    "*** Please change as required and accept it in the browser."\'.
 
     AspectsAsInstances ifTrue:[
         code := (code , '\' ,
@@ -684,7 +695,8 @@
           '    |holder|\' ,
           '\' ,
           '    (holder := builder bindingAt:#' , aspect , ') isNil ifTrue:[\' ,
-          '        builder aspectAt:#' , aspect , ' put:(holder := ' , ' ' , modelGen , ').\' ,
+          '        holder := ', modelGen, '.\',
+          '        builder aspectAt:#' , aspect , ' put:holder.\',
           '    ].\' ,
           '    ^ holder.\' ,
           '!! !!\\') 
@@ -692,6 +704,7 @@
     ^ code withCRs
 
     "Modified: / 29.7.1998 / 11:29:16 / cg"
+    "Modified: / 22.9.1999 / 12:33:47 / stefan"
 !
 
 generateAspectMethods
@@ -2021,3 +2034,4 @@
 version
     ^ '$Header$'
 ! !
+UIPainterView initialize!