| 1042 | AttachedItem sAttachment1{ Indirect(SelectMenu()) }; |
| 1043 | |
| 1044 | auto ExtraSelectionMenu() |
| 1045 | { |
| 1046 | static auto menu = std::shared_ptr{ |
| 1047 | ( FinderScope{ findCommandHandler }, |
| 1048 | Menu( wxT("Select"), XXO("&Selection"), |
| 1049 | Command( wxT("SnapToOff"), XXO("Snap-To &Off"), FN(OnSnapToOff), |
| 1050 | AlwaysEnabledFlag ), |
| 1051 | Command( wxT("SnapToNearest"), XXO("Snap-To &Nearest"), |
| 1052 | FN(OnSnapToNearest), AlwaysEnabledFlag ), |
| 1053 | Command( wxT("SnapToPrior"), XXO("Snap-To &Prior"), FN(OnSnapToPrior), |
| 1054 | AlwaysEnabledFlag ), |
| 1055 | Command( wxT("SelStart"), XXO("Selection to &Start"), FN(OnSelToStart), |
| 1056 | AlwaysEnabledFlag, wxT("Shift+Home") ), |
| 1057 | Command( wxT("SelEnd"), XXO("Selection to En&d"), FN(OnSelToEnd), |
| 1058 | AlwaysEnabledFlag, wxT("Shift+End") ), |
| 1059 | Command( wxT("SelExtLeft"), XXO("Selection Extend &Left"), |
| 1060 | FN(OnSelExtendLeft), |
| 1061 | TracksExistFlag() | TrackPanelHasFocus(), |
| 1062 | Options{ wxT("Shift+Left") }.WantKeyUp().AllowDup() ), |
| 1063 | Command( wxT("SelExtRight"), XXO("Selection Extend &Right"), |
| 1064 | FN(OnSelExtendRight), |
| 1065 | TracksExistFlag() | TrackPanelHasFocus(), |
| 1066 | Options{ wxT("Shift+Right") }.WantKeyUp().AllowDup() ), |
| 1067 | Command( wxT("SelSetExtLeft"), XXO("Set (or Extend) Le&ft Selection"), |
| 1068 | FN(OnSelSetExtendLeft), |
| 1069 | TracksExistFlag() | TrackPanelHasFocus() ), |
| 1070 | Command( wxT("SelSetExtRight"), XXO("Set (or Extend) Rig&ht Selection"), |
| 1071 | FN(OnSelSetExtendRight), |
| 1072 | TracksExistFlag() | TrackPanelHasFocus() ), |
| 1073 | Command( wxT("SelCntrLeft"), XXO("Selection Contract L&eft"), |
| 1074 | FN(OnSelContractLeft), |
| 1075 | TracksExistFlag() | TrackPanelHasFocus(), |
| 1076 | Options{ wxT("Ctrl+Shift+Right") }.WantKeyUp() ), |
| 1077 | Command( wxT("SelCntrRight"), XXO("Selection Contract R&ight"), |
| 1078 | FN(OnSelContractRight), |
| 1079 | TracksExistFlag() | TrackPanelHasFocus(), |
| 1080 | Options{ wxT("Ctrl+Shift+Left") }.WantKeyUp() ) |
| 1081 | ) ) }; |
| 1082 | return menu; |
| 1083 | } |
| 1084 | |
| 1085 | AttachedItem sAttachment2{ Indirect(ExtraSelectionMenu()), |
| 1086 | wxT("Optional/Extra/Part1") |