equal
deleted
inserted
replaced
4027 info := classInfos at: nm. |
4027 info := classInfos at: nm. |
4028 "Fill superclass info..." |
4028 "Fill superclass info..." |
4029 change isClassDefinitionChange ifTrue:[ |
4029 change isClassDefinitionChange ifTrue:[ |
4030 | superNm | |
4030 | superNm | |
4031 superNm := change superClassName. |
4031 superNm := change superClassName. |
4032 superNm notNil ifTrue:[ |
4032 (superNm notNil and:[superNm ~= 'nil']) ifTrue:[ |
4033 (classInfos includesKey: superNm) ifTrue:[ |
4033 (classInfos includesKey: superNm) ifTrue:[ |
4034 info superclass: (classInfos at: superNm). |
4034 info superclass: (classInfos at: superNm). |
4035 (metaInfos at: nm) superclass: (classInfos at: superNm). |
4035 (metaInfos at: nm) superclass: (classInfos at: superNm). |
4036 ]. |
4036 ]. |
4037 ]. |
4037 ]. |
4053 |
4053 |
4054 " |
4054 " |
4055 |
4055 |
4056 "Created: / 15-03-2012 / 17:51:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
4056 "Created: / 15-03-2012 / 17:51:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
4057 "Modified: / 11-06-2013 / 17:59:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
4057 "Modified: / 11-06-2013 / 17:59:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
4058 "Modified: / 22-06-2019 / 16:06:06 / Claus Gittinger" |
4058 ! |
4059 ! |
4059 |
4060 |
4060 changeSetBeingSaved:something |
4061 changeSetBeingSaved:something |
4061 changeSetBeingSaved := something. |
4062 changeSetBeingSaved := something. |
4062 ! |
4063 ! |