equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2000 by eXept Software AG |
2 COPYRIGHT (c) 2000 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
872 (something == #methodInClass |
870 (something == #methodInClass |
873 or:[ something == #methodInClassRemoved ]) ifTrue:[ |
871 or:[ something == #methodInClassRemoved ]) ifTrue:[ |
874 cls := aParameter first. |
872 cls := aParameter first. |
875 clsName := cls name. |
873 clsName := cls name. |
876 (classes contains:[:aClass | aClass name = clsName]) ifFalse:[ |
874 (classes contains:[:aClass | aClass name = clsName]) ifFalse:[ |
877 ^ self "/ I dont care for that class |
875 ^ self "/ I don't care for that class |
878 ]. |
876 ]. |
879 sel := aParameter second. |
877 sel := aParameter second. |
880 (methodList contains:[:mthd | mthd getMclass notNil and:[mthd selector = sel]]) ifFalse:[ |
878 (methodList contains:[:mthd | mthd getMclass notNil and:[mthd selector = sel]]) ifFalse:[ |
881 mustFlushInheritanceInfo := false. |
879 mustFlushInheritanceInfo := false. |
882 self window topView hasFocus ifFalse:[ |
880 self window topView hasFocus ifFalse:[ |
1781 ] ifFalse:[ |
1779 ] ifFalse:[ |
1782 (ChangeSet current includesChangeForClass:cls selector:selector) ifTrue:[ |
1780 (ChangeSet current includesChangeForClass:cls selector:selector) ifTrue:[ |
1783 mark := self class markForBeingInChangeList. |
1781 mark := self class markForBeingInChangeList. |
1784 "/ mark := self colorizeForChangedCode:mark. |
1782 "/ mark := self colorizeForChangedCode:mark. |
1785 s := s , mark. |
1783 s := s , mark. |
1786 "/ cg: I dont know why this was disabled - it is req'd to |
1784 "/ cg: I don't know why this was disabled - it is req'd to |
1787 "/ see changed methods in a method list (implementors...) |
1785 "/ see changed methods in a method list (implementors...) |
1788 s := self colorizeForChangedCode:s. |
1786 s := self colorizeForChangedCode:s. |
1789 ]. |
1787 ]. |
1790 |
1788 |
1791 (SmallTeam notNil and:[SmallTeam includesChangeForClass:cls selector:selector]) ifTrue:[ |
1789 (SmallTeam notNil and:[SmallTeam includesChangeForClass:cls selector:selector]) ifTrue:[ |