NO-OP backport changes from Mixbus branch.
[ardour.git] / gtk2_ardour / editor_keys.cc
index 81a855d6639017f124fb8465002406fcd6886297..fba52014bce43fe844ea9643c278f34c8e5bd90e 100644 (file)
@@ -1,5 +1,5 @@
 /*
-    Copyright (C) 2000 Paul Davis 
+    Copyright (C) 2000 Paul Davis
 
     This program is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
     along with this program; if not, write to the Free Software
     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-    $Id$
 */
 
 #include <cstdlib>
 #include <cmath>
-
 #include <string>
 
-#include <pbd/error.h>
+#include <gtkmm/treeview.h>
 
-#include <gtkmm2ext/popup_selector.h>
+#include "pbd/error.h"
 
-#include <ardour/session.h>
-#include <ardour/region.h>
+#include "ardour/session.h"
 
-#include "ardour_ui.h"
 #include "editor.h"
-#include "time_axis_view.h"
-#include "regionview.h"
+#include "region_view.h"
 #include "selection.h"
+#include "time_axis_view.h"
 
-#include "i18n.h"
+#include "pbd/i18n.h"
 
 using namespace ARDOUR;
-using namespace sigc;
+using namespace PBD;
+using namespace Editing;
 
 void
-Editor::install_keybindings ()
+Editor::keyboard_selection_finish (bool /*add*/, Editing::EditIgnoreOption ign)
 {
-       /* add named actions for the editor */
-
-       add_action ("toggle-xfades-active", slot (*this, &Editor::toggle_xfades_active));
-
-       add_action ("playhead-to-next-region-start", bind (slot (*this, &Editor::cursor_to_next_region_point), playhead_cursor, RegionPoint (Start)));
-       add_action ("playhead-to-next-region-end", bind (slot (*this, &Editor::cursor_to_next_region_point), playhead_cursor, RegionPoint (End)));
-       add_action ("playhead-to-next-region-sync", bind (slot (*this, &Editor::cursor_to_next_region_point), playhead_cursor, RegionPoint (SyncPoint)));
-
-       add_action ("playhead-to-previous-region-start", bind (slot (*this, &Editor::cursor_to_previous_region_point), playhead_cursor, RegionPoint (Start)));
-       add_action ("playhead-to-previous-region-end", bind (slot (*this, &Editor::cursor_to_previous_region_point), playhead_cursor, RegionPoint (End)));
-       add_action ("playhead-to-previous-region-sync", bind (slot (*this, &Editor::cursor_to_previous_region_point), playhead_cursor, RegionPoint (SyncPoint)));
-
-       add_action ("edit-cursor-to-next-region-start", bind (slot (*this, &Editor::cursor_to_next_region_point), edit_cursor, RegionPoint (Start)));
-       add_action ("edit-cursor-to-next-region-end", bind (slot (*this, &Editor::cursor_to_next_region_point), edit_cursor, RegionPoint (End)));
-       add_action ("edit-cursor-to-next-region-sync", bind (slot (*this, &Editor::cursor_to_next_region_point), edit_cursor, RegionPoint (SyncPoint)));
-
-       add_action ("edit-cursor-to-previous-region-start", bind (slot (*this, &Editor::cursor_to_previous_region_point), edit_cursor, RegionPoint (Start)));
-       add_action ("edit-cursor-to-previous-region-end", bind (slot (*this, &Editor::cursor_to_previous_region_point), edit_cursor, RegionPoint (End)));
-       add_action ("edit-cursor-to-previous-region-sync", bind (slot (*this, &Editor::cursor_to_previous_region_point), edit_cursor, RegionPoint (SyncPoint)));
-
-       add_action ("playhead-to-range-start", bind (slot (*this, &Editor::cursor_to_selection_start), playhead_cursor));
-       add_action ("playhead-to-range-end", bind (slot (*this, &Editor::cursor_to_selection_end), playhead_cursor));
-
-       add_action ("edit-cursor-to-range-start", bind (slot (*this, &Editor::cursor_to_selection_start), edit_cursor));
-       add_action ("edit-cursor-to-range-end", bind (slot (*this, &Editor::cursor_to_selection_end), edit_cursor));
-
-       add_action ("jump-forward-to-mark", slot (*this, &Editor::jump_forward_to_mark));
-       add_action ("jump-backward-to-mark", slot (*this, &Editor::jump_backward_to_mark));
-       add_action ("add-location-from-playhead", slot (*this, &Editor::add_location_from_playhead_cursor));
-
-       add_action ("nudge-forward", bind (slot (*this, &Editor::nudge_forward), false));
-       add_action ("nudge-next-forward", bind (slot (*this, &Editor::nudge_forward), true));
-       add_action ("nudge-backward", bind (slot (*this, &Editor::nudge_backward), false));
-       add_action ("nudge-next-backward", bind (slot (*this, &Editor::nudge_backward), true));
-
-       add_action ("toggle-playback", bind (slot (*this, &Editor::toggle_playback), false));
-       add_action ("toggle-playback-forget-capture", bind (slot (*this, &Editor::toggle_playback), true));
-
-       add_action ("toggle-loop-playback", slot (*this, &Editor::toggle_loop_playback));
-       
-       add_action ("temporal-zoom-out", bind (slot (*this, &Editor::temporal_zoom_step), true));
-       add_action ("temporal-zoom-in", bind (slot (*this, &Editor::temporal_zoom_step), false));
-       add_action ("zoom-to-session", slot (*this, &Editor::temporal_zoom_session));
+       if (_session) {
 
-       add_action ("scroll-tracks-up", slot (*this, &Editor::scroll_tracks_up));
-       add_action ("scroll-tracks-down", slot (*this, &Editor::scroll_tracks_down));
-       add_action ("step-tracks-up", slot (*this, &Editor::scroll_tracks_up_line));
-       add_action ("step-tracks-down", slot (*this, &Editor::scroll_tracks_down_line));
+               framepos_t start = selection->time.start();
+               framepos_t end;
 
-       add_action ("scroll-backward", bind (slot (*this, &Editor::scroll_backward), 0.8f));
-       add_action ("scroll-forward", bind (slot (*this, &Editor::scroll_forward), 0.8f));
-       add_action ("goto", slot (*this, &Editor::goto_frame));
-       add_action ("center-playhead", slot (*this, &Editor::center_playhead));
-       add_action ("center-edit_cursor", slot (*this, &Editor::center_edit_cursor));
-       add_action ("playhead-forward", slot (*this, &Editor::playhead_forward));
-       add_action ("playhead-backward", slot (*this, &Editor::playhead_backward));
-       add_action ("playhead-to-edit", bind (slot (*this, &Editor::cursor_align), true));
-       add_action ("edit-to-playhead", bind (slot (*this, &Editor::cursor_align), false));
-
-       add_action ("align-regions-start", bind (slot (*this, &Editor::align), ARDOUR::Start));
-       add_action ("align-regions-start-relative", bind (slot (*this, &Editor::align_relative), ARDOUR::Start));
-       add_action ("align-regions-end", bind (slot (*this, &Editor::align), ARDOUR::End));
-       add_action ("align-regions-end-relative", bind (slot (*this, &Editor::align_relative), ARDOUR::End));
-       add_action ("align-regions-sync", bind (slot (*this, &Editor::align), ARDOUR::SyncPoint));
-       add_action ("align-regions-sync-relative", bind (slot (*this, &Editor::align_relative), ARDOUR::SyncPoint));
-       
-       add_action ("set-playhead", slot (*this, &Editor::kbd_set_playhead_cursor));
-       add_action ("set-edit-cursor", slot (*this, &Editor::kbd_set_edit_cursor));
-
-       add_action ("set-mouse-mode-object", bind (slot (*this, &Editor::set_mouse_mode), Editing::MouseObject, false));
-       add_action ("set-mouse-mode-range", bind (slot (*this, &Editor::set_mouse_mode), Editing::MouseRange, false));
-       add_action ("set-mouse-mode-gain", bind (slot (*this, &Editor::set_mouse_mode), Editing::MouseGain, false));
-       add_action ("set-mouse-mode-zoom", bind (slot (*this, &Editor::set_mouse_mode), Editing::MouseZoom, false));
-       add_action ("set-mouse-mode-timefx", bind (slot (*this, &Editor::set_mouse_mode), Editing::MouseTimeFX, false));
-
-       add_action ("set-undo", bind (slot (*this, &Editor::undo), 1U));
-       add_action ("set-redo", bind (slot (*this, &Editor::redo), 1U));
-
-       add_action ("export-session", slot (*this, &Editor::export_session));
-       add_action ("export-range", slot (*this, &Editor::export_selection));
-
-       add_action ("editor-cut", slot (*this, &Editor::cut));
-       add_action ("editor-copy", slot (*this, &Editor::copy));
-       add_action ("editor-paste", slot (*this, &Editor::keyboard_paste));
-       add_action ("duplicate-region", slot (*this, &Editor::keyboard_duplicate_region));
-       add_action ("duplicate-range", slot (*this, &Editor::keyboard_duplicate_selection));
-       add_action ("insert-region", slot (*this, &Editor::keyboard_insert_region_list_selection));
-       add_action ("reverse-region", slot (*this, &Editor::reverse_region));
-       add_action ("normalize-region", slot (*this, &Editor::normalize_region));
-       add_action ("editor-crop", slot (*this, &Editor::crop_region_to_selection));
-       add_action ("insert-chunk", bind (slot (*this, &Editor::paste_named_selection), 1.0f));
-
-       add_action ("split-at-edit-cursor", slot (*this, &Editor::split_region));
-       add_action ("split-at-mouse", slot (*this, &Editor::kbd_split));
-
-       add_action ("brush-at-mouse", slot (*this, &Editor::kbd_brush));
-       add_action ("audition-at-mouse", slot (*this, &Editor::kbd_audition));
-
-       add_action ("start-range", slot (*this, &Editor::keyboard_selection_begin));
-       add_action ("finish-range", bind (slot (*this, &Editor::keyboard_selection_finish), false));
-       add_action ("finish-add-range", bind (slot (*this, &Editor::keyboard_selection_finish), true));
-
-       add_action ("extend-range-to-end-of-region", bind (slot (*this, &Editor::extend_selection_to_end_of_region), false));
-       add_action ("extend-range-to-start-of-region", bind (slot (*this, &Editor::extend_selection_to_start_of_region), false));
+               if ((_edit_point == EditAtPlayhead) && _session->transport_rolling()) {
+                       end = _session->audible_frame();
+               } else {
+                       end = get_preferred_edit_position(ign);
+               }
 
-       add_action ("zoom-focus-left", bind (slot (*this, &Editor::set_zoom_focus), Editing::ZoomFocusLeft));
-       add_action ("zoom-focus-right", bind (slot (*this, &Editor::set_zoom_focus), Editing::ZoomFocusRight));
-       add_action ("zoom-focus-center", bind (slot (*this, &Editor::set_zoom_focus), Editing::ZoomFocusCenter));
-       add_action ("zoom-focus-playhead", bind (slot (*this, &Editor::set_zoom_focus), Editing::ZoomFocusPlayhead));
-       add_action ("zoom-focus-edit", bind (slot (*this, &Editor::set_zoom_focus), Editing::ZoomFocusEdit));
+               //snap the selection start/end
+               snap_to(start);
 
-       add_action ("toggle-follow-playhead", (slot (*this, &Editor::toggle_follow_playhead)));
-       add_action ("remove-last-capture", (slot (*this, &Editor::remove_last_capture)));
+               //if no tracks are selected and we're working from the keyboard, enable all tracks (_something_ has to be selected for any range selection)
+               if ( (_edit_point == EditAtPlayhead) && selection->tracks.empty() )
+                       select_all_tracks();
 
-       add_action ("snap-to-frame", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToFrame)));
-       add_action ("snap-to-cd-frame", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToCDFrame)));
-       add_action ("snap-to-smpte-frame", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToSMPTEFrame)));
-       add_action ("snap-to-smpte-seconds", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToSMPTESeconds)));
-       add_action ("snap-to-smpte-minutes", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToSMPTEMinutes)));
-       add_action ("snap-to-seconds", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToSeconds)));
-       add_action ("snap-to-minutes", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToMinutes)));
-       add_action ("snap-to-thirtyseconds", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToAThirtysecondBeat)));
-       add_action ("snap-to-asixteenthbeat", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToASixteenthBeat)));
-       add_action ("snap-to-eighths", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToAEighthBeat)));
-       add_action ("snap-to-quarters", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToAQuarterBeat)));
-       add_action ("snap-to-thirds", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToAThirdBeat)));
-       add_action ("snap-to-beat", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToBeat)));
-       add_action ("snap-to-bar", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToBar)));
-       add_action ("snap-to-mark", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToMark)));
-       add_action ("snap-to-edit-cursor", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToEditCursor)));
-       add_action ("snap-to-region-start", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToRegionStart)));
-       add_action ("snap-to-region-end", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToRegionEnd)));
-       add_action ("snap-to-region-sync", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToRegionSync)));
-       add_action ("snap-to-region-boundary", (bind (slot (*this, &Editor::set_snap_to), Editing::SnapToRegionBoundary)));
-}
+               selection->set (start, end);
 
