equal
deleted
inserted
replaced
2515 !VersionDiffBrowser methodsFor:'menu action'! |
2515 !VersionDiffBrowser methodsFor:'menu action'! |
2516 |
2516 |
2517 browseChange:aChange |
2517 browseChange:aChange |
2518 "browse the change in aChange" |
2518 "browse the change in aChange" |
2519 |
2519 |
2520 |cls sel m browserClass| |
2520 |cls sel| |
2521 |
2521 |
2522 aChange isNil ifTrue:[^ self]. |
2522 aChange isNil ifTrue:[^ self]. |
2523 browserClass := UserPreferences systemBrowserClass. |
|
2524 |
2523 |
2525 cls := aChange changeClass. |
2524 cls := aChange changeClass. |
2526 cls isNil ifTrue:[ |
2525 cls isNil ifTrue:[ |
2527 Dialog information:'The class is not present in the image'. |
2526 Dialog information:'The class is not present in the image'. |
2528 ^ self |
2527 ^ self |
2535 "/ ]. |
2534 "/ ]. |
2536 "/ sel := nil. |
2535 "/ sel := nil. |
2537 "/ ] |
2536 "/ ] |
2538 ]. |
2537 ]. |
2539 self withWaitCursorDo:[ |
2538 self withWaitCursorDo:[ |
2540 browserClass openInClass:cls selector:sel. |
2539 SystemBrowser default openInClass:cls selector:sel. |
2541 ] |
2540 ] |
2542 |
2541 |
2543 "Modified: / 12-10-2006 / 23:58:40 / cg" |
2542 "Modified (format): / 01-09-2017 / 14:23:56 / cg" |
2544 ! |
2543 ! |
2545 |
2544 |
2546 browseClassInA |
2545 browseClassInA |
2547 "browse the selected method." |
2546 "browse the selected method." |
2548 self browseChange:(self selectedChangeInA). |
2547 self browseChange:(self selectedChangeInA). |