equal
deleted
inserted
replaced
2744 (self aspectFor:#classNameChannel) value:clsName. |
2744 (self aspectFor:#classNameChannel) value:clsName. |
2745 (self aspectFor:#methodNameChannel) value:(selector ? ''). |
2745 (self aspectFor:#methodNameChannel) value:(selector ? ''). |
2746 (self aspectFor:#superclassNameChannel) value:superClassName. |
2746 (self aspectFor:#superclassNameChannel) value:superClassName. |
2747 |
2747 |
2748 self painter |
2748 self painter |
2749 className:clsName |
2749 className:clsName |
2750 superclassName:superClassName |
2750 superclassName:superClassName |
2751 selector:(selector ? ''). |
2751 selector:(selector ? ''). |
2752 |
2752 |
2753 self specClass:clsName. |
2753 self specClass:clsName. |
2754 specSelector := (selector ? ''). |
2754 specSelector := (selector ? ''). |
2755 specSuperclass := superClassName. |
2755 specSuperclass := superClassName. |
2756 |
2756 |
2757 specClass notNil & selector notNil ifTrue:[ |
2757 (specClass notNil and:[ selector notNil ]) ifTrue:[ |
2758 self addToHistory: (specClass, ' ', specSelector) -> #loadFromMessage:. |
2758 self addToHistory: (specClass, ' ', specSelector) -> #loadFromMessage:. |
2759 self updateInfoLabel |
2759 self updateInfoLabel |
2760 ]. |
2760 ]. |
2761 |
2761 |
2762 "Modified: / 5.2.1998 / 09:44:58 / stefan" |
2762 "Modified: / 5.2.1998 / 09:44:58 / stefan" |
2763 ! |
2763 ! |
2764 |
2764 |