Lua scripting: add convenience function Editor::trigger_script_by_name().
[ardour.git] / gtk2_ardour / editor_actions.cc
1 /*
2     Copyright (C) 2000-2007 Paul Davis
3
4     This program is free software; you can redistribute it and/or modify
5     it under the terms of the GNU General Public License as published by
6     the Free Software Foundation; either version 2 of the License, or
7     (at your option) any later version.
8
9     This program is distributed in the hope that it will be useful,
10     but WITHOUT ANY WARRANTY; without even the implied warranty of
11     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12     GNU General Public License for more details.
13
14     You should have received a copy of the GNU General Public License
15     along with this program; if not, write to the Free Software
16     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
17
18 */
19
20 #include <gio/gio.h>
21 #include <gtk/gtkiconfactory.h>
22
23 #include "pbd/file_utils.h"
24
25 #include "gtkmm2ext/bindings.h"
26 #include "gtkmm2ext/utils.h"
27
28 #include "ardour/filesystem_paths.h"
29 #include "ardour/profile.h"
30 #include "ardour/session.h"
31 #include "ardour/types.h"
32
33 #include "canvas/canvas.h"
34 #include "canvas/pixbuf.h"
35
36 #include "LuaBridge/LuaBridge.h"
37
38 #include "actions.h"
39 #include "ardour_ui.h"
40 #include "editing.h"
41 #include "editor.h"
42 #include "gui_thread.h"
43 #include "luainstance.h"
44 #include "main_clock.h"
45 #include "time_axis_view.h"
46 #include "ui_config.h"
47 #include "utils.h"
48 #include "pbd/i18n.h"
49 #include "audio_time_axis.h"
50 #include "editor_group_tabs.h"
51 #include "editor_routes.h"
52 #include "editor_regions.h"
53
54 using namespace Gtk;
55 using namespace Glib;
56 using namespace std;
57 using namespace ARDOUR;
58 using namespace ARDOUR_UI_UTILS;
59 using namespace PBD;
60 using namespace Editing;
61
62 using Gtkmm2ext::Bindings;
63
64 /* Convenience functions to slightly reduce verbosity below */
65
66
67 RefPtr<Action>
68 Editor::register_region_action (RefPtr<ActionGroup> group, RegionActionTarget tgt, char const * name, char const * label, sigc::slot<void> slot)
69 {
70         RefPtr<Action> act = myactions.register_action (group, name, label, slot);
71         ActionManager::session_sensitive_actions.push_back (act);
72         region_action_map.insert (make_pair<string,RegionAction> (name, RegionAction (act,tgt)));
73         return act;
74 }
75
76 void
77 Editor::register_toggle_region_action (RefPtr<ActionGroup> group, RegionActionTarget tgt, char const * name, char const * label, sigc::slot<void> slot)
78 {
79         RefPtr<Action> act = myactions.register_toggle_action (group, name, label, slot);
80         ActionManager::session_sensitive_actions.push_back (act);
81         region_action_map.insert (make_pair<string,RegionAction> (name, RegionAction (act,tgt)));
82 }
83
84 RefPtr<Action>
85 Editor::reg_sens (RefPtr<ActionGroup> group, char const * name, char const * label, sigc::slot<void> slot)
86 {
87         RefPtr<Action> act = myactions.register_action (group, name, label, slot);
88         ActionManager::session_sensitive_actions.push_back (act);
89         return act;
90 }
91
92 void
93 Editor::toggle_reg_sens (RefPtr<ActionGroup> group, char const * name, char const * label, sigc::slot<void> slot)
94 {
95         RefPtr<Action> act = myactions.register_toggle_action (group, name, label, slot);
96         ActionManager::session_sensitive_actions.push_back (act);
97 }
98
99 void
100 Editor::radio_reg_sens (RefPtr<ActionGroup> action_group, RadioAction::Group& radio_group, char const * name, char const * label, sigc::slot<void> slot)
101 {
102         RefPtr<Action> act = myactions.register_radio_action (action_group, radio_group, name, label, slot);
103         ActionManager::session_sensitive_actions.push_back (act);
104 }
105
106 void
107 Editor::register_actions ()
108 {
109         RefPtr<Action> act;
110
111         editor_actions = myactions.create_action_group (X_("Editor"));
112         editor_menu_actions = myactions.create_action_group (X_("EditorMenu"));
113
114         /* non-operative menu items for menu bar */
115
116         myactions.register_action (editor_menu_actions, X_("AlignMenu"), _("Align"));
117         myactions.register_action (editor_menu_actions, X_("Autoconnect"), _("Autoconnect"));
118         myactions.register_action (editor_menu_actions, X_("Crossfades"), _("Crossfades"));
119         myactions.register_action (editor_menu_actions, X_("Edit"), _("Edit"));
120         myactions.register_action (editor_menu_actions, X_("EditCursorMovementOptions"), _("Move Selected Marker"));
121         myactions.register_action (editor_menu_actions, X_("EditSelectRangeOptions"), _("Select Range Operations"));
122         myactions.register_action (editor_menu_actions, X_("EditSelectRegionOptions"), _("Select Regions"));
123         myactions.register_action (editor_menu_actions, X_("EditPointMenu"), _("Edit Point"));
124         myactions.register_action (editor_menu_actions, X_("FadeMenu"), _("Fade"));
125         myactions.register_action (editor_menu_actions, X_("LatchMenu"), _("Latch"));
126         myactions.register_action (editor_menu_actions, X_("RegionMenu"), _("Region"));
127         myactions.register_action (editor_menu_actions, X_("RegionMenuLayering"), _("Layering"));
128         myactions.register_action (editor_menu_actions, X_("RegionMenuPosition"), _("Position"));
129         myactions.register_action (editor_menu_actions, X_("RegionMenuEdit"), _("Edit"));
130         myactions.register_action (editor_menu_actions, X_("RegionMenuTrim"), _("Trim"));
131         myactions.register_action (editor_menu_actions, X_("RegionMenuGain"), _("Gain"));
132         myactions.register_action (editor_menu_actions, X_("RegionMenuRanges"), _("Ranges"));
133         myactions.register_action (editor_menu_actions, X_("RegionMenuFades"), _("Fades"));
134         myactions.register_action (editor_menu_actions, X_("RegionMenuMIDI"), _("MIDI"));
135         myactions.register_action (editor_menu_actions, X_("RegionMenuDuplicate"), _("Duplicate"));
136         myactions.register_action (editor_menu_actions, X_("Link"), _("Link"));
137         myactions.register_action (editor_menu_actions, X_("ZoomFocusMenu"), _("Zoom Focus"));
138         myactions.register_action (editor_menu_actions, X_("LocateToMarker"), _("Locate to Markers"));
139         myactions.register_action (editor_menu_actions, X_("MarkerMenu"), _("Markers"));
140         myactions.register_action (editor_menu_actions, X_("MeterFalloff"), _("Meter falloff"));
141         myactions.register_action (editor_menu_actions, X_("MeterHold"), _("Meter hold"));
142         myactions.register_action (editor_menu_actions, X_("MIDI"), _("MIDI Options"));
143         myactions.register_action (editor_menu_actions, X_("MiscOptions"), _("Misc Options"));
144         myactions.register_action (editor_menu_actions, X_("Monitoring"), _("Monitoring"));
145         myactions.register_action (editor_menu_actions, X_("MoveActiveMarkMenu"), _("Active Mark"));
146         myactions.register_action (editor_menu_actions, X_("MovePlayHeadMenu"), _("Playhead"));
147         myactions.register_action (editor_menu_actions, X_("PlayMenu"), _("Play"));
148         myactions.register_action (editor_menu_actions, X_("PrimaryClockMenu"), _("Primary Clock"));
149         myactions.register_action (editor_menu_actions, X_("Pullup"), _("Pullup / Pulldown"));
150         myactions.register_action (editor_menu_actions, X_("RegionEditOps"), _("Region operations"));
151         myactions.register_action (editor_menu_actions, X_("RegionGainMenu"), _("Gain"));
152         myactions.register_action (editor_menu_actions, X_("RulerMenu"), _("Rulers"));
153         myactions.register_action (editor_menu_actions, X_("SavedViewMenu"), _("Views"));
154         myactions.register_action (editor_menu_actions, X_("ScrollMenu"), _("Scroll"));
155         myactions.register_action (editor_menu_actions, X_("SecondaryClockMenu"), _("Secondary Clock"));
156         myactions.register_action (editor_menu_actions, X_("Select"), _("Select"));
157         myactions.register_action (editor_menu_actions, X_("SelectMenu"), _("Select"));
158         myactions.register_action (editor_menu_actions, X_("SeparateMenu"), _("Separate"));
159         myactions.register_action (editor_menu_actions, X_("SetLoopMenu"), _("Loop"));
160         myactions.register_action (editor_menu_actions, X_("SetPunchMenu"), _("Punch"));
161         myactions.register_action (editor_menu_actions, X_("Solo"), _("Solo"));
162         myactions.register_action (editor_menu_actions, X_("Subframes"), _("Subframes"));
163         myactions.register_action (editor_menu_actions, X_("SyncMenu"), _("Sync"));
164         myactions.register_action (editor_menu_actions, X_("TempoMenu"), _("Tempo"));
165         myactions.register_action (editor_menu_actions, X_("Timecode"), _("Timecode fps"));
166
167         act = myactions.register_action (editor_menu_actions, X_("TrackHeightMenu"), _("Height"));
168         ActionManager::stripable_selection_sensitive_actions.push_back (act);
169
170         myactions.register_action (editor_menu_actions, X_("TrackMenu"), _("Track"));
171         myactions.register_action (editor_menu_actions, X_("Tools"), _("Tools"));
172         myactions.register_action (editor_menu_actions, X_("View"), _("View"));
173         myactions.register_action (editor_menu_actions, X_("ZoomFocus"), _("Zoom Focus"));
174         myactions.register_action (editor_menu_actions, X_("ZoomMenu"), _("Zoom"));
175         myactions.register_action (editor_menu_actions, X_("LuaScripts"), _("Lua Scripts"));
176
177         register_region_actions ();
178
179         /* add named actions for the editor */
180
181         /* We don't bother registering "unlock" because it would be insensitive
182            when required. Editor::unlock() must be invoked directly.
183         */
184         myactions.register_action (editor_actions, "lock", S_("Session|Lock"), sigc::mem_fun (*this, &Editor::lock));
185
186         toggle_reg_sens (editor_actions, "show-editor-mixer", _("Show Editor Mixer"), sigc::mem_fun (*this, &Editor::editor_mixer_button_toggled));
187         toggle_reg_sens (editor_actions, "show-editor-list", _("Show Editor List"), sigc::mem_fun (*this, &Editor::editor_list_button_toggled));
188
189         reg_sens (editor_actions, "playhead-to-next-region-boundary", _("Playhead to Next Region Boundary"), sigc::bind (sigc::mem_fun(*this, &Editor::cursor_to_next_region_boundary), true ));
190         reg_sens (editor_actions, "playhead-to-next-region-boundary-noselection", _("Playhead to Next Region Boundary (No Track Selection)"), sigc::bind (sigc::mem_fun(*this, &Editor::cursor_to_next_region_boundary), false ));
191         reg_sens (editor_actions, "playhead-to-previous-region-boundary", _("Playhead to Previous Region Boundary"), sigc::bind (sigc::mem_fun(*this, &Editor::cursor_to_previous_region_boundary), true));
192         reg_sens (editor_actions, "playhead-to-previous-region-boundary-noselection", _("Playhead to Previous Region Boundary (No Track Selection)"), sigc::bind (sigc::mem_fun(*this, &Editor::cursor_to_previous_region_boundary), false));
193
194         reg_sens (editor_actions, "playhead-to-next-region-start", _("Playhead to Next Region Start"), sigc::bind (sigc::mem_fun(*this, &Editor::cursor_to_next_region_point), playhead_cursor, RegionPoint (Start)));
195         reg_sens (editor_actions, "playhead-to-next-region-end", _("Playhead to Next Region End"), sigc::bind (sigc::mem_fun(*this, &Editor::cursor_to_next_region_point), playhead_cursor, RegionPoint (End)));
196         reg_sens (editor_actions, "playhead-to-next-region-sync", _("Playhead to Next Region Sync"), sigc::bind (sigc::mem_fun(*this, &Editor::cursor_to_next_region_point), playhead_cursor, RegionPoint (SyncPoint)));
197
198         reg_sens (editor_actions, "playhead-to-previous-region-start", _("Playhead to Previous Region Start"), sigc::bind (sigc::mem_fun(*this, &Editor::cursor_to_previous_region_point), playhead_cursor, RegionPoint (Start)));
199         reg_sens (editor_actions, "playhead-to-previous-region-end", _("Playhead to Previous Region End"), sigc::bind (sigc::mem_fun(*this, &Editor::cursor_to_previous_region_point), playhead_cursor, RegionPoint (End)));
200         reg_sens (editor_actions, "playhead-to-previous-region-sync", _("Playhead to Previous Region Sync"), sigc::bind (sigc::mem_fun(*this, &Editor::cursor_to_previous_region_point), playhead_cursor, RegionPoint (SyncPoint)));
201
202         reg_sens (editor_actions, "selected-marker-to-next-region-boundary", _("To Next Region Boundary"), sigc::bind (sigc::mem_fun(*this, &Editor::selected_marker_to_next_region_boundary), true));
203         reg_sens (editor_actions, "selected-marker-to-next-region-boundary-noselection", _("To Next Region Boundary (No Track Selection)"), sigc::bind (sigc::mem_fun(*this, &Editor::selected_marker_to_next_region_boundary), false));
204         reg_sens (editor_actions, "selected-marker-to-previous-region-boundary", _("To Previous Region Boundary"), sigc::bind (sigc::mem_fun(*this, &Editor::selected_marker_to_previous_region_boundary), true));
205         reg_sens (editor_actions, "selected-marker-to-previous-region-boundary-noselection", _("To Previous Region Boundary (No Track Selection)"), sigc::bind (sigc::mem_fun(*this, &Editor::selected_marker_to_previous_region_boundary), false));
206
207         reg_sens (editor_actions, "edit-cursor-to-next-region-start", _("To Next Region Start"), sigc::bind (sigc::mem_fun(*this, &Editor::selected_marker_to_next_region_point), RegionPoint (Start)));
208         reg_sens (editor_actions, "edit-cursor-to-next-region-end", _("To Next Region End"), sigc::bind (sigc::mem_fun(*this, &Editor::selected_marker_to_next_region_point), RegionPoint (End)));
209         reg_sens (editor_actions, "edit-cursor-to-next-region-sync", _("To Next Region Sync"), sigc::bind (sigc::mem_fun(*this, &Editor::selected_marker_to_next_region_point), RegionPoint (SyncPoint)));
210
211         reg_sens (editor_actions, "edit-cursor-to-previous-region-start", _("To Previous Region Start"), sigc::bind (sigc::mem_fun(*this, &Editor::selected_marker_to_previous_region_point), RegionPoint (Start)));
212         reg_sens (editor_actions, "edit-cursor-to-previous-region-end", _("To Previous Region End"), sigc::bind (sigc::mem_fun(*this, &Editor::selected_marker_to_previous_region_point), RegionPoint (End)));
213         reg_sens (editor_actions, "edit-cursor-to-previous-region-sync", _("To Previous Region Sync"), sigc::bind (sigc::mem_fun(*this, &Editor::selected_marker_to_previous_region_point), RegionPoint (SyncPoint)));
214
215         reg_sens (editor_actions, "edit-cursor-to-range-start", _("To Range Start"), sigc::mem_fun(*this, &Editor::selected_marker_to_selection_start));
216         reg_sens (editor_actions, "edit-cursor-to-range-end", _("To Range End"), sigc::mem_fun(*this, &Editor::selected_marker_to_selection_end));
217
218         reg_sens (editor_actions, "playhead-to-range-start", _("Playhead to Range Start"), sigc::bind (sigc::mem_fun(*this, &Editor::cursor_to_selection_start), playhead_cursor));
219         reg_sens (editor_actions, "playhead-to-range-end", _("Playhead to Range End"), sigc::bind (sigc::mem_fun(*this, &Editor::cursor_to_selection_end), playhead_cursor));
220
221         reg_sens (editor_actions, "select-all-objects", _("Select All Objects"), sigc::bind (sigc::mem_fun(*this, &Editor::select_all_objects), Selection::Set));
222         reg_sens (editor_actions, "select-all-tracks", _("Select All Tracks"), sigc::mem_fun(*this, &Editor::select_all_tracks));
223         reg_sens (editor_actions, "deselect-all", _("Deselect All"), sigc::mem_fun(*this, &Editor::deselect_all));
224         reg_sens (editor_actions, "invert-selection", _("Invert Selection"), sigc::mem_fun(*this, &Editor::invert_selection));
225
226         reg_sens (editor_actions, "select-loop-range", _("Set Range to Loop Range"), sigc::mem_fun(*this, &Editor::set_selection_from_loop));
227         reg_sens (editor_actions, "select-punch-range", _("Set Range to Punch Range"), sigc::mem_fun(*this, &Editor::set_selection_from_punch));
228         reg_sens (editor_actions, "select-from-regions", _("Set Range to Selected Regions"), sigc::mem_fun(*this, &Editor::set_selection_from_region));
229
230         reg_sens (editor_actions, "edit-current-tempo", _("Edit Current Tempo"), sigc::mem_fun(*this, &Editor::edit_current_tempo));
231         reg_sens (editor_actions, "edit-current-meter", _("Edit Current Meter"), sigc::mem_fun(*this, &Editor::edit_current_meter));
232
233         reg_sens (editor_actions, "select-all-after-edit-cursor", _("Select All After Edit Point"), sigc::bind (sigc::mem_fun(*this, &Editor::select_all_selectables_using_edit), true, false));
234         reg_sens (editor_actions, "alternate-select-all-after-edit-cursor", _("Select All After Edit Point"), sigc::bind (sigc::mem_fun(*this, &Editor::select_all_selectables_using_edit), true, false));
235         reg_sens (editor_actions, "select-all-before-edit-cursor", _("Select All Before Edit Point"), sigc::bind (sigc::mem_fun(*this, &Editor::select_all_selectables_using_edit), false, false));
236         reg_sens (editor_actions, "alternate-select-all-before-edit-cursor", _("Select All Before Edit Point"), sigc::bind (sigc::mem_fun(*this, &Editor::select_all_selectables_using_edit), false, false));
237
238         reg_sens (editor_actions, "select-all-between-cursors", _("Select All Overlapping Edit Range"), sigc::bind (sigc::mem_fun(*this, &Editor::select_all_selectables_between), false));
239         reg_sens (editor_actions, "select-all-within-cursors", _("Select All Inside Edit Range"), sigc::bind (sigc::mem_fun(*this, &Editor::select_all_selectables_between), true));
240
241         reg_sens (editor_actions, "select-range-between-cursors", _("Select Edit Range"), sigc::mem_fun(*this, &Editor::select_range_between));
242
243         reg_sens (editor_actions, "select-all-in-punch-range", _("Select All in Punch Range"), sigc::mem_fun(*this, &Editor::select_all_selectables_using_punch));
244         reg_sens (editor_actions, "select-all-in-loop-range", _("Select All in Loop Range"), sigc::mem_fun(*this, &Editor::select_all_selectables_using_loop));
245
246         reg_sens (editor_actions, "select-next-route", _("Select Next Track or Bus"), sigc::bind (sigc::mem_fun(*this, &Editor::select_next_stripable), true));
247         reg_sens (editor_actions, "select-prev-route", _("Select Previous Track or Bus"), sigc::bind (sigc::mem_fun(*this, &Editor::select_prev_stripable), true));
248
249         reg_sens (editor_actions, "select-next-stripable", _("Select Next Strip"), sigc::bind (sigc::mem_fun(*this, &Editor::select_next_stripable), false));
250         reg_sens (editor_actions, "select-prev-stripable", _("Select Previous Strip"), sigc::bind (sigc::mem_fun(*this, &Editor::select_prev_stripable), false));
251
252         act = reg_sens (editor_actions, "track-record-enable-toggle", _("Toggle Record Enable"), sigc::mem_fun(*this, &Editor::toggle_record_enable));
253         ActionManager::track_selection_sensitive_actions.push_back (act);
254         act = reg_sens (editor_actions, "track-solo-toggle", _("Toggle Solo"), sigc::mem_fun(*this, &Editor::toggle_solo));
255         ActionManager::stripable_selection_sensitive_actions.push_back (act);
256         act = reg_sens (editor_actions, "track-mute-toggle", _("Toggle Mute"), sigc::mem_fun(*this, &Editor::toggle_mute));
257         ActionManager::stripable_selection_sensitive_actions.push_back (act);
258         act = reg_sens (editor_actions, "track-solo-isolate-toggle", _("Toggle Solo Isolate"), sigc::mem_fun(*this, &Editor::toggle_solo_isolate));
259         ActionManager::stripable_selection_sensitive_actions.push_back (act);
260
261         for (int i = 1; i <= 12; ++i) {
262                 string const a = string_compose (X_("save-visual-state-%1"), i);
263                 string const n = string_compose (_("Save View %1"), i);
264                 reg_sens (editor_actions, a.c_str(), n.c_str(), sigc::bind (sigc::mem_fun (*this, &Editor::start_visual_state_op), i - 1));
265         }
266
267         for (int i = 1; i <= 12; ++i) {
268                 string const a = string_compose (X_("goto-visual-state-%1"), i);
269                 string const n = string_compose (_("Go to View %1"), i);
270                 reg_sens (editor_actions, a.c_str(), n.c_str(), sigc::bind (sigc::mem_fun (*this, &Editor::cancel_visual_state_op), i - 1));
271         }
272
273         for (int i = 1; i <= 9; ++i) {
274                 string const a = string_compose (X_("goto-mark-%1"), i);
275                 string const n = string_compose (_("Locate to Mark %1"), i);
276                 reg_sens (editor_actions, a.c_str(), n.c_str(), sigc::bind (sigc::mem_fun (*this, &Editor::goto_nth_marker), i - 1));
277         }
278
279         reg_sens (editor_actions, "temporal-zoom-out", _("Zoom Out"), sigc::bind (sigc::mem_fun(*this, &Editor::temporal_zoom_step), true));
280         reg_sens (editor_actions, "temporal-zoom-in", _("Zoom In"), sigc::bind (sigc::mem_fun(*this, &Editor::temporal_zoom_step), false));
281         reg_sens (editor_actions, "zoom-to-session", _("Zoom to Session"), sigc::mem_fun(*this, &Editor::temporal_zoom_session));
282         reg_sens (editor_actions, "zoom-to-extents", _("Zoom to Extents"), sigc::mem_fun(*this, &Editor::temporal_zoom_extents));
283         reg_sens (editor_actions, "zoom-to-selection", _("Zoom to Selection"), sigc::bind (sigc::mem_fun(*this, &Editor::temporal_zoom_selection), Both));
284         reg_sens (editor_actions, "zoom-to-selection-horiz", _("Zoom to Selection (Horizontal)"), sigc::bind (sigc::mem_fun(*this, &Editor::temporal_zoom_selection), Horizontal));
285         reg_sens (editor_actions, "toggle-zoom", _("Toggle Zoom State"), sigc::mem_fun(*this, &Editor::swap_visual_state));
286
287         reg_sens (editor_actions, "expand-tracks", _("Expand Track Height"), sigc::bind (sigc::mem_fun (*this, &Editor::tav_zoom_step), false));
288         reg_sens (editor_actions, "shrink-tracks", _("Shrink Track Height"), sigc::bind (sigc::mem_fun (*this, &Editor::tav_zoom_step), true));
289
290         reg_sens (editor_actions, "fit_1_track", _("Fit 1 Track"), sigc::bind (sigc::mem_fun(*this, &Editor::set_visible_track_count), 1));
291         reg_sens (editor_actions, "fit_2_tracks", _("Fit 2 Tracks"), sigc::bind (sigc::mem_fun(*this, &Editor::set_visible_track_count), 2));
292         reg_sens (editor_actions, "fit_4_tracks", _("Fit 4 Tracks"), sigc::bind (sigc::mem_fun(*this, &Editor::set_visible_track_count), 4));
293         reg_sens (editor_actions, "fit_8_tracks", _("Fit 8 Tracks"), sigc::bind (sigc::mem_fun(*this, &Editor::set_visible_track_count), 8));
294         reg_sens (editor_actions, "fit_16_tracks", _("Fit 16 Tracks"), sigc::bind (sigc::mem_fun(*this, &Editor::set_visible_track_count), 16));
295         reg_sens (editor_actions, "fit_32_tracks", _("Fit 32 Tracks"), sigc::bind (sigc::mem_fun(*this, &Editor::set_visible_track_count), 32));
296         reg_sens (editor_actions, "fit_all_tracks", _("Fit All Tracks"), sigc::bind (sigc::mem_fun(*this, &Editor::set_visible_track_count), 0));
297
298         reg_sens (editor_actions, "zoom_10_ms", _("Zoom to 10 ms"), sigc::bind (sigc::mem_fun(*this, &Editor::set_zoom_preset), 10));
299         reg_sens (editor_actions, "zoom_100_ms", _("Zoom to 100 ms"), sigc::bind (sigc::mem_fun(*this, &Editor::set_zoom_preset), 100));
300         reg_sens (editor_actions, "zoom_1_sec", _("Zoom to 1 sec"), sigc::bind (sigc::mem_fun(*this, &Editor::set_zoom_preset), 1000));
301         reg_sens (editor_actions, "zoom_10_sec", _("Zoom to 10 sec"), sigc::bind (sigc::mem_fun(*this, &Editor::set_zoom_preset), 10 * 1000));
302         reg_sens (editor_actions, "zoom_1_min", _("Zoom to 1 min"), sigc::bind (sigc::mem_fun(*this, &Editor::set_zoom_preset), 60 * 1000));
303         reg_sens (editor_actions, "zoom_5_min", _("Zoom to 5 min"), sigc::bind (sigc::mem_fun(*this, &Editor::set_zoom_preset), 5 * 60 * 1000));
304         reg_sens (editor_actions, "zoom_10_min", _("Zoom to 10 min"), sigc::bind (sigc::mem_fun(*this, &Editor::set_zoom_preset), 10 * 60 * 1000));
305
306         act = reg_sens (editor_actions, "move-selected-tracks-up", _("Move Selected Tracks Up"), sigc::bind (sigc::mem_fun(*_routes, &EditorRoutes::move_selected_tracks), true));
307         ActionManager::stripable_selection_sensitive_actions.push_back (act);
308         act = reg_sens (editor_actions, "move-selected-tracks-down", _("Move Selected Tracks Down"), sigc::bind (sigc::mem_fun(*_routes, &EditorRoutes::move_selected_tracks), false));
309         ActionManager::stripable_selection_sensitive_actions.push_back (act);
310
311         act = reg_sens (editor_actions, "scroll-tracks-up", _("Scroll Tracks Up"), sigc::mem_fun(*this, &Editor::scroll_tracks_up));
312         act = reg_sens (editor_actions, "scroll-tracks-down", _("Scroll Tracks Down"), sigc::mem_fun(*this, &Editor::scroll_tracks_down));
313         act = reg_sens (editor_actions, "step-tracks-up", _("Step Tracks Up"), sigc::hide_return (sigc::bind (sigc::mem_fun(*this, &Editor::scroll_up_one_track), true)));
314         act = reg_sens (editor_actions, "step-tracks-down", _("Step Tracks Down"), sigc::hide_return (sigc::bind (sigc::mem_fun(*this, &Editor::scroll_down_one_track), true)));
315         act = reg_sens (editor_actions, "select-topmost", _("Select Topmost Track"), (sigc::mem_fun(*this, &Editor::select_topmost_track)));
316
317         reg_sens (editor_actions, "scroll-backward", _("Scroll Backward"), sigc::bind (sigc::mem_fun(*this, &Editor::scroll_backward), 0.8f));
318         reg_sens (editor_actions, "scroll-forward", _("Scroll Forward"), sigc::bind (sigc::mem_fun(*this, &Editor::scroll_forward), 0.8f));
319         reg_sens (editor_actions, "center-playhead", _("Center Playhead"), sigc::mem_fun(*this, &Editor::center_playhead));
320         reg_sens (editor_actions, "center-edit-cursor", _("Center Edit Point"), sigc::mem_fun(*this, &Editor::center_edit_point));
321
322         reg_sens (editor_actions, "scroll-playhead-forward", _("Playhead Forward"), sigc::bind (sigc::mem_fun(*this, &Editor::scroll_playhead), true));;
323         reg_sens (editor_actions, "scroll-playhead-backward", _("Playhead Backward"), sigc::bind (sigc::mem_fun(*this, &Editor::scroll_playhead), false));
324
325         reg_sens (editor_actions, "playhead-to-edit", _("Playhead to Active Mark"), sigc::bind (sigc::mem_fun(*this, &Editor::cursor_align), true));
326         reg_sens (editor_actions, "edit-to-playhead", _("Active Mark to Playhead"), sigc::bind (sigc::mem_fun(*this, &Editor::cursor_align), false));
327
328         toggle_reg_sens (editor_actions, "toggle-skip-playback", _("Use Skip Ranges"), sigc::mem_fun(*this, &Editor::toggle_skip_playback));
329
330         reg_sens (editor_actions, "set-loop-from-edit-range", _("Set Loop from Selection"), sigc::bind (sigc::mem_fun(*this, &Editor::set_loop_from_selection), false));
331         reg_sens (editor_actions, "set-punch-from-edit-range", _("Set Punch from Selection"), sigc::mem_fun(*this, &Editor::set_punch_from_selection));
332         reg_sens (editor_actions, "set-session-from-edit-range", _("Set Session Start/End from Selection"), sigc::mem_fun(*this, &Editor::set_session_extents_from_selection));
333
334         /* this is a duplicated action so that the main menu can use a different label */
335         reg_sens (editor_actions, "main-menu-play-selected-regions", _("Play Selected Regions"), sigc::mem_fun (*this, &Editor::play_selected_region));
336         reg_sens (editor_actions, "play-from-edit-point", _("Play from Edit Point"), sigc::mem_fun(*this, &Editor::play_from_edit_point));
337         reg_sens (editor_actions, "play-from-edit-point-and-return", _("Play from Edit Point and Return"), sigc::mem_fun(*this, &Editor::play_from_edit_point_and_return));
338
339         reg_sens (editor_actions, "play-edit-range", _("Play Edit Range"), sigc::mem_fun(*this, &Editor::play_edit_range));
340
341         reg_sens (editor_actions, "set-playhead", _("Playhead to Mouse"), sigc::mem_fun(*this, &Editor::set_playhead_cursor));
342         reg_sens (editor_actions, "set-edit-point", _("Active Marker to Mouse"), sigc::mem_fun(*this, &Editor::set_edit_point));
343         reg_sens (editor_actions, "set-auto-punch-range", _("Set Auto Punch In/Out from Playhead"), sigc::mem_fun(*this, &Editor::set_auto_punch_range));
344
345         reg_sens (editor_actions, "duplicate", _("Duplicate"), sigc::bind (sigc::mem_fun(*this, &Editor::duplicate_range), false));
346
347         /* Open the dialogue to duplicate selected regions multiple times */
348         reg_sens (editor_actions, "multi-duplicate", _("Multi-Duplicate..."),
349                   sigc::bind (sigc::mem_fun (*this, &Editor::duplicate_range), true));
350
351         undo_action = reg_sens (editor_actions, "undo", S_("Command|Undo"), sigc::bind (sigc::mem_fun(*this, &Editor::undo), 1U));
352
353         redo_action = reg_sens (editor_actions, "redo", _("Redo"), sigc::bind (sigc::mem_fun(*this, &Editor::redo), 1U));
354         alternate_redo_action = reg_sens (editor_actions, "alternate-redo", _("Redo"), sigc::bind (sigc::mem_fun(*this, &Editor::redo), 1U));
355         alternate_alternate_redo_action = reg_sens (editor_actions, "alternate-alternate-redo", _("Redo"), sigc::bind (sigc::mem_fun(*this, &Editor::redo), 1U));
356
357         selection_undo_action = reg_sens (editor_actions, "undo-last-selection-op", _("Undo Selection Change"), sigc::mem_fun(*this, &Editor::undo_selection_op));
358         selection_redo_action = reg_sens (editor_actions, "redo-last-selection-op", _("Redo Selection Change"), sigc::mem_fun(*this, &Editor::redo_selection_op));
359
360         reg_sens (editor_actions, "export-audio", _("Export Audio"), sigc::mem_fun(*this, &Editor::export_audio));
361         reg_sens (editor_actions, "export-range", _("Export Range"), sigc::mem_fun(*this, &Editor::export_range));
362
363         act = reg_sens (editor_actions, "editor-separate", _("Separate"), sigc::mem_fun(*this, &Editor::separate_region_from_selection));
364         ActionManager::mouse_edit_point_requires_canvas_actions.push_back (act);
365
366         act = reg_sens (editor_actions, "separate-from-punch", _("Separate Using Punch Range"), sigc::mem_fun(*this, &Editor::separate_region_from_punch));
367         act = reg_sens (editor_actions, "separate-from-loop", _("Separate Using Loop Range"), sigc::mem_fun(*this, &Editor::separate_region_from_loop));
368
369         act = reg_sens (editor_actions, "editor-crop", _("Crop"), sigc::mem_fun(*this, &Editor::crop_region_to_selection));
370         ActionManager::time_selection_sensitive_actions.push_back (act);
371
372         reg_sens (editor_actions, "editor-cut", _("Cut"), sigc::mem_fun(*this, &Editor::cut));
373         reg_sens (editor_actions, "editor-delete", _("Delete"), sigc::mem_fun(*this, &Editor::delete_));
374         reg_sens (editor_actions, "alternate-editor-delete", _("Delete"), sigc::mem_fun(*this, &Editor::delete_));
375
376         reg_sens (editor_actions, "split-region", _("Split/Separate"), sigc::mem_fun (*this, &Editor::split_region));
377
378         reg_sens (editor_actions, "editor-copy", _("Copy"), sigc::mem_fun(*this, &Editor::copy));
379         reg_sens (editor_actions, "editor-paste", _("Paste"), sigc::mem_fun(*this, &Editor::keyboard_paste));
380
381         reg_sens (editor_actions, "editor-fade-range", _("Fade Range Selection"), sigc::mem_fun(*this, &Editor::fade_range));
382
383         act = myactions.register_action (editor_actions, "set-tempo-from-edit-range", _("Set Tempo from Edit Range = Bar"), sigc::mem_fun(*this, &Editor::use_range_as_bar));
384         ActionManager::time_selection_sensitive_actions.push_back (act);
385
386         toggle_reg_sens (editor_actions, "toggle-log-window", _("Log"),
387                         sigc::mem_fun (ARDOUR_UI::instance(), &ARDOUR_UI::toggle_errors));
388
389         reg_sens (editor_actions, "alternate-tab-to-transient-forwards", _("Move to Next Transient"), sigc::bind (sigc::mem_fun(*this, &Editor::tab_to_transient), true));
390         reg_sens (editor_actions, "alternate-tab-to-transient-backwards", _("Move to Previous Transient"), sigc::bind (sigc::mem_fun(*this, &Editor::tab_to_transient), false));
391         reg_sens (editor_actions, "tab-to-transient-forwards", _("Move to Next Transient"), sigc::bind (sigc::mem_fun(*this, &Editor::tab_to_transient), true));
392         reg_sens (editor_actions, "tab-to-transient-backwards", _("Move to Previous Transient"), sigc::bind (sigc::mem_fun(*this, &Editor::tab_to_transient), false));
393
394         reg_sens (editor_actions, "crop", _("Crop"), sigc::mem_fun(*this, &Editor::crop_region_to_selection));
395
396 //      reg_sens (editor_actions, "finish-add-range", _("Finish Add Range"), sigc::bind (sigc::mem_fun(*this, &Editor::keyboard_selection_finish), true));
397
398         reg_sens (
399                 editor_actions,
400                 "move-range-start-to-previous-region-boundary",
401                 _("Move Range Start to Previous Region Boundary"),
402                 sigc::bind (sigc::mem_fun (*this, &Editor::move_range_selection_start_or_end_to_region_boundary), false, false)
403                 );
404
405         reg_sens (
406                 editor_actions,
407                 "move-range-start-to-next-region-boundary",
408                 _("Move Range Start to Next Region Boundary"),
409                 sigc::bind (sigc::mem_fun (*this, &Editor::move_range_selection_start_or_end_to_region_boundary), false, true)
410                 );
411
412         reg_sens (
413                 editor_actions,
414                 "move-range-end-to-previous-region-boundary",
415                 _("Move Range End to Previous Region Boundary"),
416                 sigc::bind (sigc::mem_fun (*this, &Editor::move_range_selection_start_or_end_to_region_boundary), true, false)
417                 );
418
419         reg_sens (
420                 editor_actions,
421                 "move-range-end-to-next-region-boundary",
422                 _("Move Range End to Next Region Boundary"),
423                 sigc::bind (sigc::mem_fun (*this, &Editor::move_range_selection_start_or_end_to_region_boundary), true, true)
424                 );
425
426         toggle_reg_sens (editor_actions, "toggle-follow-playhead", _("Follow Playhead"), (sigc::mem_fun(*this, &Editor::toggle_follow_playhead)));
427         act = reg_sens (editor_actions, "remove-last-capture", _("Remove Last Capture"), (sigc::mem_fun(*this, &Editor::remove_last_capture)));
428
429         myactions.register_toggle_action (editor_actions, "toggle-stationary-playhead", _("Stationary Playhead"), (mem_fun(*this, &Editor::toggle_stationary_playhead)));
430
431         act = reg_sens (editor_actions, "insert-time", _("Insert Time"), (sigc::mem_fun(*this, &Editor::do_insert_time)));
432         ActionManager::track_selection_sensitive_actions.push_back (act);
433         act = myactions.register_action (editor_actions, "remove-time", _("Remove Time"), (mem_fun(*this, &Editor::do_remove_time)));
434         ActionManager::session_sensitive_actions.push_back (act);
435         ActionManager::track_selection_sensitive_actions.push_back (act);
436
437
438         act = reg_sens (editor_actions, "toggle-track-active", _("Toggle Active"), (sigc::mem_fun(*this, &Editor::toggle_tracks_active)));
439         ActionManager::route_selection_sensitive_actions.push_back (act);
440         act = reg_sens (editor_actions, "remove-track", _("Remove"), (sigc::mem_fun(*this, &Editor::remove_tracks)));
441         ActionManager::stripable_selection_sensitive_actions.push_back (act);
442
443         act = reg_sens (editor_actions, "fit-selection", _("Fit Selection (Vertical)"), sigc::mem_fun(*this, &Editor::fit_selection));
444         ActionManager::stripable_selection_sensitive_actions.push_back (act);
445
446         act = reg_sens (editor_actions, "track-height-largest", _("Largest"), sigc::bind (
447                                 sigc::mem_fun(*this, &Editor::set_track_height), HeightLargest));
448         ActionManager::stripable_selection_sensitive_actions.push_back (act);
449         act = reg_sens (editor_actions, "track-height-larger", _("Larger"), sigc::bind (
450                                 sigc::mem_fun(*this, &Editor::set_track_height), HeightLarger));
451         ActionManager::stripable_selection_sensitive_actions.push_back (act);
452         act = reg_sens (editor_actions, "track-height-large", _("Large"), sigc::bind (
453                                 sigc::mem_fun(*this, &Editor::set_track_height), HeightLarge));
454         ActionManager::stripable_selection_sensitive_actions.push_back (act);
455         act = reg_sens (editor_actions, "track-height-normal", _("Normal"), sigc::bind (
456                                 sigc::mem_fun(*this, &Editor::set_track_height), HeightNormal));
457         ActionManager::stripable_selection_sensitive_actions.push_back (act);
458         act = reg_sens (editor_actions, "track-height-small", _("Small"), sigc::bind (
459                                 sigc::mem_fun(*this, &Editor::set_track_height), HeightSmall));
460         ActionManager::stripable_selection_sensitive_actions.push_back (act);
461
462         toggle_reg_sens (editor_actions, "sound-midi-notes", _("Sound Selected MIDI Notes"), sigc::mem_fun (*this, &Editor::toggle_sound_midi_notes));
463
464         Glib::RefPtr<ActionGroup> zoom_actions = myactions.create_action_group (X_("Zoom"));
465         RadioAction::Group zoom_group;
466
467         radio_reg_sens (zoom_actions, zoom_group, "zoom-focus-left", _("Zoom Focus Left"), sigc::bind (sigc::mem_fun(*this, &Editor::zoom_focus_chosen), Editing::ZoomFocusLeft));
468         radio_reg_sens (zoom_actions, zoom_group, "zoom-focus-right", _("Zoom Focus Right"), sigc::bind (sigc::mem_fun(*this, &Editor::zoom_focus_chosen), Editing::ZoomFocusRight));
469         radio_reg_sens (zoom_actions, zoom_group, "zoom-focus-center", _("Zoom Focus Center"), sigc::bind (sigc::mem_fun(*this, &Editor::zoom_focus_chosen), Editing::ZoomFocusCenter));
470         radio_reg_sens (zoom_actions, zoom_group, "zoom-focus-playhead", _("Zoom Focus Playhead"), sigc::bind (sigc::mem_fun(*this, &Editor::zoom_focus_chosen), Editing::ZoomFocusPlayhead));
471         radio_reg_sens (zoom_actions, zoom_group, "zoom-focus-mouse", _("Zoom Focus Mouse"), sigc::bind (sigc::mem_fun(*this, &Editor::zoom_focus_chosen), Editing::ZoomFocusMouse));
472         radio_reg_sens (zoom_actions, zoom_group, "zoom-focus-edit", _("Zoom Focus Edit Point"), sigc::bind (sigc::mem_fun(*this, &Editor::zoom_focus_chosen), Editing::ZoomFocusEdit));
473
474         myactions.register_action (editor_actions, X_("cycle-zoom-focus"), _("Next Zoom Focus"), sigc::mem_fun (*this, &Editor::cycle_zoom_focus));
475
476         for (int i = 1; i <= 9; ++i) {
477                 string const a = string_compose (X_("script-action-%1"), i);
478                 string const n = string_compose (_("Unset #%1"), i);
479                 act = myactions.register_action (editor_actions, a.c_str(), n.c_str(), sigc::bind (sigc::mem_fun (*this, &Editor::trigger_script), i - 1));
480                 act->set_tooltip (_("no action bound"));
481                 act->set_sensitive (false);
482         }
483
484         Glib::RefPtr<ActionGroup> mouse_mode_actions = myactions.create_action_group (X_("MouseMode"));
485         RadioAction::Group mouse_mode_group;
486
487         act = myactions.register_toggle_action (mouse_mode_actions, "set-mouse-mode-object-range", _("Smart Object Mode"), sigc::mem_fun (*this, &Editor::mouse_mode_object_range_toggled));
488         smart_mode_action = Glib::RefPtr<ToggleAction>::cast_static (act);
489         smart_mode_button.set_related_action (smart_mode_action);
490         smart_mode_button.set_text (_("Smart"));
491         smart_mode_button.set_name ("mouse mode button");
492
493         act = myactions.register_radio_action (mouse_mode_actions, mouse_mode_group, "set-mouse-mode-object", _("Object Tool"), sigc::bind (sigc::mem_fun(*this, &Editor::mouse_mode_toggled), Editing::MouseObject));
494         mouse_move_button.set_related_action (act);
495         mouse_move_button.set_icon (ArdourWidgets::ArdourIcon::ToolGrab);
496         mouse_move_button.set_name ("mouse mode button");
497
498         act = myactions.register_radio_action (mouse_mode_actions, mouse_mode_group, "set-mouse-mode-range", _("Range Tool"), sigc::bind (sigc::mem_fun(*this, &Editor::mouse_mode_toggled), Editing::MouseRange));
499         mouse_select_button.set_related_action (act);
500         mouse_select_button.set_icon (ArdourWidgets::ArdourIcon::ToolRange);
501         mouse_select_button.set_name ("mouse mode button");
502
503         act = myactions.register_radio_action (mouse_mode_actions, mouse_mode_group, "set-mouse-mode-draw", _("Note Drawing Tool"), sigc::bind (sigc::mem_fun(*this, &Editor::mouse_mode_toggled), Editing::MouseDraw));
504         mouse_draw_button.set_related_action (act);
505         mouse_draw_button.set_icon (ArdourWidgets::ArdourIcon::ToolDraw);
506         mouse_draw_button.set_name ("mouse mode button");
507
508         act = myactions.register_radio_action (mouse_mode_actions, mouse_mode_group, "set-mouse-mode-audition", _("Audition Tool"), sigc::bind (sigc::mem_fun(*this, &Editor::mouse_mode_toggled), Editing::MouseAudition));
509         mouse_audition_button.set_related_action (act);
510         mouse_audition_button.set_icon (ArdourWidgets::ArdourIcon::ToolAudition);
511         mouse_audition_button.set_name ("mouse mode button");
512
513         act = myactions.register_radio_action (mouse_mode_actions, mouse_mode_group, "set-mouse-mode-timefx", _("Time FX Tool"), sigc::bind (sigc::mem_fun(*this, &Editor::mouse_mode_toggled), Editing::MouseTimeFX));
514         mouse_timefx_button.set_related_action (act);
515         mouse_timefx_button.set_icon (ArdourWidgets::ArdourIcon::ToolStretch);
516         mouse_timefx_button.set_name ("mouse mode button");
517
518         act = myactions.register_radio_action (mouse_mode_actions, mouse_mode_group, "set-mouse-mode-content", _("Content Tool"), sigc::bind (sigc::mem_fun(*this, &Editor::mouse_mode_toggled), Editing::MouseContent));
519         mouse_content_button.set_related_action (act);
520         mouse_content_button.set_icon (ArdourWidgets::ArdourIcon::ToolContent);
521         mouse_content_button.set_name ("mouse mode button");
522
523         if(!Profile->get_mixbus()) {
524                 act = myactions.register_radio_action (mouse_mode_actions, mouse_mode_group, "set-mouse-mode-cut", _("Cut Tool"), sigc::bind (sigc::mem_fun(*this, &Editor::mouse_mode_toggled), Editing::MouseCut));
525                 mouse_cut_button.set_related_action (act);
526                 mouse_cut_button.set_icon (ArdourWidgets::ArdourIcon::ToolCut);
527                 mouse_cut_button.set_name ("mouse mode button");
528         }
529
530         myactions.register_action (editor_actions, "step-mouse-mode", _("Step Mouse Mode"), sigc::bind (sigc::mem_fun(*this, &Editor::step_mouse_mode), true));
531
532         RadioAction::Group edit_point_group;
533         myactions.register_radio_action (editor_actions, edit_point_group, X_("edit-at-playhead"), _("Playhead"), (sigc::bind (sigc::mem_fun(*this, &Editor::edit_point_chosen), Editing::EditAtPlayhead)));
534         myactions.register_radio_action (editor_actions, edit_point_group, X_("edit-at-mouse"), _("Mouse"), (sigc::bind (sigc::mem_fun(*this, &Editor::edit_point_chosen), Editing::EditAtMouse)));
535         myactions.register_radio_action (editor_actions, edit_point_group, X_("edit-at-selected-marker"), _("Marker"), (sigc::bind (sigc::mem_fun(*this, &Editor::edit_point_chosen), Editing::EditAtSelectedMarker)));
536
537         myactions.register_action (editor_actions, "cycle-edit-point", _("Change Edit Point"), sigc::bind (sigc::mem_fun (*this, &Editor::cycle_edit_point), false));
538         myactions.register_action (editor_actions, "cycle-edit-point-with-marker", _("Change Edit Point Including Marker"), sigc::bind (sigc::mem_fun (*this, &Editor::cycle_edit_point), true));
539
540 //      myactions.register_action (editor_actions, "set-edit-splice", _("Splice"), sigc::bind (sigc::mem_fun (*this, &Editor::set_edit_mode), Splice));
541         myactions.register_action (editor_actions, "set-edit-ripple", _("Ripple"), bind (mem_fun (*this, &Editor::set_edit_mode), Ripple));
542         myactions.register_action (editor_actions, "set-edit-slide", _("Slide"), sigc::bind (sigc::mem_fun (*this, &Editor::set_edit_mode), Slide));
543         myactions.register_action (editor_actions, "set-edit-lock", S_("EditMode|Lock"), sigc::bind (sigc::mem_fun (*this, &Editor::set_edit_mode), Lock));
544         myactions.register_action (editor_actions, "cycle-edit-mode", _("Cycle Edit Mode"), sigc::mem_fun (*this, &Editor::cycle_edit_mode));
545
546         myactions.register_action (editor_actions, X_("SnapTo"), _("Snap to"));
547         myactions.register_action (editor_actions, X_("SnapMode"), _("Snap Mode"));
548
549         RadioAction::Group snap_mode_group;
550         myactions.register_radio_action (editor_actions, snap_mode_group, X_("snap-off"), _("No Grid"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_mode_chosen), Editing::SnapOff)));
551         myactions.register_radio_action (editor_actions, snap_mode_group, X_("snap-normal"), _("Grid"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_mode_chosen), Editing::SnapNormal)));
552         myactions.register_radio_action (editor_actions, snap_mode_group, X_("snap-magnetic"), _("Magnetic"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_mode_chosen), Editing::SnapMagnetic)));
553
554         myactions.register_action (editor_actions, X_("cycle-snap-mode"), _("Next Snap Mode"), sigc::mem_fun (*this, &Editor::cycle_snap_mode));
555         myactions.register_action (editor_actions, X_("next-snap-choice"), _("Next Snap Choice"), sigc::mem_fun (*this, &Editor::next_snap_choice));
556         myactions.register_action (editor_actions, X_("next-snap-choice-music-only"), _("Next Musical Snap Choice"), sigc::mem_fun (*this, &Editor::next_snap_choice_music_only));
557         myactions.register_action (editor_actions, X_("prev-snap-choice"), _("Previous Snap Choice"), sigc::mem_fun (*this, &Editor::prev_snap_choice));
558         myactions.register_action (editor_actions, X_("prev-snap-choice-music-only"), _("Previous Musical Snap Choice"), sigc::mem_fun (*this, &Editor::prev_snap_choice_music_only));
559
560         Glib::RefPtr<ActionGroup> snap_actions = myactions.create_action_group (X_("Snap"));
561         RadioAction::Group snap_choice_group;
562
563         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-cd-frame"), _("Snap to CD Frame"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToCDFrame)));
564         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-timecode-frame"), _("Snap to Timecode Frame"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToTimecodeFrame)));
565         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-timecode-seconds"), _("Snap to Timecode Seconds"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToTimecodeSeconds)));
566         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-timecode-minutes"), _("Snap to Timecode Minutes"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToTimecodeMinutes)));
567         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-seconds"), _("Snap to Seconds"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToSeconds)));
568         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-minutes"), _("Snap to Minutes"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToMinutes)));
569
570         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-onetwentyeighths"), _("Snap to One Twenty Eighths"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToBeatDiv128)));
571         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-sixtyfourths"), _("Snap to Sixty Fourths"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToBeatDiv64)));
572         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-thirtyseconds"), _("Snap to Thirty Seconds"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToBeatDiv32)));
573         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-twentyeighths"), _("Snap to Twenty Eighths"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToBeatDiv28)));
574         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-twentyfourths"), _("Snap to Twenty Fourths"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToBeatDiv24)));
575         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-twentieths"), _("Snap to Twentieths"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToBeatDiv20)));
576         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-asixteenthbeat"), _("Snap to Sixteenths"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToBeatDiv16)));
577         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-fourteenths"), _("Snap to Fourteenths"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToBeatDiv14)));
578         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-twelfths"), _("Snap to Twelfths"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToBeatDiv12)));
579         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-tenths"), _("Snap to Tenths"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToBeatDiv10)));
580         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-eighths"), _("Snap to Eighths"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToBeatDiv8)));
581         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-sevenths"), _("Snap to Sevenths"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToBeatDiv7)));
582         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-sixths"), _("Snap to Sixths"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToBeatDiv6)));
583         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-fifths"), _("Snap to Fifths"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToBeatDiv5)));
584         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-quarters"), _("Snap to Quarters"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToBeatDiv4)));
585         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-thirds"), _("Snap to Thirds"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToBeatDiv3)));
586         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-halves"), _("Snap to Halves"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToBeatDiv2)));
587
588         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-beat"), _("Snap to Beat"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToBeat)));
589         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-bar"), _("Snap to Bar"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToBar)));
590         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-mark"), _("Snap to Mark"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToMark)));
591         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-region-start"), _("Snap to Region Start"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToRegionStart)));
592         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-region-end"), _("Snap to Region End"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToRegionEnd)));
593         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-region-sync"), _("Snap to Region Sync"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToRegionSync)));
594         myactions.register_radio_action (snap_actions, snap_choice_group, X_("snap-to-region-boundary"), _("Snap to Region Boundary"), (sigc::bind (sigc::mem_fun(*this, &Editor::snap_type_chosen), Editing::SnapToRegionBoundary)));
595
596         myactions.register_toggle_action (editor_actions, X_("show-marker-lines"), _("Show Marker Lines"), sigc::mem_fun (*this, &Editor::toggle_marker_lines));
597
598         /* RULERS */
599
600         Glib::RefPtr<ActionGroup> ruler_actions = myactions.create_action_group (X_("Rulers"));
601         ruler_tempo_action = Glib::RefPtr<ToggleAction>::cast_static (myactions.register_toggle_action (ruler_actions, X_("toggle-tempo-ruler"), _("Tempo"), sigc::bind (sigc::mem_fun(*this, &Editor::toggle_ruler_visibility), ruler_time_tempo)));
602         ruler_meter_action = Glib::RefPtr<ToggleAction>::cast_static (myactions.register_toggle_action (ruler_actions, X_("toggle-meter-ruler"), _("Meter"), sigc::bind (sigc::mem_fun(*this, &Editor::toggle_ruler_visibility), ruler_time_meter)));
603         ruler_range_action = Glib::RefPtr<ToggleAction>::cast_static (myactions.register_toggle_action (ruler_actions, X_("toggle-range-ruler"), _("Ranges"), sigc::bind (sigc::mem_fun(*this, &Editor::toggle_ruler_visibility), ruler_time_range_marker)));
604         ruler_marker_action = Glib::RefPtr<ToggleAction>::cast_static (myactions.register_toggle_action (ruler_actions, X_("toggle-marker-ruler"), _("Markers"), sigc::bind (sigc::mem_fun(*this, &Editor::toggle_ruler_visibility), ruler_time_marker)));
605         ruler_cd_marker_action = Glib::RefPtr<ToggleAction>::cast_static (myactions.register_toggle_action (ruler_actions, X_("toggle-cd-marker-ruler"), _("CD Markers"), sigc::bind (sigc::mem_fun(*this, &Editor::toggle_ruler_visibility), ruler_time_cd_marker)));
606         ruler_loop_punch_action = Glib::RefPtr<ToggleAction>::cast_static (myactions.register_toggle_action (ruler_actions, X_("toggle-loop-punch-ruler"), _("Loop/Punch"), sigc::bind (sigc::mem_fun(*this, &Editor::toggle_ruler_visibility), ruler_time_transport_marker)));
607         ruler_bbt_action = Glib::RefPtr<ToggleAction>::cast_static (myactions.register_toggle_action (ruler_actions, X_("toggle-bbt-ruler"), _("Bars & Beats"), sigc::bind (sigc::mem_fun(*this, &Editor::toggle_ruler_visibility), ruler_metric_bbt)));
608         ruler_samples_action = Glib::RefPtr<ToggleAction>::cast_static (myactions.register_toggle_action (ruler_actions, X_("toggle-samples-ruler"), _("Samples"), sigc::bind (sigc::mem_fun(*this, &Editor::toggle_ruler_visibility), ruler_metric_samples)));
609         ruler_timecode_action = Glib::RefPtr<ToggleAction>::cast_static (myactions.register_toggle_action (ruler_actions, X_("toggle-timecode-ruler"), _("Timecode"), sigc::bind (sigc::mem_fun(*this, &Editor::toggle_ruler_visibility), ruler_metric_timecode)));
610         ruler_minsec_action = Glib::RefPtr<ToggleAction>::cast_static (myactions.register_toggle_action (ruler_actions, X_("toggle-minsec-ruler"), _("Min:Sec"), sigc::bind (sigc::mem_fun(*this, &Editor::toggle_ruler_visibility), ruler_metric_minsec)));
611
612         myactions.register_action (editor_menu_actions, X_("VideoMonitorMenu"), _("Video Monitor"));
613
614         ruler_video_action = Glib::RefPtr<ToggleAction>::cast_static (myactions.register_toggle_action (ruler_actions, X_("toggle-video-ruler"), _("Video"), sigc::bind (sigc::mem_fun(*this, &Editor::toggle_ruler_visibility), ruler_video_timeline)));
615         xjadeo_proc_action = Glib::RefPtr<ToggleAction>::cast_static (myactions.register_toggle_action (editor_actions, X_("ToggleJadeo"), _("Video Monitor"), sigc::mem_fun (*this, &Editor::set_xjadeo_proc)));
616
617         xjadeo_ontop_action = Glib::RefPtr<ToggleAction>::cast_static (myactions.register_toggle_action (editor_actions, X_("toggle-vmon-ontop"), _("Always on Top"), sigc::bind (sigc::mem_fun (*this, &Editor::set_xjadeo_viewoption), (int) 1)));
618         xjadeo_timecode_action = Glib::RefPtr<ToggleAction>::cast_static (myactions.register_toggle_action (editor_actions, X_("toggle-vmon-timecode"), _("Timecode"), sigc::bind (sigc::mem_fun (*this, &Editor::set_xjadeo_viewoption), (int) 2)));
619         xjadeo_sample_action = Glib::RefPtr<ToggleAction>::cast_static (myactions.register_toggle_action (editor_actions, X_("toggle-vmon-frame"), _("Frame number"), sigc::bind (sigc::mem_fun (*this, &Editor::set_xjadeo_viewoption), (int) 3)));
620         xjadeo_osdbg_action = Glib::RefPtr<ToggleAction>::cast_static (myactions.register_toggle_action (editor_actions, X_("toggle-vmon-osdbg"), _("Timecode Background"), sigc::bind (sigc::mem_fun (*this, &Editor::set_xjadeo_viewoption), (int) 4)));
621         xjadeo_fullscreen_action = Glib::RefPtr<ToggleAction>::cast_static (myactions.register_toggle_action (editor_actions, X_("toggle-vmon-fullscreen"), _("Fullscreen"), sigc::bind (sigc::mem_fun (*this, &Editor::set_xjadeo_viewoption), (int) 5)));
622         xjadeo_letterbox_action = Glib::RefPtr<ToggleAction>::cast_static (myactions.register_toggle_action (editor_actions, X_("toggle-vmon-letterbox"), _("Letterbox"), sigc::bind (sigc::mem_fun (*this, &Editor::set_xjadeo_viewoption), (int) 6)));
623         xjadeo_zoom_100 = reg_sens (editor_actions, "zoom-vmon-100", _("Original Size"), sigc::bind (sigc::mem_fun (*this, &Editor::set_xjadeo_viewoption), (int) 7));
624
625         /* set defaults here */
626
627         no_ruler_shown_update = true;
628
629         if (Profile->get_trx()) {
630                 ruler_marker_action->set_active (true);
631                 ruler_meter_action->set_active (false);
632                 ruler_tempo_action->set_active (false);
633                 ruler_range_action->set_active (false);
634                 ruler_loop_punch_action->set_active (false);
635                 ruler_loop_punch_action->set_active (false);
636                 ruler_bbt_action->set_active (true);
637                 ruler_cd_marker_action->set_active (false);
638                 ruler_timecode_action->set_active (false);
639                 ruler_minsec_action->set_active (true);
640         } else {
641                 ruler_marker_action->set_active (true);
642                 ruler_meter_action->set_active (true);
643                 ruler_tempo_action->set_active (true);
644                 ruler_range_action->set_active (true);
645                 ruler_loop_punch_action->set_active (true);
646                 ruler_loop_punch_action->set_active (true);
647                 ruler_bbt_action->set_active (true);
648                 ruler_cd_marker_action->set_active (true);
649                 ruler_timecode_action->set_active (true);
650                 ruler_minsec_action->set_active (false);
651         }
652
653         ruler_video_action->set_active (false);
654         xjadeo_proc_action->set_active (false);
655         xjadeo_proc_action->set_sensitive (false);
656         xjadeo_ontop_action->set_active (false);
657         xjadeo_ontop_action->set_sensitive (false);
658         xjadeo_timecode_action->set_active (false);
659         xjadeo_timecode_action->set_sensitive (false);
660         xjadeo_sample_action->set_active (false);
661         xjadeo_sample_action->set_sensitive (false);
662         xjadeo_osdbg_action->set_active (false);
663         xjadeo_osdbg_action->set_sensitive (false);
664         xjadeo_fullscreen_action->set_active (false);
665         xjadeo_fullscreen_action->set_sensitive (false);
666         xjadeo_letterbox_action->set_active (false);
667         xjadeo_letterbox_action->set_sensitive (false);
668         xjadeo_zoom_100->set_sensitive (false);
669
670         ruler_samples_action->set_active (false);
671         no_ruler_shown_update = false;
672
673         /* REGION LIST */
674
675         Glib::RefPtr<ActionGroup> rl_actions = myactions.create_action_group (X_("RegionList"));
676         RadioAction::Group sort_type_group;
677         RadioAction::Group sort_order_group;
678
679         /* the region list popup menu */
680         myactions.register_action (rl_actions, X_("RegionListSort"), _("Sort"));
681
682         act = myactions.register_action (rl_actions, X_("rlAudition"), _("Audition"), sigc::mem_fun(*this, &Editor::audition_region_from_region_list));
683         ActionManager::region_list_selection_sensitive_actions.push_back (act);
684
685         act = myactions.register_action (rl_actions, X_("rlHide"), _("Hide"), sigc::mem_fun(*this, &Editor::hide_region_from_region_list));
686         ActionManager::region_list_selection_sensitive_actions.push_back (act);
687
688         act = myactions.register_action (rl_actions, X_("rlShow"), _("Show"), sigc::mem_fun(*this, &Editor::show_region_in_region_list));
689         ActionManager::region_list_selection_sensitive_actions.push_back (act);
690
691         myactions.register_toggle_action (rl_actions, X_("rlShowAll"), _("Show All"), sigc::mem_fun(*_regions, &EditorRegions::toggle_full));
692         myactions.register_toggle_action (rl_actions, X_("rlShowAuto"), _("Show Automatic Regions"), sigc::mem_fun (*_regions, &EditorRegions::toggle_show_auto_regions));
693
694         myactions.register_radio_action (rl_actions, sort_order_group, X_("SortAscending"),  _("Ascending"),
695                         sigc::bind (sigc::mem_fun (*_regions, &EditorRegions::reset_sort_direction), true));
696         myactions.register_radio_action (rl_actions, sort_order_group, X_("SortDescending"),   _("Descending"),
697                         sigc::bind (sigc::mem_fun (*_regions, &EditorRegions::reset_sort_direction), false));
698
699         myactions.register_radio_action (rl_actions, sort_type_group, X_("SortByRegionName"),  _("By Region Name"),
700                         sigc::bind (sigc::mem_fun (*_regions, &EditorRegions::reset_sort_type), ByName, false));
701         myactions.register_radio_action (rl_actions, sort_type_group, X_("SortByRegionLength"),  _("By Region Length"),
702                         sigc::bind (sigc::mem_fun (*_regions, &EditorRegions::reset_sort_type), ByLength, false));
703         myactions.register_radio_action (rl_actions, sort_type_group, X_("SortByRegionPosition"),  _("By Region Position"),
704                         sigc::bind (sigc::mem_fun (*_regions, &EditorRegions::reset_sort_type), ByPosition, false));
705         myactions.register_radio_action (rl_actions, sort_type_group, X_("SortByRegionTimestamp"),  _("By Region Timestamp"),
706                         sigc::bind (sigc::mem_fun (*_regions, &EditorRegions::reset_sort_type), ByTimestamp, false));
707         myactions.register_radio_action (rl_actions, sort_type_group, X_("SortByRegionStartinFile"),  _("By Region Start in File"),
708                         sigc::bind (sigc::mem_fun (*_regions, &EditorRegions::reset_sort_type), ByStartInFile, false));
709         myactions.register_radio_action (rl_actions, sort_type_group, X_("SortByRegionEndinFile"),  _("By Region End in File"),
710                         sigc::bind (sigc::mem_fun (*_regions, &EditorRegions::reset_sort_type), ByEndInFile, false));
711         myactions.register_radio_action (rl_actions, sort_type_group, X_("SortBySourceFileName"),  _("By Source File Name"),
712                         sigc::bind (sigc::mem_fun (*_regions, &EditorRegions::reset_sort_type), BySourceFileName, false));
713         myactions.register_radio_action (rl_actions, sort_type_group, X_("SortBySourceFileLength"),  _("By Source File Length"),
714                         sigc::bind (sigc::mem_fun (*_regions, &EditorRegions::reset_sort_type), BySourceFileLength, false));
715         myactions.register_radio_action (rl_actions, sort_type_group, X_("SortBySourceFileCreationDate"),  _("By Source File Creation Date"),
716                         sigc::bind (sigc::mem_fun (*_regions, &EditorRegions::reset_sort_type), BySourceFileCreationDate, false));
717         myactions.register_radio_action (rl_actions, sort_type_group, X_("SortBySourceFilesystem"),  _("By Source Filesystem"),
718                         sigc::bind (sigc::mem_fun (*_regions, &EditorRegions::reset_sort_type), BySourceFileFS, false));
719
720         myactions.register_action (rl_actions, X_("removeUnusedRegions"), _("Remove Unused"), sigc::mem_fun (*_regions, &EditorRegions::remove_unused_regions));
721
722         act = reg_sens (editor_actions, X_("addExistingPTFiles"), _("Import PT session"), sigc::mem_fun (*this, &Editor::external_pt_dialog));
723         ActionManager::write_sensitive_actions.push_back (act);
724
725         /* the next two are duplicate items with different names for use in two different contexts */
726
727         act = reg_sens (editor_actions, X_("addExternalAudioToRegionList"), _("Import to Region List..."), sigc::bind (sigc::mem_fun(*this, &Editor::add_external_audio_action), ImportAsRegion));
728         ActionManager::write_sensitive_actions.push_back (act);
729
730         act = myactions.register_action (editor_actions, X_("importFromSession"), _("Import from Session"), sigc::mem_fun(*this, &Editor::session_import_dialog));
731         ActionManager::write_sensitive_actions.push_back (act);
732
733
734         act = myactions.register_action (editor_actions, X_("bring-into-session"), _("Bring all media into session folder"), sigc::mem_fun(*this, &Editor::bring_all_sources_into_session));
735         ActionManager::write_sensitive_actions.push_back (act);
736
737         myactions.register_toggle_action (editor_actions, X_("ToggleSummary"), _("Show Summary"), sigc::mem_fun (*this, &Editor::set_summary));
738
739         myactions.register_toggle_action (editor_actions, X_("ToggleGroupTabs"), _("Show Group Tabs"), sigc::mem_fun (*this, &Editor::set_group_tabs));
740
741         myactions.register_toggle_action (editor_actions, X_("ToggleMeasureVisibility"), _("Show Measure Lines"), sigc::mem_fun (*this, &Editor::toggle_measure_visibility));
742
743         myactions.register_action (editor_actions, X_("toggle-midi-input-active"), _("Toggle MIDI Input Active for Editor-Selected Tracks/Busses"),
744                                    sigc::bind (sigc::mem_fun (*this, &Editor::toggle_midi_input_active), false));
745
746
747         /* MIDI stuff */
748         reg_sens (editor_actions, "quantize", _("Quantize"), sigc::mem_fun (*this, &Editor::quantize_region));
749
750 }
751
752 static void _lua_print (std::string s) {
753 #ifndef NDEBUG
754         std::cout << "LuaInstance: " << s << "\n";
755 #endif
756         PBD::info << "LuaInstance: " << s << endmsg;
757 }
758
759 void
760 Editor::trigger_script_by_name ( const std::string script_name )
761 {
762         string script_path;
763         ARDOUR::LuaScriptList scr = LuaScripting::instance ().scripts(LuaScriptInfo::EditorAction);
764         for (ARDOUR::LuaScriptList::const_iterator s = scr.begin(); s != scr.end(); ++s) {
765
766                 if ( (*s)->name == script_name ) {
767                         script_path = (*s)->path;
768
769                         if (!Glib::file_test (script_path, Glib::FILE_TEST_EXISTS | Glib::FILE_TEST_IS_REGULAR)) {
770                                 cerr << "Lua Script action: path to " << script_path << " does not appear to be valid" << endl;
771                                 return;
772                         }
773
774                         LuaState lua;
775                         lua.Print.connect (&_lua_print);  //ToDo
776                         lua.sandbox (true);
777                         lua_State* L = lua.getState();
778                         LuaInstance::register_classes (L);
779                         LuaBindings::set_session (L, _session);
780                         luabridge::push <PublicEditor *> (L, &PublicEditor::instance());
781                         lua_setglobal (L, "Editor");
782                         lua.do_command ("function ardour () end");
783                         lua.do_file (script_path);
784                         luabridge::LuaRef args (luabridge::newTable (L));
785
786                         //ToDo:  args?
787                         //      args["how_many"]   = count;
788
789                         try {
790                                 luabridge::LuaRef fn = luabridge::getGlobal (L, "factory");
791                                 if (fn.isFunction()) {
792                                         fn (args)();
793                                 }
794                         } catch (luabridge::LuaException const& e) {
795                                 cerr << "LuaException:" << e.what () << endl;
796                         } catch (...) {
797                                 cerr << "Lua script failed: " << script_path << endl;
798                         }
799                                 
800                         continue;  //script found; we're done
801                 }
802         }
803
804         cerr << "Lua script was not found: " << script_name << endl;
805 }
806
807 void
808 Editor::load_bindings ()
809 {
810         bindings = Bindings::get_bindings (X_("Editor"), myactions);
811         global_hpacker.set_data ("ardour-bindings", bindings);
812 }
813
814 void
815 Editor::toggle_skip_playback ()
816 {
817         Glib::RefPtr<Action> act = ActionManager::get_action (X_("Editor"), "toggle-skip-playback");
818
819         if (act) {
820                 Glib::RefPtr<ToggleAction> tact = Glib::RefPtr<ToggleAction>::cast_dynamic(act);
821                 bool s = Config->get_skip_playback ();
822                 if (tact->get_active() != s) {
823                         Config->set_skip_playback (tact->get_active());
824                 }
825         }
826 }
827
828 void
829 Editor::toggle_ruler_visibility (RulerType rt)
830 {
831         const char* action = 0;
832
833         if (no_ruler_shown_update) {
834                 return;
835         }
836
837         switch (rt) {
838         case ruler_metric_timecode:
839                 action = "toggle-timecode-ruler";
840                 break;
841         case ruler_metric_bbt:
842                 action = "toggle-bbt-ruler";
843                 break;
844         case ruler_metric_samples:
845                 action = "toggle-samples-ruler";
846                 break;
847         case ruler_metric_minsec:
848                 action = "toggle-minsec-ruler";
849                 break;
850         case ruler_time_tempo:
851                 action = "toggle-tempo-ruler";
852                 break;
853         case ruler_time_meter:
854                 action = "toggle-meter-ruler";
855                 break;
856         case ruler_time_marker:
857                 action = "toggle-marker-ruler";
858                 break;
859         case ruler_time_range_marker:
860                 action = "toggle-range-ruler";
861                 break;
862         case ruler_time_transport_marker:
863                 action = "toggle-loop-punch-ruler";
864                 break;
865         case ruler_time_cd_marker:
866                 action = "toggle-cd-marker-ruler";
867                 break;
868         case ruler_video_timeline:
869                 action = "toggle-video-ruler";
870                 break;
871         }
872
873         Glib::RefPtr<Action> act = ActionManager::get_action (X_("Rulers"), action);
874
875         if (act) {
876                 Glib::RefPtr<ToggleAction> tact = Glib::RefPtr<ToggleAction>::cast_dynamic(act);
877                 update_ruler_visibility ();
878                 store_ruler_visibility ();
879         }
880 }
881
882 void
883 Editor::set_summary ()
884 {
885         Glib::RefPtr<Action> act = ActionManager::get_action (X_("Editor"), X_("ToggleSummary"));
886         if (act) {
887                 Glib::RefPtr<ToggleAction> tact = Glib::RefPtr<ToggleAction>::cast_dynamic (act);
888                 _session->config.set_show_summary (tact->get_active ());
889         }
890 }
891
892 void
893 Editor::set_group_tabs ()
894 {
895         Glib::RefPtr<Action> act = ActionManager::get_action (X_("Editor"), X_("ToggleGroupTabs"));
896         if (act) {
897                 Glib::RefPtr<ToggleAction> tact = Glib::RefPtr<ToggleAction>::cast_dynamic (act);
898                 _session->config.set_show_group_tabs (tact->get_active ());
899         }
900 }
901
902 void
903 Editor::set_close_video_sensitive (bool onoff)
904 {
905         Glib::RefPtr<Action> act = ActionManager::get_action (X_("Main"), X_("CloseVideo"));
906         if (act) {
907                 act->set_sensitive (onoff);
908         }
909 }
910
911 void
912 Editor::set_xjadeo_sensitive (bool onoff)
913 {
914         xjadeo_proc_action->set_sensitive(onoff);
915 }
916
917 void
918 Editor::toggle_xjadeo_proc (int state)
919 {
920         switch(state) {
921                 case 1:
922                         xjadeo_proc_action->set_active(true);
923                         break;
924                 case 0:
925                         xjadeo_proc_action->set_active(false);
926                         break;
927                 default:
928                         xjadeo_proc_action->set_active(!xjadeo_proc_action->get_active());
929                         break;
930         }
931         bool onoff = xjadeo_proc_action->get_active();
932         xjadeo_ontop_action->set_sensitive(onoff);
933         xjadeo_timecode_action->set_sensitive(onoff);
934         xjadeo_sample_action->set_sensitive(onoff);
935         xjadeo_osdbg_action->set_sensitive(onoff);
936         xjadeo_fullscreen_action->set_sensitive(onoff);
937         xjadeo_letterbox_action->set_sensitive(onoff);
938         xjadeo_zoom_100->set_sensitive(onoff);
939 }
940
941 void
942 Editor::set_xjadeo_proc ()
943 {
944         if (xjadeo_proc_action->get_active()) {
945                 ARDOUR_UI::instance()->video_timeline->open_video_monitor();
946         } else {
947                 ARDOUR_UI::instance()->video_timeline->close_video_monitor();
948         }
949 }
950
951 void
952 Editor::toggle_xjadeo_viewoption (int what, int state)
953 {
954         Glib::RefPtr<Gtk::ToggleAction> action;
955         switch (what) {
956                 case 1:
957                         action = xjadeo_ontop_action;
958                         break;
959                 case 2:
960                         action = xjadeo_timecode_action;
961                         break;
962                 case 3:
963                         action = xjadeo_sample_action;
964                         break;
965                 case 4:
966                         action = xjadeo_osdbg_action;
967                         break;
968                 case 5:
969                         action = xjadeo_fullscreen_action;
970                         break;
971                 case 6:
972                         action = xjadeo_letterbox_action;
973                         break;
974                 case 7:
975                         return;
976                 default:
977                         return;
978         }
979
980         switch(state) {
981                 case 1:
982                         action->set_active(true);
983                         break;
984                 case 0:
985                         action->set_active(false);
986                         break;
987                 default:
988                         action->set_active(!action->get_active());
989                         break;
990         }
991 }
992
993 void
994 Editor::set_xjadeo_viewoption (int what)
995 {
996         Glib::RefPtr<Gtk::ToggleAction> action;
997         switch (what) {
998                 case 1:
999                         action = xjadeo_ontop_action;
1000                         break;
1001                 case 2:
1002                         action = xjadeo_timecode_action;
1003                         break;
1004                 case 3:
1005                         action = xjadeo_sample_action;
1006                         break;
1007                 case 4:
1008                         action = xjadeo_osdbg_action;
1009                         break;
1010                 case 5:
1011                         action = xjadeo_fullscreen_action;
1012                         break;
1013                 case 6:
1014                         action = xjadeo_letterbox_action;
1015                         break;
1016                 case 7:
1017                         ARDOUR_UI::instance()->video_timeline->control_video_monitor(what, 0);
1018                         return;
1019                 default:
1020                         return;
1021         }
1022         if (action->get_active()) {
1023                 ARDOUR_UI::instance()->video_timeline->control_video_monitor(what, 1);
1024         } else {
1025                 ARDOUR_UI::instance()->video_timeline->control_video_monitor(what, 0);
1026         }
1027 }
1028
1029 void
1030 Editor::toggle_measure_visibility ()
1031 {
1032         Glib::RefPtr<Action> act = ActionManager::get_action (X_("Editor"), X_("ToggleMeasureVisibility"));
1033         if (act) {
1034                 Glib::RefPtr<ToggleAction> tact = Glib::RefPtr<ToggleAction>::cast_dynamic(act);
1035                 set_show_measures (tact->get_active());
1036         }
1037 }
1038
1039 void
1040 Editor::edit_current_meter ()
1041 {
1042         ARDOUR::MeterSection* ms = const_cast<ARDOUR::MeterSection*>(&_session->tempo_map().meter_section_at_sample (ARDOUR_UI::instance()->primary_clock->absolute_time()));
1043         edit_meter_section (ms);
1044 }
1045
1046 void
1047 Editor::edit_current_tempo ()
1048 {
1049         ARDOUR::TempoSection* ts = const_cast<ARDOUR::TempoSection*>(&_session->tempo_map().tempo_section_at_sample (ARDOUR_UI::instance()->primary_clock->absolute_time()));
1050         edit_tempo_section (ts);
1051 }
1052
1053 RefPtr<RadioAction>
1054 Editor::snap_type_action (SnapType type)
1055 {
1056         const char* action = 0;
1057         RefPtr<Action> act;
1058
1059         switch (type) {
1060         case Editing::SnapToCDFrame:
1061                 action = "snap-to-cd-frame";
1062                 break;
1063         case Editing::SnapToTimecodeFrame:
1064                 action = "snap-to-timecode-frame";
1065                 break;
1066         case Editing::SnapToTimecodeSeconds:
1067                 action = "snap-to-timecode-seconds";
1068                 break;
1069         case Editing::SnapToTimecodeMinutes:
1070                 action = "snap-to-timecode-minutes";
1071                 break;
1072         case Editing::SnapToSeconds:
1073                 action = "snap-to-seconds";
1074                 break;
1075         case Editing::SnapToMinutes:
1076                 action = "snap-to-minutes";
1077                 break;
1078         case Editing::SnapToBeatDiv128:
1079                 action = "snap-to-onetwentyeighths";
1080                 break;
1081         case Editing::SnapToBeatDiv64:
1082                 action = "snap-to-sixtyfourths";
1083                 break;
1084         case Editing::SnapToBeatDiv32:
1085                 action = "snap-to-thirtyseconds";
1086                 break;
1087         case Editing::SnapToBeatDiv28:
1088                 action = "snap-to-twentyeighths";
1089                 break;
1090         case Editing::SnapToBeatDiv24:
1091                 action = "snap-to-twentyfourths";
1092                 break;
1093         case Editing::SnapToBeatDiv20:
1094                 action = "snap-to-twentieths";
1095                 break;
1096         case Editing::SnapToBeatDiv16:
1097                 action = "snap-to-asixteenthbeat";
1098                 break;
1099         case Editing::SnapToBeatDiv14:
1100                 action = "snap-to-fourteenths";
1101                 break;
1102         case Editing::SnapToBeatDiv12:
1103                 action = "snap-to-twelfths";
1104                 break;
1105         case Editing::SnapToBeatDiv10:
1106                 action = "snap-to-tenths";
1107                 break;
1108         case Editing::SnapToBeatDiv8:
1109                 action = "snap-to-eighths";
1110                 break;
1111         case Editing::SnapToBeatDiv7:
1112                 action = "snap-to-sevenths";
1113                 break;
1114         case Editing::SnapToBeatDiv6:
1115                 action = "snap-to-sixths";
1116                 break;
1117         case Editing::SnapToBeatDiv5:
1118                 action = "snap-to-fifths";
1119                 break;
1120         case Editing::SnapToBeatDiv4:
1121                 action = "snap-to-quarters";
1122                 break;
1123         case Editing::SnapToBeatDiv3:
1124                 action = "snap-to-thirds";
1125                 break;
1126         case Editing::SnapToBeatDiv2:
1127                 action = "snap-to-halves";
1128                 break;
1129         case Editing::SnapToBeat:
1130                 action = "snap-to-beat";
1131                 break;
1132         case Editing::SnapToBar:
1133                 action = "snap-to-bar";
1134                 break;
1135         case Editing::SnapToMark:
1136                 action = "snap-to-mark";
1137                 break;
1138         case Editing::SnapToRegionStart:
1139                 action = "snap-to-region-start";
1140                 break;
1141         case Editing::SnapToRegionEnd:
1142                 action = "snap-to-region-end";
1143                 break;
1144         case Editing::SnapToRegionSync:
1145                 action = "snap-to-region-sync";
1146                 break;
1147         case Editing::SnapToRegionBoundary:
1148                 action = "snap-to-region-boundary";
1149                 break;
1150         default:
1151                 fatal << string_compose (_("programming error: %1: %2"), "Editor: impossible snap-to type", (int) type) << endmsg;
1152                 abort(); /*NOTREACHED*/
1153         }
1154
1155         act = ActionManager::get_action (X_("Snap"), action);
1156
1157         if (act) {
1158                 RefPtr<RadioAction> ract = RefPtr<RadioAction>::cast_dynamic(act);
1159                 return ract;
1160
1161         } else  {
1162                 error << string_compose (_("programming error: %1"), "Editor::snap_type_chosen could not find action to match type.") << endmsg;
1163                 return RefPtr<RadioAction>();
1164         }
1165 }
1166
1167 void
1168 Editor::next_snap_choice ()
1169 {
1170         switch (_snap_type) {
1171         case Editing::SnapToCDFrame:
1172                 set_snap_to (Editing::SnapToTimecodeFrame);
1173                 break;
1174         case Editing::SnapToTimecodeFrame:
1175                 set_snap_to (Editing::SnapToTimecodeSeconds);
1176                 break;
1177         case Editing::SnapToTimecodeSeconds:
1178                 set_snap_to (Editing::SnapToTimecodeMinutes);
1179                 break;
1180         case Editing::SnapToTimecodeMinutes:
1181                 set_snap_to (Editing::SnapToSeconds);
1182                 break;
1183         case Editing::SnapToSeconds:
1184                 set_snap_to (Editing::SnapToMinutes);
1185                 break;
1186         case Editing::SnapToMinutes:
1187                 set_snap_to (Editing::SnapToBeatDiv128);
1188                 break;
1189         case Editing::SnapToBeatDiv128:
1190                 set_snap_to (Editing::SnapToBeatDiv64);
1191                 break;
1192         case Editing::SnapToBeatDiv64:
1193                 set_snap_to (Editing::SnapToBeatDiv32);
1194                 break;
1195         case Editing::SnapToBeatDiv32:
1196                 set_snap_to (Editing::SnapToBeatDiv28);
1197                 break;
1198         case Editing::SnapToBeatDiv28:
1199                 set_snap_to (Editing::SnapToBeatDiv24);
1200                 break;
1201         case Editing::SnapToBeatDiv24:
1202                 set_snap_to (Editing::SnapToBeatDiv20);
1203                 break;
1204         case Editing::SnapToBeatDiv20:
1205                 set_snap_to (Editing::SnapToBeatDiv16);
1206                 break;
1207         case Editing::SnapToBeatDiv16:
1208                 set_snap_to (Editing::SnapToBeatDiv14);
1209                 break;
1210         case Editing::SnapToBeatDiv14:
1211                 set_snap_to (Editing::SnapToBeatDiv12);
1212                 break;
1213         case Editing::SnapToBeatDiv12:
1214                 set_snap_to (Editing::SnapToBeatDiv10);
1215                 break;
1216         case Editing::SnapToBeatDiv10:
1217                 set_snap_to (Editing::SnapToBeatDiv8);
1218                 break;
1219         case Editing::SnapToBeatDiv8:
1220                 set_snap_to (Editing::SnapToBeatDiv7);
1221                 break;
1222         case Editing::SnapToBeatDiv7:
1223                 set_snap_to (Editing::SnapToBeatDiv6);
1224                 break;
1225         case Editing::SnapToBeatDiv6:
1226                 set_snap_to (Editing::SnapToBeatDiv5);
1227                 break;
1228         case Editing::SnapToBeatDiv5:
1229                 set_snap_to (Editing::SnapToBeatDiv4);
1230                 break;
1231         case Editing::SnapToBeatDiv4:
1232                 set_snap_to (Editing::SnapToBeatDiv3);
1233                 break;
1234         case Editing::SnapToBeatDiv3:
1235                 set_snap_to (Editing::SnapToBeatDiv2);
1236                 break;
1237         case Editing::SnapToBeatDiv2:
1238                 set_snap_to (Editing::SnapToBeat);
1239                 break;
1240         case Editing::SnapToBeat:
1241                 set_snap_to (Editing::SnapToBar);
1242                 break;
1243         case Editing::SnapToBar:
1244                 set_snap_to (Editing::SnapToMark);
1245                 break;
1246         case Editing::SnapToMark:
1247                 set_snap_to (Editing::SnapToRegionStart);
1248                 break;
1249         case Editing::SnapToRegionStart:
1250                 set_snap_to (Editing::SnapToRegionEnd);
1251                 break;
1252         case Editing::SnapToRegionEnd:
1253                 set_snap_to (Editing::SnapToRegionSync);
1254                 break;
1255         case Editing::SnapToRegionSync:
1256                 set_snap_to (Editing::SnapToRegionBoundary);
1257                 break;
1258         case Editing::SnapToRegionBoundary:
1259                 set_snap_to (Editing::SnapToCDFrame);
1260                 break;
1261         }
1262 }
1263
1264 void
1265 Editor::prev_snap_choice ()
1266 {
1267         switch (_snap_type) {
1268         case Editing::SnapToCDFrame:
1269                 set_snap_to (Editing::SnapToRegionBoundary);
1270                 break;
1271         case Editing::SnapToTimecodeFrame:
1272                 set_snap_to (Editing::SnapToCDFrame);
1273                 break;
1274         case Editing::SnapToTimecodeSeconds:
1275                 set_snap_to (Editing::SnapToTimecodeFrame);
1276                 break;
1277         case Editing::SnapToTimecodeMinutes:
1278                 set_snap_to (Editing::SnapToTimecodeSeconds);
1279                 break;
1280         case Editing::SnapToSeconds:
1281                 set_snap_to (Editing::SnapToTimecodeMinutes);
1282                 break;
1283         case Editing::SnapToMinutes:
1284                 set_snap_to (Editing::SnapToSeconds);
1285                 break;
1286         case Editing::SnapToBeatDiv128:
1287                 set_snap_to (Editing::SnapToMinutes);
1288                 break;
1289         case Editing::SnapToBeatDiv64:
1290                 set_snap_to (Editing::SnapToBeatDiv128);
1291                 break;
1292         case Editing::SnapToBeatDiv32:
1293                 set_snap_to (Editing::SnapToBeatDiv64);
1294                 break;
1295         case Editing::SnapToBeatDiv28:
1296                 set_snap_to (Editing::SnapToBeatDiv32);
1297                 break;
1298         case Editing::SnapToBeatDiv24:
1299                 set_snap_to (Editing::SnapToBeatDiv28);
1300                 break;
1301         case Editing::SnapToBeatDiv20:
1302                 set_snap_to (Editing::SnapToBeatDiv24);
1303                 break;
1304         case Editing::SnapToBeatDiv16:
1305                 set_snap_to (Editing::SnapToBeatDiv20);
1306                 break;
1307         case Editing::SnapToBeatDiv14:
1308                 set_snap_to (Editing::SnapToBeatDiv16);
1309                 break;
1310         case Editing::SnapToBeatDiv12:
1311                 set_snap_to (Editing::SnapToBeatDiv14);
1312                 break;
1313         case Editing::SnapToBeatDiv10:
1314                 set_snap_to (Editing::SnapToBeatDiv12);
1315                 break;
1316         case Editing::SnapToBeatDiv8:
1317                 set_snap_to (Editing::SnapToBeatDiv10);
1318                 break;
1319         case Editing::SnapToBeatDiv7:
1320                 set_snap_to (Editing::SnapToBeatDiv8);
1321                 break;
1322         case Editing::SnapToBeatDiv6:
1323                 set_snap_to (Editing::SnapToBeatDiv7);
1324                 break;
1325         case Editing::SnapToBeatDiv5:
1326                 set_snap_to (Editing::SnapToBeatDiv6);
1327                 break;
1328         case Editing::SnapToBeatDiv4:
1329                 set_snap_to (Editing::SnapToBeatDiv5);
1330                 break;
1331         case Editing::SnapToBeatDiv3:
1332                 set_snap_to (Editing::SnapToBeatDiv4);
1333                 break;
1334         case Editing::SnapToBeatDiv2:
1335                 set_snap_to (Editing::SnapToBeatDiv3);
1336                 break;
1337         case Editing::SnapToBeat:
1338                 set_snap_to (Editing::SnapToBeatDiv2);
1339                 break;
1340         case Editing::SnapToBar:
1341                 set_snap_to (Editing::SnapToBeat);
1342                 break;
1343         case Editing::SnapToMark:
1344                 set_snap_to (Editing::SnapToBar);
1345                 break;
1346         case Editing::SnapToRegionStart:
1347                 set_snap_to (Editing::SnapToMark);
1348                 break;
1349         case Editing::SnapToRegionEnd:
1350                 set_snap_to (Editing::SnapToRegionStart);
1351                 break;
1352         case Editing::SnapToRegionSync:
1353                 set_snap_to (Editing::SnapToRegionEnd);
1354                 break;
1355         case Editing::SnapToRegionBoundary:
1356                 set_snap_to (Editing::SnapToRegionSync);
1357                 break;
1358         }
1359 }
1360
1361 void
1362 Editor::next_snap_choice_music_only ()
1363 {
1364         switch (_snap_type) {
1365         case Editing::SnapToMark:
1366         case Editing::SnapToRegionStart:
1367         case Editing::SnapToRegionEnd:
1368         case Editing::SnapToRegionSync:
1369         case Editing::SnapToRegionBoundary:
1370         case Editing::SnapToCDFrame:
1371         case Editing::SnapToTimecodeFrame:
1372         case Editing::SnapToTimecodeSeconds:
1373         case Editing::SnapToTimecodeMinutes:
1374         case Editing::SnapToSeconds:
1375         case Editing::SnapToMinutes:
1376                 set_snap_to (Editing::SnapToBeatDiv128);
1377                 break;
1378         case Editing::SnapToBeatDiv128:
1379                 set_snap_to (Editing::SnapToBeatDiv64);
1380                 break;
1381         case Editing::SnapToBeatDiv64:
1382                 set_snap_to (Editing::SnapToBeatDiv32);
1383                 break;
1384         case Editing::SnapToBeatDiv32:
1385                 set_snap_to (Editing::SnapToBeatDiv28);
1386                 break;
1387         case Editing::SnapToBeatDiv28:
1388                 set_snap_to (Editing::SnapToBeatDiv24);
1389                 break;
1390         case Editing::SnapToBeatDiv24:
1391                 set_snap_to (Editing::SnapToBeatDiv20);
1392                 break;
1393         case Editing::SnapToBeatDiv20:
1394                 set_snap_to (Editing::SnapToBeatDiv16);
1395                 break;
1396         case Editing::SnapToBeatDiv16:
1397                 set_snap_to (Editing::SnapToBeatDiv14);
1398                 break;
1399         case Editing::SnapToBeatDiv14:
1400                 set_snap_to (Editing::SnapToBeatDiv12);
1401                 break;
1402         case Editing::SnapToBeatDiv12:
1403                 set_snap_to (Editing::SnapToBeatDiv10);
1404                 break;
1405         case Editing::SnapToBeatDiv10:
1406                 set_snap_to (Editing::SnapToBeatDiv8);
1407                 break;
1408         case Editing::SnapToBeatDiv8:
1409                 set_snap_to (Editing::SnapToBeatDiv7);
1410                 break;
1411         case Editing::SnapToBeatDiv7:
1412                 set_snap_to (Editing::SnapToBeatDiv6);
1413                 break;
1414         case Editing::SnapToBeatDiv6:
1415                 set_snap_to (Editing::SnapToBeatDiv5);
1416                 break;
1417         case Editing::SnapToBeatDiv5:
1418                 set_snap_to (Editing::SnapToBeatDiv4);
1419                 break;
1420         case Editing::SnapToBeatDiv4:
1421                 set_snap_to (Editing::SnapToBeatDiv3);
1422                 break;
1423         case Editing::SnapToBeatDiv3:
1424                 set_snap_to (Editing::SnapToBeatDiv2);
1425                 break;
1426         case Editing::SnapToBeatDiv2:
1427                 set_snap_to (Editing::SnapToBeat);
1428                 break;
1429         case Editing::SnapToBeat:
1430                 set_snap_to (Editing::SnapToBar);
1431                 break;
1432         case Editing::SnapToBar:
1433                 set_snap_to (Editing::SnapToBeatDiv128);
1434                 break;
1435         }
1436 }
1437
1438 void
1439 Editor::prev_snap_choice_music_only ()
1440 {
1441         switch (_snap_type) {
1442         case Editing::SnapToMark:
1443         case Editing::SnapToRegionStart:
1444         case Editing::SnapToRegionEnd:
1445         case Editing::SnapToRegionSync:
1446         case Editing::SnapToRegionBoundary:
1447         case Editing::SnapToCDFrame:
1448         case Editing::SnapToTimecodeFrame:
1449         case Editing::SnapToTimecodeSeconds:
1450         case Editing::SnapToTimecodeMinutes:
1451         case Editing::SnapToSeconds:
1452         case Editing::SnapToMinutes:
1453                 set_snap_to (Editing::SnapToBar);
1454                 break;
1455         case Editing::SnapToBeatDiv128:
1456                 set_snap_to (Editing::SnapToBeat);
1457                 break;
1458         case Editing::SnapToBeatDiv64:
1459                 set_snap_to (Editing::SnapToBeatDiv128);
1460                 break;
1461         case Editing::SnapToBeatDiv32:
1462                 set_snap_to (Editing::SnapToBeatDiv64);
1463                 break;
1464         case Editing::SnapToBeatDiv28:
1465                 set_snap_to (Editing::SnapToBeatDiv32);
1466                 break;
1467         case Editing::SnapToBeatDiv24:
1468                 set_snap_to (Editing::SnapToBeatDiv28);
1469                 break;
1470         case Editing::SnapToBeatDiv20:
1471                 set_snap_to (Editing::SnapToBeatDiv24);
1472                 break;
1473         case Editing::SnapToBeatDiv16:
1474                 set_snap_to (Editing::SnapToBeatDiv20);
1475                 break;
1476         case Editing::SnapToBeatDiv14:
1477                 set_snap_to (Editing::SnapToBeatDiv16);
1478                 break;
1479         case Editing::SnapToBeatDiv12:
1480                 set_snap_to (Editing::SnapToBeatDiv14);
1481                 break;
1482         case Editing::SnapToBeatDiv10:
1483                 set_snap_to (Editing::SnapToBeatDiv12);
1484                 break;
1485         case Editing::SnapToBeatDiv8:
1486                 set_snap_to (Editing::SnapToBeatDiv10);
1487                 break;
1488         case Editing::SnapToBeatDiv7:
1489                 set_snap_to (Editing::SnapToBeatDiv8);
1490                 break;
1491         case Editing::SnapToBeatDiv6:
1492                 set_snap_to (Editing::SnapToBeatDiv7);
1493                 break;
1494         case Editing::SnapToBeatDiv5:
1495                 set_snap_to (Editing::SnapToBeatDiv6);
1496                 break;
1497         case Editing::SnapToBeatDiv4:
1498                 set_snap_to (Editing::SnapToBeatDiv5);
1499                 break;
1500         case Editing::SnapToBeatDiv3:
1501                 set_snap_to (Editing::SnapToBeatDiv4);
1502                 break;
1503         case Editing::SnapToBeatDiv2:
1504                 set_snap_to (Editing::SnapToBeatDiv3);
1505                 break;
1506         case Editing::SnapToBeat:
1507                 set_snap_to (Editing::SnapToBeatDiv2);
1508                 break;
1509         case Editing::SnapToBar:
1510                 set_snap_to (Editing::SnapToBeat);
1511                 break;
1512         }
1513 }
1514
1515 void
1516 Editor::snap_type_chosen (SnapType type)
1517 {
1518         /* this is driven by a toggle on a radio group, and so is invoked twice,
1519            once for the item that became inactive and once for the one that became
1520            active.
1521         */
1522
1523         RefPtr<RadioAction> ract = snap_type_action (type);
1524
1525         if (ract && ract->get_active()) {
1526                 set_snap_to (type);
1527         }
1528 }
1529
1530 RefPtr<RadioAction>
1531 Editor::snap_mode_action (SnapMode mode)
1532 {
1533         const char* action = 0;
1534         RefPtr<Action> act;
1535
1536         switch (mode) {
1537         case Editing::SnapOff:
1538                 action = X_("snap-off");
1539                 break;
1540         case Editing::SnapNormal:
1541                 action = X_("snap-normal");
1542                 break;
1543         case Editing::SnapMagnetic:
1544                 action = X_("snap-magnetic");
1545                 break;
1546         default:
1547                 fatal << string_compose (_("programming error: %1: %2"), "Editor: impossible snap mode type", (int) mode) << endmsg;
1548                 abort(); /*NOTREACHED*/
1549         }
1550
1551         act = ActionManager::get_action (X_("Editor"), action);
1552
1553         if (act) {
1554                 RefPtr<RadioAction> ract = RefPtr<RadioAction>::cast_dynamic(act);
1555                 return ract;
1556
1557         } else  {
1558                 error << string_compose (_("programming error: %1: %2"), "Editor::snap_mode_chosen could not find action to match mode.", action) << endmsg;
1559                 return RefPtr<RadioAction> ();
1560         }
1561 }
1562
1563 void
1564 Editor::cycle_snap_mode ()
1565 {
1566         switch (_snap_mode) {
1567         case SnapOff:
1568                 set_snap_mode (SnapNormal);
1569                 break;
1570         case SnapNormal:
1571                 set_snap_mode (SnapMagnetic);
1572                 break;
1573         case SnapMagnetic:
1574                 set_snap_mode (SnapOff);
1575                 break;
1576         }
1577 }
1578
1579 void
1580 Editor::snap_mode_chosen (SnapMode mode)
1581 {
1582         /* this is driven by a toggle on a radio group, and so is invoked twice,
1583            once for the item that became inactive and once for the one that became
1584            active.
1585         */
1586
1587         RefPtr<RadioAction> ract = snap_mode_action (mode);
1588
1589         if (ract && ract->get_active()) {
1590                 set_snap_mode (mode);
1591         }
1592 }
1593
1594 RefPtr<RadioAction>
1595 Editor::edit_point_action (EditPoint ep)
1596 {
1597         const char* action = 0;
1598         RefPtr<Action> act;
1599
1600         switch (ep) {
1601         case Editing::EditAtPlayhead:
1602                 action = X_("edit-at-playhead");
1603                 break;
1604         case Editing::EditAtSelectedMarker:
1605                 action = X_("edit-at-selected-marker");
1606                 break;
1607         case Editing::EditAtMouse:
1608                 action = X_("edit-at-mouse");
1609                 break;
1610         default:
1611                 fatal << string_compose (_("programming error: %1: %2"), "Editor: impossible edit point type", (int) ep) << endmsg;
1612                 abort(); /*NOTREACHED*/
1613         }
1614
1615         act = ActionManager::get_action (X_("Editor"), action);
1616
1617         if (act) {
1618                 RefPtr<RadioAction> ract = RefPtr<RadioAction>::cast_dynamic(act);
1619                 return ract;
1620
1621         } else  {
1622                 error << string_compose (_("programming error: %1: %2"), "Editor::edit_point_action could not find action to match edit point.", action) << endmsg;
1623                 return RefPtr<RadioAction> ();
1624         }
1625 }
1626
1627 void
1628 Editor::edit_point_chosen (EditPoint ep)
1629 {
1630         /* this is driven by a toggle on a radio group, and so is invoked twice,
1631            once for the item that became inactive and once for the one that became
1632            active.
1633         */
1634
1635         RefPtr<RadioAction> ract = edit_point_action (ep);
1636
1637         if (ract && ract->get_active()) {
1638                 set_edit_point_preference (ep);
1639         }
1640 }
1641
1642
1643 RefPtr<RadioAction>
1644 Editor::zoom_focus_action (ZoomFocus focus)
1645 {
1646         const char* action = 0;
1647         RefPtr<Action> act;
1648
1649         switch (focus) {
1650         case ZoomFocusLeft:
1651                 action = X_("zoom-focus-left");
1652                 break;
1653         case ZoomFocusRight:
1654                 action = X_("zoom-focus-right");
1655                 break;
1656         case ZoomFocusCenter:
1657                 action = X_("zoom-focus-center");
1658                 break;
1659         case ZoomFocusPlayhead:
1660                 action = X_("zoom-focus-playhead");
1661                 break;
1662         case ZoomFocusMouse:
1663                 action = X_("zoom-focus-mouse");
1664                 break;
1665         case ZoomFocusEdit:
1666                 action = X_("zoom-focus-edit");
1667                 break;
1668         default:
1669                 fatal << string_compose (_("programming error: %1: %2"), "Editor: impossible focus type", (int) focus) << endmsg;
1670                 abort(); /*NOTREACHED*/
1671         }
1672
1673         act = ActionManager::get_action (X_("Zoom"), action);
1674
1675         if (act) {
1676                 RefPtr<RadioAction> ract = RefPtr<RadioAction>::cast_dynamic(act);
1677                 return ract;
1678         } else {
1679                 error << string_compose (_("programming error: %1: %2"), "Editor::zoom_focus_action could not find action to match focus.", action) << endmsg;
1680         }
1681
1682         return RefPtr<RadioAction> ();
1683 }
1684
1685 void
1686 Editor::toggle_sound_midi_notes ()
1687 {
1688         Glib::RefPtr<Action> act = ActionManager::get_action (X_("Editor"), X_("sound-midi-notes"));
1689
1690         if (act) {
1691                 bool s = UIConfiguration::instance().get_sound_midi_notes();
1692                 Glib::RefPtr<ToggleAction> tact = Glib::RefPtr<ToggleAction>::cast_dynamic (act);
1693                 if (tact->get_active () != s) {
1694                         UIConfiguration::instance().set_sound_midi_notes (tact->get_active());
1695                 }
1696         }
1697 }
1698
1699 void
1700 Editor::zoom_focus_chosen (ZoomFocus focus)
1701 {
1702         /* this is driven by a toggle on a radio group, and so is invoked twice,
1703            once for the item that became inactive and once for the one that became
1704            active.
1705         */
1706
1707         RefPtr<RadioAction> ract = zoom_focus_action (focus);
1708
1709         if (ract && ract->get_active()) {
1710                 set_zoom_focus (focus);
1711         }
1712 }
1713
1714 /** A Configuration parameter has changed.
1715  * @param parameter_name Name of the changed parameter.
1716  */
1717 void
1718 Editor::parameter_changed (std::string p)
1719 {
1720         ENSURE_GUI_THREAD (*this, &Editor::parameter_changed, p)
1721
1722         if (p == "auto-loop") {
1723                 update_loop_range_view ();
1724         } else if (p == "punch-in") {
1725                 update_punch_range_view ();
1726         } else if (p == "punch-out") {
1727                 update_punch_range_view ();
1728         } else if (p == "timecode-format") {
1729                 update_just_timecode ();
1730         } else if (p == "show-region-fades") {
1731                 update_region_fade_visibility ();
1732         } else if (p == "edit-mode") {
1733                 edit_mode_selector.set_text (edit_mode_to_string (Config->get_edit_mode()));
1734         } else if (p == "show-track-meters") {
1735                 toggle_meter_updating();
1736         } else if (p == "show-summary") {
1737
1738                 bool const s = _session->config.get_show_summary ();
1739                 if (s) {
1740                         _summary_hbox.show ();
1741                 } else {
1742                         _summary_hbox.hide ();
1743                 }
1744
1745                 Glib::RefPtr<Action> act = ActionManager::get_action (X_("Editor"), X_("ToggleSummary"));
1746                 if (act) {
1747                         Glib::RefPtr<ToggleAction> tact = Glib::RefPtr<ToggleAction>::cast_dynamic (act);
1748                         if (tact->get_active () != s) {
1749                                 tact->set_active (s);
1750                         }
1751                 }
1752         } else if (p == "show-group-tabs") {
1753
1754                 bool const s = _session->config.get_show_group_tabs ();
1755                 if (s) {
1756                         _group_tabs->show ();
1757                 } else {
1758                         _group_tabs->hide ();
1759                 }
1760
1761                 reset_controls_layout_width ();
1762
1763                 Glib::RefPtr<Action> act = ActionManager::get_action (X_("Editor"), X_("ToggleGroupTabs"));
1764                 if (act) {
1765                         Glib::RefPtr<ToggleAction> tact = Glib::RefPtr<ToggleAction>::cast_dynamic (act);
1766                         if (tact->get_active () != s) {
1767                                 tact->set_active (s);
1768                         }
1769                 }
1770         } else if (p == "timecode-offset" || p == "timecode-offset-negative") {
1771                 update_just_timecode ();
1772         } else if (p == "sound-midi-notes") {
1773                 Glib::RefPtr<Action> act = ActionManager::get_action (X_("Editor"), X_("sound-midi-notes"));
1774
1775                 if (act) {
1776                         bool s = UIConfiguration::instance().get_sound_midi_notes();
1777                         Glib::RefPtr<ToggleAction> tact = Glib::RefPtr<ToggleAction>::cast_dynamic (act);
1778                         if (tact->get_active () != s) {
1779                                 tact->set_active (s);
1780                         }
1781                 }
1782         } else if (p == "show-region-gain") {
1783                 set_gain_envelope_visibility ();
1784         } else if (p == "skip-playback") {
1785                 Glib::RefPtr<Action> act = ActionManager::get_action (X_("Editor"), X_("toggle-skip-playback"));
1786
1787                 if (act) {
1788                         bool s = Config->get_skip_playback ();
1789                         Glib::RefPtr<ToggleAction> tact = Glib::RefPtr<ToggleAction>::cast_dynamic (act);
1790                         if (tact->get_active () != s) {
1791                                 tact->set_active (s);
1792                         }
1793                 }
1794         }
1795 }
1796
1797 void
1798 Editor::reset_canvas_action_sensitivity (bool onoff)
1799 {
1800         if (_edit_point != EditAtMouse) {
1801                 onoff = true;
1802         }
1803
1804         for (vector<Glib::RefPtr<Action> >::iterator x = ActionManager::mouse_edit_point_requires_canvas_actions.begin();
1805              x != ActionManager::mouse_edit_point_requires_canvas_actions.end(); ++x) {
1806                 (*x)->set_sensitive (onoff);
1807         }
1808 }
1809
1810 void
1811 Editor::register_region_actions ()
1812 {
1813         _region_actions = myactions.create_action_group (X_("Region"));
1814
1815         /* PART 1: actions that operate on the selection, and for which the edit point type and location is irrelevant */
1816
1817         /* Remove selected regions */
1818         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "remove-region", _("Remove"), sigc::mem_fun (*this, &Editor::remove_selected_regions));
1819
1820         /* Offer dialogue box to rename the first selected region */
1821         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "rename-region", _("Rename..."), sigc::mem_fun (*this, &Editor::rename_region));
1822
1823         /* Raise all selected regions by 1 layer */
1824         register_region_action (_region_actions, RegionActionTarget (SelectedRegions), "raise-region", _("Raise"), sigc::mem_fun (*this, &Editor::raise_region));
1825
1826         /* Raise all selected regions to the top */
1827         register_region_action (_region_actions, RegionActionTarget (SelectedRegions), "raise-region-to-top", _("Raise to Top"), sigc::mem_fun (*this, &Editor::raise_region_to_top));
1828
1829         /* Lower all selected regions by 1 layer */
1830         register_region_action (_region_actions, RegionActionTarget (SelectedRegions), "lower-region", _("Lower"), sigc::mem_fun (*this, &Editor::lower_region));
1831
1832         /* Lower all selected regions to the bottom */
1833         register_region_action (_region_actions, RegionActionTarget (SelectedRegions), "lower-region-to-bottom", _("Lower to Bottom"), sigc::mem_fun (*this, &Editor::lower_region_to_bottom));
1834
1835         /* Move selected regions to their original (`natural') position */
1836         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "naturalize-region", _("Move to Original Position"), sigc::mem_fun (*this, &Editor::naturalize_region));
1837
1838         /* Toggle `locked' status of selected regions */
1839         register_toggle_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "toggle-region-lock", _("Lock"), sigc::mem_fun(*this, &Editor::toggle_region_lock));
1840         register_toggle_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "toggle-region-video-lock", _("Lock to Video"), sigc::mem_fun(*this, &Editor::toggle_region_video_lock));
1841         register_toggle_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "toggle-region-lock-style", _("Glue to Bars and Beats"), sigc::mem_fun (*this, &Editor::toggle_region_lock_style));
1842
1843         /* Remove sync points from selected regions */
1844         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "remove-region-sync", _("Remove Sync"), sigc::mem_fun(*this, &Editor::remove_region_sync));
1845
1846         /* Mute or unmute selected regions */
1847         register_toggle_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "toggle-region-mute", _("Mute"), sigc::mem_fun(*this, &Editor::toggle_region_mute));
1848
1849         /* Open the normalize dialogue to operate on the selected regions */
1850         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "normalize-region", _("Normalize..."), sigc::mem_fun(*this, &Editor::normalize_region));
1851
1852         /* Reverse selected regions */
1853         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "reverse-region", _("Reverse"), sigc::mem_fun (*this, &Editor::reverse_region));
1854
1855         /* Split selected multi-channel regions into mono regions */
1856         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "split-multichannel-region", _("Make Mono Regions"), sigc::mem_fun (*this, &Editor::split_multichannel_region));
1857
1858         /* Boost selected region gain */
1859         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "boost-region-gain", _("Boost Gain"), sigc::bind (sigc::mem_fun(*this, &Editor::adjust_region_gain), true));
1860
1861         /* Cut selected region gain */
1862         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "cut-region-gain", _("Cut Gain"), sigc::bind (sigc::mem_fun(*this, &Editor::adjust_region_gain), false));
1863
1864         /* Reset selected region gain */
1865         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "reset-region-gain", _("Reset Gain"), sigc::mem_fun(*this, &Editor::reset_region_gain));
1866
1867         /* Open the pitch shift dialogue for any selected audio regions */
1868         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "pitch-shift-region", _("Pitch Shift..."), sigc::mem_fun (*this, &Editor::pitch_shift_region));
1869
1870         /* Open the transpose dialogue for any selected MIDI regions */
1871         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "transpose-region", _("Transpose..."), sigc::mem_fun (*this, &Editor::transpose_region));
1872
1873         /* Toggle selected region opacity */
1874         register_toggle_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "toggle-opaque-region", _("Opaque"), sigc::mem_fun (*this, &Editor::toggle_opaque_region));
1875
1876         /* Toggle active status of selected regions' fade in */
1877         register_toggle_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "toggle-region-fade-in", _("Fade In"), sigc::bind (sigc::mem_fun (*this, &Editor::toggle_region_fades), 1));
1878
1879         /* Toggle active status of selected regions' fade out */
1880         register_toggle_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "toggle-region-fade-out", _("Fade Out"), sigc::bind (sigc::mem_fun(*this, &Editor::toggle_region_fades), -1));
1881
1882         /* Toggle active status of selected regions' fade in and out */
1883         register_toggle_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "toggle-region-fades", _("Fades"), sigc::bind (sigc::mem_fun(*this, &Editor::toggle_region_fades), 0));
1884
1885         /* Duplicate selected regions */
1886         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "duplicate-region", _("Duplicate"), sigc::bind (sigc::mem_fun (*this, &Editor::duplicate_regions), 1));
1887
1888         /* Open the dialogue to duplicate selected regions multiple times */
1889         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "multi-duplicate-region", _("Multi-Duplicate..."), sigc::bind (sigc::mem_fun(*this, &Editor::duplicate_range), true));
1890
1891         /* Fill tracks with selected regions */
1892         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "region-fill-track", _("Fill Track"), sigc::mem_fun (*this, &Editor::region_fill_track));
1893
1894         /* Set up the loop range from the selected regions */
1895         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "set-loop-from-region", _("Set Loop Range"), sigc::bind (sigc::mem_fun (*this, &Editor::set_loop_from_region), false));
1896
1897         /* Set up the loop range from the selected regions, and start playback of it */
1898         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "loop-region", _("Loop"), sigc::bind  (sigc::mem_fun(*this, &Editor::set_loop_from_region), true));
1899
1900         /* Set the punch range from the selected regions */
1901         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "set-punch-from-region", _("Set Punch"), sigc::mem_fun (*this, &Editor::set_punch_from_region));
1902
1903         /* Add a single range marker around all selected regions */
1904         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "add-range-marker-from-region", _("Add Single Range Marker"), sigc::mem_fun (*this, &Editor::add_location_from_region));
1905
1906         /* Add a range marker around each selected region */
1907         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "add-range-markers-from-region", _("Add Range Marker Per Region"), sigc::mem_fun (*this, &Editor::add_locations_from_region));
1908
1909         /* Snap selected regions to the grid */
1910         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "snap-regions-to-grid", _("Snap Position to Grid"), sigc::mem_fun (*this, &Editor::snap_regions_to_grid));
1911
1912         /* Close gaps in selected regions */
1913         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "close-region-gaps", _("Close Gaps"), sigc::mem_fun (*this, &Editor::close_region_gaps));
1914
1915         /* Open the Rhythm Ferret dialogue for the selected regions */
1916         register_region_action (_region_actions, RegionActionTarget (SelectedRegions), "show-rhythm-ferret", _("Rhythm Ferret..."), sigc::mem_fun (*this, &Editor::show_rhythm_ferret));
1917
1918         /* Export the first selected region */
1919         register_region_action (_region_actions, RegionActionTarget (SelectedRegions), "export-region", _("Export..."), sigc::mem_fun (*this, &Editor::export_region));
1920
1921         /* Separate under selected regions: XXX not sure what this does */
1922         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "separate-under-region", _("Separate Under"), sigc::mem_fun (*this, &Editor::separate_under_selected_regions));
1923
1924         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "set-fade-in-length", _("Set Fade In Length"), sigc::bind (sigc::mem_fun (*this, &Editor::set_fade_length), true));
1925         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "alternate-set-fade-in-length", _("Set Fade In Length"), sigc::bind (sigc::mem_fun (*this, &Editor::set_fade_length), true));
1926         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "set-fade-out-length", _("Set Fade Out Length"), sigc::bind (sigc::mem_fun (*this, &Editor::set_fade_length), false));
1927         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "alternate-set-fade-out-length", _("Set Fade Out Length"), sigc::bind (sigc::mem_fun (*this, &Editor::set_fade_length), false));
1928
1929         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "set-tempo-from-region", _("Set Tempo from Region = Bar"), sigc::mem_fun (*this, &Editor::set_tempo_from_region));
1930
1931         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "split-region-at-transients", _("Split at Percussion Onsets"), sigc::mem_fun(*this, &Editor::split_region_at_transients));
1932
1933         /* Open the list editor dialogue for the selected regions */
1934         register_region_action (_region_actions, RegionActionTarget (SelectedRegions), "show-region-list-editor", _("List Editor..."), sigc::mem_fun (*this, &Editor::show_midi_list_editor));
1935
1936         /* Open the region properties dialogue for the selected regions */
1937         register_region_action (_region_actions, RegionActionTarget (SelectedRegions), "show-region-properties", _("Properties..."), sigc::mem_fun (*this, &Editor::show_region_properties));
1938
1939         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "play-selected-regions", _("Play selected Regions"), sigc::mem_fun(*this, &Editor::play_selected_region));
1940
1941         register_region_action (_region_actions, RegionActionTarget (SelectedRegions), "bounce-regions-processed", _("Bounce (with processing)"), (sigc::bind (sigc::mem_fun (*this, &Editor::bounce_region_selection), true)));
1942         register_region_action (_region_actions, RegionActionTarget (SelectedRegions), "bounce-regions-unprocessed", _("Bounce (without processing)"), (sigc::bind (sigc::mem_fun (*this, &Editor::bounce_region_selection), false)));
1943         register_region_action (_region_actions, RegionActionTarget (SelectedRegions), "combine-regions", _("Combine"), sigc::mem_fun (*this, &Editor::combine_regions));
1944         register_region_action (_region_actions, RegionActionTarget (SelectedRegions), "uncombine-regions", _("Uncombine"), sigc::mem_fun (*this, &Editor::uncombine_regions));
1945
1946         register_region_action (_region_actions, RegionActionTarget (SelectedRegions), "loudness-analyze-region", _("Loudness Analysis..."), sigc::mem_fun (*this, &Editor::loudness_analyze_region_selection));
1947         register_region_action (_region_actions, RegionActionTarget (SelectedRegions), "spectral-analyze-region", _("Spectral Analysis..."), sigc::mem_fun (*this, &Editor::spectral_analyze_region_selection));
1948
1949         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "reset-region-gain-envelopes", _("Reset Envelope"), sigc::mem_fun (*this, &Editor::reset_region_gain_envelopes));
1950         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "reset-region-scale-amplitude", _("Reset Gain"), sigc::mem_fun (*this, &Editor::reset_region_scale_amplitude));
1951
1952         register_toggle_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "toggle-region-gain-envelope-active", _("Envelope Active"), sigc::mem_fun (*this, &Editor::toggle_gain_envelope_active));
1953
1954         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "quantize-region", _("Quantize..."), sigc::mem_fun (*this, &Editor::quantize_region));
1955         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "legatize-region", _("Legatize"), sigc::bind(sigc::mem_fun (*this, &Editor::legatize_region), false));
1956         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "transform-region", _("Transform..."), sigc::mem_fun (*this, &Editor::transform_region));
1957         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "remove-overlap", _("Remove Overlap"), sigc::bind(sigc::mem_fun (*this, &Editor::legatize_region), true));
1958         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "insert-patch-change", _("Insert Patch Change..."), sigc::bind (sigc::mem_fun (*this, &Editor::insert_patch_change), false));
1959         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "insert-patch-change-context", _("Insert Patch Change..."), sigc::bind (sigc::mem_fun (*this, &Editor::insert_patch_change), true));
1960         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "fork-region", _("Unlink from other copies"), sigc::mem_fun (*this, &Editor::fork_region));
1961         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "strip-region-silence", _("Strip Silence..."), sigc::mem_fun (*this, &Editor::strip_region_silence));
1962         register_region_action (_region_actions, RegionActionTarget (SelectedRegions), "set-selection-from-region", _("Set Range Selection"), sigc::mem_fun (*this, &Editor::set_selection_from_region));
1963
1964         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "nudge-forward", _("Nudge Later"), sigc::bind (sigc::mem_fun (*this, &Editor::nudge_forward), false, false));
1965         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "alternate-nudge-forward", _("Nudge Later"), sigc::bind (sigc::mem_fun (*this, &Editor::nudge_forward), false, false));
1966         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "nudge-backward", _("Nudge Earlier"), sigc::bind (sigc::mem_fun (*this, &Editor::nudge_backward), false, false));
1967         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "alternate-nudge-backward", _("Nudge Earlier"), sigc::bind (sigc::mem_fun (*this, &Editor::nudge_backward), false, false));
1968
1969         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "sequence-regions", _("Sequence Regions"), sigc::mem_fun (*this, &Editor::sequence_regions));
1970
1971         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "nudge-forward-by-capture-offset", _("Nudge Later by Capture Offset"), sigc::mem_fun (*this, &Editor::nudge_forward_capture_offset));
1972
1973         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "nudge-backward-by-capture-offset", _("Nudge Earlier by Capture Offset"), sigc::mem_fun (*this, &Editor::nudge_backward_capture_offset));
1974
1975         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "trim-region-to-loop", _("Trim to Loop"), sigc::mem_fun (*this, &Editor::trim_region_to_loop));
1976         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "trim-region-to-punch", _("Trim to Punch"), sigc::mem_fun (*this, &Editor::trim_region_to_punch));
1977
1978         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "trim-to-previous-region", _("Trim to Previous"), sigc::mem_fun(*this, &Editor::trim_region_to_previous_region_end));
1979         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EnteredRegions), "trim-to-next-region", _("Trim to Next"), sigc::mem_fun(*this, &Editor::trim_region_to_next_region_start));
1980
1981         /* PART 2: actions that are not related to the selection, but for which the edit point type and location is important */
1982
1983         register_region_action (_region_actions, RegionActionTarget (ListSelection), "insert-region-from-region-list", _("Insert Region from Region List"), sigc::bind (sigc::mem_fun (*this, &Editor::insert_region_list_selection), 1));
1984
1985         /* PART 3: actions that operate on the selection and also require the edit point location */
1986
1987         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EditPointRegions), "set-region-sync-position", _("Set Sync Position"), sigc::mem_fun (*this, &Editor::set_region_sync_position));
1988         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EditPointRegions), "place-transient", _("Place Transient"), sigc::mem_fun (*this, &Editor::place_transient));
1989         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EditPointRegions), "trim-front", _("Trim Start at Edit Point"), sigc::mem_fun (*this, &Editor::trim_region_front));
1990         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EditPointRegions), "trim-back", _("Trim End at Edit Point"), sigc::mem_fun (*this, &Editor::trim_region_back));
1991         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EditPointRegions), "align-regions-start", _("Align Start"), sigc::bind (sigc::mem_fun(*this, &Editor::align_regions), ARDOUR::Start));
1992         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EditPointRegions), "align-regions-start-relative", _("Align Start Relative"), sigc::bind (sigc::mem_fun (*this, &Editor::align_regions_relative), ARDOUR::Start));
1993         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EditPointRegions), "align-regions-end", _("Align End"), sigc::bind (sigc::mem_fun (*this, &Editor::align_regions), ARDOUR::End));
1994         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EditPointRegions), "align-regions-end-relative", _("Align End Relative"), sigc::bind (sigc::mem_fun(*this, &Editor::align_regions_relative), ARDOUR::End));
1995         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EditPointRegions), "align-regions-sync", _("Align Sync"), sigc::bind (sigc::mem_fun(*this, &Editor::align_regions), ARDOUR::SyncPoint));
1996         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EditPointRegions), "align-regions-sync-relative", _("Align Sync Relative"), sigc::bind (sigc::mem_fun (*this, &Editor::align_regions_relative), ARDOUR::SyncPoint));
1997         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EditPointRegions), "choose-top-region", _("Choose Top..."), sigc::bind (sigc::mem_fun (*this, &Editor::change_region_layering_order), false));
1998         register_region_action (_region_actions, RegionActionTarget (SelectedRegions|EditPointRegions), "choose-top-region-context-menu", _("Choose Top..."), sigc::bind (sigc::mem_fun (*this, &Editor::change_region_layering_order), true));
1999
2000         /* desensitize them all by default. region selection will change this */
2001         sensitize_all_region_actions (false);
2002 }