UIPainterView.st
changeset 1494 115ae5972b27
parent 1474 d2ee565fa32a
child 1500 36c0b4b268b8
equal deleted inserted replaced
1493:844c2ed1208d 1494:115ae5972b27
    60 
    60 
    61 !UIPainterView class methodsFor:'initialization'!
    61 !UIPainterView class methodsFor:'initialization'!
    62 
    62 
    63 initialize
    63 initialize
    64 
    64 
    65     AspectsAsInstances := false.
    65     AspectsAsInstances := true. "/ false.
    66     RedefineAspectMethods := false.
    66     RedefineAspectMethods := false.
    67 
    67 
    68     "Created: / 22.9.1999 / 12:32:31 / stefan"
    68     "Created: / 22.9.1999 / 12:32:31 / stefan"
    69 ! !
    69 ! !
    70 
    70 
   739 
   739 
   740 
   740 
   741     AspectsAsInstances ifTrue:[
   741     AspectsAsInstances ifTrue:[
   742         code := code , '\' ,
   742         code := code , '\' ,
   743           '    ' , aspect , ' isNil ifTrue:[\' ,
   743           '    ' , aspect , ' isNil ifTrue:[\' ,
   744           '       ' , aspect , ' := ' , ' ' , modelGen , '.\'.
   744           '        ' , aspect , ' := ' , modelGen , '.\'.
   745         modelClass ~~ TriggerValue ifTrue:[
   745         modelClass ~~ TriggerValue ifTrue:[
   746             code := code ,
   746             code := code ,
   747               '"/ if your app needs to be notified of changes, uncomment one of the lines below:\' ,
   747               '"/ if your app needs to be notified of changes, uncomment one of the lines below:\' ,
   748               '"/       ' , aspect , ' addDependent:self.\' ,
   748               '"/       ' , aspect , ' addDependent:self.\' ,
   749               '"/       ' , aspect , ' onChangeSend:#', aspect ,'Changed to:self.\'.
   749               '"/       ' , aspect , ' onChangeSend:#', aspect ,'Changed to:self.\'.