equal
deleted
inserted
replaced
36641 |currentClass source1 source2 mgr |
36641 |currentClass source1 source2 mgr |
36642 nm rev1 rev2 versionsAreTheSame| |
36642 nm rev1 rev2 versionsAreTheSame| |
36643 |
36643 |
36644 currentClass := self theSingleSelectedLoadedNonMetaclassOrNil. |
36644 currentClass := self theSingleSelectedLoadedNonMetaclassOrNil. |
36645 currentClass isNil ifTrue:[ |
36645 currentClass isNil ifTrue:[ |
36646 self warn:'Cannot compare unloaded classes.'. |
36646 currentClass := self theSingleSelectedClass. |
36647 ^ self. |
36647 currentClass isNil ifTrue:[ |
|
36648 self warn:'Please select a single class.'. |
|
36649 ^ self. |
|
36650 ]. |
36648 ]. |
36651 ]. |
36649 |
36652 |
36650 nm := currentClass name. |
36653 nm := currentClass name. |
36651 mgr := manager. |
36654 (mgr := manager) isNil ifTrue:[ |
36652 mgr isNil ifTrue:[ |
36655 self warn:'No source code manager for: ',nm. |
36653 ^ self |
36656 ^ self |
36654 ]. |
36657 ]. |
36655 |
36658 |
36656 self normalLabel. |
36659 self normalLabel. |
36657 rev1 := manager utilities |
36660 rev1 := manager utilities |