equal
deleted
inserted
replaced
3895 for a class-instvar-definition change" |
3895 for a class-instvar-definition change" |
3896 |
3896 |
3897 self doClassMenu:[:currentClass | |
3897 self doClassMenu:[:currentClass | |
3898 |s| |
3898 |s| |
3899 |
3899 |
3900 s := WriteStream on:(String new). |
3900 s := WriteStream on:''. |
3901 currentClass class fileOutClassInstVarDefinitionOn:s withNameSpace:true. |
3901 currentClass class fileOutClassInstVarDefinitionOn:s withNameSpace:true. |
3902 codeView contents:(s contents); modified:false. |
3902 codeView contents:(s contents); modified:false. |
3903 codeModified := false. |
3903 codeModified := false. |
3904 |
3904 |
3905 self setAcceptActionForClassInstVars. |
3905 self setAcceptActionForClassInstVars. |