equal
deleted
inserted
replaced
740 keyPress:key x:x y:y view:view |
740 keyPress:key x:x y:y view:view |
741 "this method is reached via delegation from the changeListView" |
741 "this method is reached via delegation from the changeListView" |
742 |
742 |
743 <resource: #keyboard (#Delete #BackSpace #Accept #Find #FindPrev #FindNext)> |
743 <resource: #keyboard (#Delete #BackSpace #Accept #Find #FindPrev #FindNext)> |
744 |
744 |
745 (key == #Delete or:[key == #BackSpace]) ifTrue:[ |
745 (key == #Delete) ifTrue:[ |
746 self doDelete. |
746 self doDelete. |
|
747 ^ self |
|
748 ]. |
|
749 (key == #BackSpace) ifTrue:[ |
|
750 self doDeleteAndSelectPrevious. |
747 ^ self |
751 ^ self |
748 ]. |
752 ]. |
749 (key == #Accept) ifTrue:[ |
753 (key == #Accept) ifTrue:[ |
750 self doApply. |
754 self doApply. |
751 ^ self |
755 ^ self |
3657 self deleteChange:changeNr. |
3661 self deleteChange:changeNr. |
3658 self autoSelectOrEnd:changeNr |
3662 self autoSelectOrEnd:changeNr |
3659 ] |
3663 ] |
3660 ! |
3664 ! |
3661 |
3665 |
|
3666 doDeleteAndSelectPrevious |
|
3667 "delete currently selected change(s)" |
|
3668 |
|
3669 self withSelectedChangesReverseDo:[:changeNr | |
|
3670 self deleteChange:changeNr. |
|
3671 self autoSelectOrEnd:changeNr-1 |
|
3672 ] |
|
3673 ! |
|
3674 |
3662 doDeleteClassAll |
3675 doDeleteClassAll |
3663 "delete all changes with same class as currently selected change" |
3676 "delete all changes with same class as currently selected change" |
3664 |
3677 |
3665 |classNamesToDelete lastChangeNr overAllNumDeletedBefore| |
3678 |classNamesToDelete lastChangeNr overAllNumDeletedBefore| |
3666 |
3679 |
4392 ! ! |
4405 ! ! |
4393 |
4406 |
4394 !ChangesBrowser class methodsFor:'documentation'! |
4407 !ChangesBrowser class methodsFor:'documentation'! |
4395 |
4408 |
4396 version |
4409 version |
4397 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.229 2001-10-01 08:23:10 cg Exp $' |
4410 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.230 2001-10-02 17:59:37 cg Exp $' |
4398 ! ! |
4411 ! ! |