# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 951747045 -3600
# Node ID ffb95ba845ecf0459090b2af6ee573f709a7b392
# Parent  a54466f799622f14582258e6a5f34e875ca6a70f
*** empty log message ***

diff -r a54466f79962 -r ffb95ba845ec UIPainterView.st
--- a/UIPainterView.st	Fri Feb 25 18:53:42 2000 +0100
+++ b/UIPainterView.st	Mon Feb 28 15:10:45 2000 +0100
@@ -955,26 +955,26 @@
 
     AspectsAsInstances ifTrue:[
         code := (code , '\' ,
-          '    "/ ' , aspect , ' notNil ifTrue:[\' ,
-          '    "/    ' , aspect , ' removeDependent:self.\' ,
-          '    "/ ].\' ,
+          '"/     ' , aspect , ' notNil ifTrue:[\' ,
+          '"/        ' , aspect , ' removeDependent:self.\' ,
+          '"/     ].\' ,
           '    ' , aspect ,' := something.\' ,
-          '    "/ ' , aspect ,' notNil ifTrue:[\' ,
-          '    "/    ' , aspect , ' addDependent:self.\' ,
-          '    "/ ].\' ,
+          '"/     ' , aspect ,' notNil ifTrue:[\' ,
+          '"/        ' , aspect , ' addDependent:self.\' ,
+          '"/     ].\' ,
           '    ^ self.\' ,
           '!! !!\\') 
     ] ifFalse:[
         code := (code , '\' ,
-          '    "/ |holder|\' ,
+          '"/     |holder|\' ,
           '\' ,
-          '    "/ (holder := builder bindingAt:#' , aspect , ') notNil ifTrue:[\' ,
-          '    "/     holder removeDependent:self.\' ,
-          '    "/ ].\' ,
+          '"/     (holder := builder bindingAt:#' , aspect , ') notNil ifTrue:[\' ,
+          '"/         holder removeDependent:self.\' ,
+          '"/     ].\' ,
           '    builder aspectAt:#' , aspect , ' put:something.\',
-          '    "/ something notNil ifTrue:[\' ,
-          '    "/     something addDependent:self.\' ,
-          '    "/ ].\' ,
+          '"/     something notNil ifTrue:[\' ,
+          '"/         something addDependent:self.\' ,
+          '"/     ].\' ,
           '    ^ self.\' ,
           '!! !!\\') 
     ].