-void
-Editor::keyboard_selection_finish (bool add)
-{
-       if (session && have_pending_keyboard_selection) {
-               begin_reversible_command (_("keyboard selection"));
-               if (!add) {
-                       selection->set (0, pending_keyboard_selection_start, session->audible_frame());
-               } else {
-                       selection->add (pending_keyboard_selection_start, session->audible_frame());
-               }
-               commit_reversible_command ();
-               have_pending_keyboard_selection = false;
-       }
-}
+               //if session is playing a range, cancel that
+               if (_session->get_play_range())
+                       _session->request_cancel_play_range();
 
-void
-Editor::keyboard_selection_begin ()
-{
-       if (session) {
-               pending_keyboard_selection_start = session->audible_frame();
-               have_pending_keyboard_selection = true;
        }
 }
 
 void
-Editor::keyboard_duplicate_region ()
+Editor::keyboard_selection_begin (Editing::EditIgnoreOption ign)
 {
-       if (selection->audio_regions.empty()) {
-               return;
-       }
+       if (_session) {
 
-       float prefix;
-       bool was_floating;
+               framepos_t start;
+               framepos_t end = selection->time.end_frame();
 
-       if (get_prefix (prefix, was_floating) == 0) {
-               duplicate_some_regions (selection->audio_regions, prefix);
-       } else {
-               duplicate_some_regions (selection->audio_regions, 1);
-       }
-}
+               if ((_edit_point == EditAtPlayhead) && _session->transport_rolling()) {
+                       start = _session->audible_frame();
+               } else {
+                       start = get_preferred_edit_position(ign);
+               }
 
-void
-Editor::keyboard_duplicate_selection ()
-{
-       float prefix;
-       bool was_floating;
+               //snap the selection start/end
+               snap_to(start);
+
+               //if there's not already a sensible selection endpoint, go "forever"
+               if (start > end) {
+#ifdef MIXBUS
+                       // 4hours at most.
+                       // This works around a visual glitch in red-bordered selection rect.
+                       end = start + _session->nominal_frame_rate() * 60 * 60 * 4;
+#else
+                       end = max_framepos;
+#endif
+               }
 
-       if (get_prefix (prefix, was_floating) == 0) {
-               duplicate_selection (prefix);
-       } else {
-               duplicate_selection (1);
-       }
-}
+               //if no tracks are selected and we're working from the keyboard, enable all tracks (_something_ has to be selected for any range selection)
+               if ( selection->tracks.empty() )
+                       select_all_tracks();
 
-void
-Editor::keyboard_paste ()
-{
-       float prefix;
-       bool was_floating;
+               selection->set (start, end);
 
-       if (get_prefix (prefix, was_floating) == 0) {
-               paste (prefix);
-       } else {
-               paste (1);
+               //if session is playing a range, cancel that
+               if (_session->get_play_range())
+                       _session->request_cancel_play_range();
        }
 }
 
 void
-Editor::keyboard_insert_region_list_selection ()
-{
-       float prefix;
-       bool was_floating;
-
-       if (get_prefix (prefix, was_floating) == 0) {
-               insert_region_list_selection (prefix);
-       } else {
-               insert_region_list_selection (1);
-       }
-}
-
-int
-Editor::get_prefix (float& val, bool& was_floating)
+Editor::keyboard_paste ()
 {
-       return Keyboard::the_keyboard().get_prefix (val, was_floating);
+       paste (1, false);
 }
-