equal
deleted
inserted
replaced
2723 |
2723 |
2724 processEvent:anEvent |
2724 processEvent:anEvent |
2725 "filter keyboard events. |
2725 "filter keyboard events. |
2726 Return true, if I have eaten the event" |
2726 Return true, if I have eaten the event" |
2727 |
2727 |
2728 <resource: #keyboard (#Delete #Find)> |
2728 <resource: #keyboard (#Delete #Backspace #Cut #Find)> |
2729 |
2729 |
2730 |focusView key rawKey| |
2730 |focusView key rawKey| |
2731 |
2731 |
2732 anEvent isKeyPressEvent ifTrue:[ |
2732 anEvent isKeyPressEvent ifTrue:[ |
2733 focusView := anEvent targetView. |
2733 focusView := anEvent targetView. |
2734 key := anEvent key. |
2734 key := anEvent key. |
2735 rawKey := anEvent rawKey. |
2735 rawKey := anEvent rawKey. |
2736 |
2736 |
2737 (focusView isSameOrComponentOf:self window) ifTrue:[ |
2737 (focusView isSameOrComponentOf:self window) ifTrue:[ |
2738 (key == #Delete) ifTrue:[ |
2738 ((key == #Delete) |
|
2739 or:[key == #Backspace |
|
2740 or:[key == #Cut]]) ifTrue:[ |
2739 self removeFilesFromArchive. |
2741 self removeFilesFromArchive. |
2740 ^ true |
2742 ^ true |
2741 ]. |
2743 ]. |
2742 (key == #Find) ifTrue:[ |
2744 (key == #Find) ifTrue:[ |
2743 self findInName. |
2745 self findInName. |
2745 ] |
2747 ] |
2746 ] |
2748 ] |
2747 ]. |
2749 ]. |
2748 ^ false |
2750 ^ false |
2749 |
2751 |
2750 "Modified: / 21-06-2018 / 15:20:57 / Claus Gittinger" |
2752 "Modified: / 04-05-2019 / 15:44:26 / Claus Gittinger" |
2751 ! ! |
2753 ! ! |
2752 |
2754 |
2753 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'initialization & release'! |
2755 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'initialization & release'! |
2754 |
2756 |
2755 postBuildFileTable:aWidget |
2757 postBuildFileTable:aWidget |
4524 ((key == #Escape) or:[key == $x]) ifTrue:[ |
4526 ((key == #Escape) or:[key == $x]) ifTrue:[ |
4525 self topView perform:#collapse ifNotUnderstood:[]. |
4527 self topView perform:#collapse ifNotUnderstood:[]. |
4526 ^ true. |
4528 ^ true. |
4527 ]. |
4529 ]. |
4528 ((key == #Cut) |
4530 ((key == #Cut) |
4529 or:[(key == #BackSpace) |
4531 or:[key == #BackSpace |
4530 or:[key == #Delete]]) ifTrue:[ |
4532 or:[key == #Delete]]) ifTrue:[ |
4531 masterApplication deleteFiles. |
4533 masterApplication deleteFiles. |
4532 ^ true |
4534 ^ true |
4533 ]. |
4535 ]. |
4534 ^ false |
4536 ^ false |
4535 ] |
4537 ] |
4536 ]. |
4538 ]. |
4537 ^ false |
4539 ^ false |
4538 |
4540 |
4539 "Modified: / 10-09-2017 / 16:52:40 / cg" |
4541 "Modified: / 10-09-2017 / 16:52:40 / cg" |
|
4542 "Modified (format): / 04-05-2019 / 15:42:39 / Claus Gittinger" |
4540 ! ! |
4543 ! ! |
4541 |
4544 |
4542 !FileApplicationNoteBook::ImageViewApplication methodsFor:'initialization & release'! |
4545 !FileApplicationNoteBook::ImageViewApplication methodsFor:'initialization & release'! |
4543 |
4546 |
4544 postBuildImageView:aWidget |
4547 postBuildImageView:aWidget |