a boatload of minor and middle-sized changes to try to speed up undo. imperfect,...
[ardour.git] / gtk2_ardour / ardour_ui2.cc
1 /*
2     Copyright (C) 1999 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 <fcntl.h>
21 #include <signal.h>
22 #include <unistd.h>
23 #include <cerrno>
24 #include <iostream>
25 #include <cmath>
26
27 #include <sigc++/bind.h>
28 #include "pbd/error.h"
29 #include "pbd/basename.h"
30 #include "pbd/fastlog.h"
31 #include <gtkmm2ext/utils.h>
32 #include <gtkmm2ext/click_box.h>
33 #include <gtkmm2ext/tearoff.h>
34
35 #include "ardour/session.h"
36 #include "ardour/audioengine.h"
37 #include "ardour/ardour.h"
38 #include "ardour/profile.h"
39 #include "ardour/route.h"
40
41 #include "ardour_ui.h"
42 #include "keyboard.h"
43 #include "public_editor.h"
44 #include "audio_clock.h"
45 #include "actions.h"
46 #include "utils.h"
47 #include "theme_manager.h"
48
49 #include "i18n.h"
50
51 using namespace std;
52 using namespace ARDOUR;
53 using namespace PBD;
54 using namespace Gtkmm2ext;
55 using namespace Gtk;
56 using namespace Glib;
57
58 int
59 ARDOUR_UI::setup_windows ()
60 {
61         if (create_editor ()) {
62                 error << _("UI: cannot setup editor") << endmsg;
63                 return -1;
64         }
65
66         if (create_mixer ()) {
67                 error << _("UI: cannot setup mixer") << endmsg;
68                 return -1;
69         }
70
71         /* all other dialogs are created conditionally */
72
73         we_have_dependents ();
74
75         setup_clock ();
76         setup_transport();
77         build_menu_bar ();
78
79         theme_manager->signal_unmap().connect (sigc::bind (sigc::ptr_fun(&ActionManager::uncheck_toggleaction), X_("<Actions>/Common/ToggleThemeManager")));
80
81 #ifdef TOP_MENUBAR
82         HBox* status_bar_packer = manage (new HBox);
83
84         status_bar_label.set_size_request (300, -1);
85         status_bar_packer->pack_start (status_bar_label, true, true, 6);
86         status_bar_packer->pack_start (error_log_button, false, false);
87
88         error_log_button.signal_clicked().connect (sigc::mem_fun (*this, &UI::toggle_errors));
89
90         editor->get_status_bar_packer().pack_start (*status_bar_packer, true, true);
91         editor->get_status_bar_packer().pack_start (menu_bar_base, false, false, 6);
92 #else
93         top_packer.pack_start (menu_bar_base, false, false);
94 #endif
95
96         top_packer.pack_start (transport_frame, false, false);
97
98         editor->add_toplevel_controls (top_packer);
99
100         return 0;
101 }
102
103 void
104 ARDOUR_UI::display_message (const char *prefix, gint prefix_len, RefPtr<TextBuffer::Tag> ptag, RefPtr<TextBuffer::Tag> mtag, const char *msg)
105 {
106         ustring text;
107
108         UI::display_message (prefix, prefix_len, ptag, mtag, msg);
109 #ifdef TOP_MENUBAR
110
111         if (strcmp (prefix, _("[ERROR]: ")) == 0) {
112                 text = "<span color=\"red\" weight=\"bold\">";
113         } else if (strcmp (prefix, _("[WARNING]: ")) == 0) {
114                 text = "<span color=\"yellow\" weight=\"bold\">";
115         } else if (strcmp (prefix, _("[INFO]: ")) == 0) {
116                 text = "<span color=\"green\" weight=\"bold\">";
117         } else {
118                 text = "<span color=\"white\" weight=\"bold\">???";
119         }
120
121         text += prefix;
122         text += "</span>";
123         text += msg;
124
125         status_bar_label.set_markup (text);
126 #endif
127 }
128
129 #if 0
130 static bool
131 null_crossing (GdkEventCrossing* /* ignored */)
132 {
133         return true;
134 }
135
136 static void
137 block_prelight (Gtk::Widget& w)
138 {
139         w.signal_enter_notify_event().connect (sigc::ptr_fun (null_crossing), false);
140         w.signal_leave_notify_event().connect (sigc::ptr_fun (null_crossing), false);
141 }
142 #endif
143
144 void
145 ARDOUR_UI::setup_transport ()
146 {
147         transport_tearoff = manage (new TearOff (transport_tearoff_hbox));
148         transport_tearoff->set_name ("TransportBase");
149         transport_tearoff->tearoff_window().signal_key_press_event().connect (sigc::bind (sigc::ptr_fun (relay_key_press), &transport_tearoff->tearoff_window()), false);
150
151         if (Profile->get_sae()) {
152                 transport_tearoff->set_can_be_torn_off (false);
153         }
154
155         transport_hbox.pack_start (*transport_tearoff, true, false);
156
157         transport_base.set_name ("TransportBase");
158         transport_base.add (transport_hbox);
159
160         transport_frame.set_shadow_type (SHADOW_OUT);
161         transport_frame.set_name ("BaseFrame");
162         transport_frame.add (transport_base);
163
164         transport_tearoff->Detach.connect (sigc::bind (sigc::mem_fun(*this, &ARDOUR_UI::detach_tearoff), static_cast<Box*>(&top_packer),
165                                                  static_cast<Widget*>(&transport_frame)));
166         transport_tearoff->Attach.connect (sigc::bind (sigc::mem_fun(*this, &ARDOUR_UI::reattach_tearoff), static_cast<Box*> (&top_packer),
167                                                  static_cast<Widget*> (&transport_frame), 1));
168         transport_tearoff->Hidden.connect (sigc::bind (sigc::mem_fun(*this, &ARDOUR_UI::detach_tearoff), static_cast<Box*>(&top_packer),
169                                                  static_cast<Widget*>(&transport_frame)));
170         transport_tearoff->Visible.connect (sigc::bind (sigc::mem_fun(*this, &ARDOUR_UI::reattach_tearoff), static_cast<Box*> (&top_packer),
171                                                   static_cast<Widget*> (&transport_frame), 1));
172
173         shuttle_box.set_name ("TransportButton");
174         goto_start_button.set_name ("TransportButton");
175         goto_end_button.set_name ("TransportButton");
176         roll_button.set_name ("TransportButton");
177         stop_button.set_name ("TransportButton");
178         play_selection_button.set_name ("TransportButton");
179         rec_button.set_name ("TransportRecButton");
180         auto_loop_button.set_name ("TransportButton");
181         join_play_range_button.set_name ("TransportButton");
182
183         auto_return_button.set_name ("TransportButton");
184         auto_play_button.set_name ("TransportButton");
185         auto_input_button.set_name ("TransportButton");
186         punch_in_button.set_name ("TransportButton");
187         punch_out_button.set_name ("TransportButton");
188         click_button.set_name ("TransportButton");
189         time_master_button.set_name ("TransportButton");
190         sync_button.set_name ("TransportSyncButton");
191
192         stop_button.set_size_request(29, -1);
193         roll_button.set_size_request(29, -1);
194         auto_loop_button.set_size_request(29, -1);
195         play_selection_button.set_size_request(29, -1);
196         goto_start_button.set_size_request(29, -1);
197         goto_end_button.set_size_request(29, -1);
198         rec_button.set_size_request(29, -1);
199
200         Widget* w;
201
202         stop_button.set_visual_state (1);
203
204         w = manage (new Image (get_icon (X_("transport_start"))));
205         w->show();
206         goto_start_button.add (*w);
207         w = manage (new Image (get_icon (X_("transport_end"))));
208         w->show();
209         goto_end_button.add (*w);
210         w = manage (new Image (get_icon (X_("transport_play"))));
211         w->show();
212         roll_button.add (*w);
213         w = manage (new Image (get_icon (X_("transport_stop"))));
214         w->show();
215         stop_button.add (*w);
216         w = manage (new Image (get_icon (X_("transport_range"))));
217         w->show();
218         play_selection_button.add (*w);
219         w = manage (new Image (get_icon (X_("transport_record"))));
220         w->show();
221         rec_button.add (*w);
222         w = manage (new Image (get_icon (X_("transport_loop"))));
223         w->show();
224         auto_loop_button.add (*w);
225         w = manage (new Image (get_icon (X_("join_tools"))));
226         w->show ();
227         join_play_range_button.add (*w);
228
229         RefPtr<Action> act;
230
231         act = ActionManager::get_action (X_("Transport"), X_("Stop"));
232         act->connect_proxy (stop_button);
233         act = ActionManager::get_action (X_("Transport"), X_("Roll"));
234         act->connect_proxy (roll_button);
235         act = ActionManager::get_action (X_("Transport"), X_("Record"));
236         act->connect_proxy (rec_button);
237         act = ActionManager::get_action (X_("Transport"), X_("GotoStart"));
238         act->connect_proxy (goto_start_button);
239         act = ActionManager::get_action (X_("Transport"), X_("GotoEnd"));
240         act->connect_proxy (goto_end_button);
241         act = ActionManager::get_action (X_("Transport"), X_("Loop"));
242         act->connect_proxy (auto_loop_button);
243         act = ActionManager::get_action (X_("Transport"), X_("PlaySelection"));
244         act->connect_proxy (play_selection_button);
245         act = ActionManager::get_action (X_("Transport"), X_("ToggleTimeMaster"));
246         act->connect_proxy (time_master_button);
247         act = ActionManager::get_action (X_("Transport"), X_("ToggleExternalSync"));
248         act->connect_proxy (sync_button);
249
250         ARDOUR_UI::instance()->tooltips().set_tip (roll_button, _("Play from playhead"));
251         ARDOUR_UI::instance()->tooltips().set_tip (stop_button, _("Stop playback"));
252         ARDOUR_UI::instance()->tooltips().set_tip (play_selection_button, _("Play range/selection"));
253         ARDOUR_UI::instance()->tooltips().set_tip (goto_start_button, _("Go to start of session"));
254         ARDOUR_UI::instance()->tooltips().set_tip (goto_end_button, _("Go to end of session"));
255         ARDOUR_UI::instance()->tooltips().set_tip (auto_loop_button, _("Play loop range"));
256
257         ARDOUR_UI::instance()->tooltips().set_tip (auto_return_button, _("Return to last playback start when stopped"));
258         ARDOUR_UI::instance()->tooltips().set_tip (auto_play_button, _("Start playback after any locate"));
259         ARDOUR_UI::instance()->tooltips().set_tip (auto_input_button, _("Be sensible about input monitoring"));
260         ARDOUR_UI::instance()->tooltips().set_tip (punch_in_button, _("Start recording at auto-punch start"));
261         ARDOUR_UI::instance()->tooltips().set_tip (punch_out_button, _("Stop recording at auto-punch end"));
262         ARDOUR_UI::instance()->tooltips().set_tip (click_button, _("Enable/Disable audio click"));
263         ARDOUR_UI::instance()->tooltips().set_tip (sync_button, _("Enable/Disable external positional sync"));
264         ARDOUR_UI::instance()->tooltips().set_tip (time_master_button, _("Does Ardour control the time?"));
265         ARDOUR_UI::instance()->tooltips().set_tip (shuttle_box, _("Shuttle speed control"));
266         ARDOUR_UI::instance()->tooltips().set_tip (shuttle_units_button, _("Select semitones or %%-age for speed display"));
267         ARDOUR_UI::instance()->tooltips().set_tip (speed_display_box, _("Current transport speed"));
268
269
270         shuttle_box.set_flags (CAN_FOCUS);
271         shuttle_box.add_events (Gdk::ENTER_NOTIFY_MASK|Gdk::LEAVE_NOTIFY_MASK|Gdk::BUTTON_RELEASE_MASK|Gdk::BUTTON_PRESS_MASK|Gdk::POINTER_MOTION_MASK|Gdk::SCROLL_MASK);
272         shuttle_box.set_size_request (100, 15);
273
274         shuttle_box.signal_button_press_event().connect (sigc::mem_fun(*this, &ARDOUR_UI::shuttle_box_button_press));
275         shuttle_box.signal_button_release_event().connect (sigc::mem_fun(*this, &ARDOUR_UI::shuttle_box_button_release));
276         shuttle_box.signal_scroll_event().connect (sigc::mem_fun(*this, &ARDOUR_UI::shuttle_box_scroll));
277         shuttle_box.signal_motion_notify_event().connect (sigc::mem_fun(*this, &ARDOUR_UI::shuttle_box_motion));
278         shuttle_box.signal_expose_event().connect (sigc::mem_fun(*this, &ARDOUR_UI::shuttle_box_expose));
279
280         /* clocks, etc. */
281
282         ARDOUR_UI::Clock.connect (sigc::bind (sigc::mem_fun (primary_clock, &AudioClock::set), 'p'));
283         ARDOUR_UI::Clock.connect (sigc::bind (sigc::mem_fun (secondary_clock, &AudioClock::set), 's'));
284
285         primary_clock.ValueChanged.connect (sigc::mem_fun(*this, &ARDOUR_UI::primary_clock_value_changed));
286         secondary_clock.ValueChanged.connect (sigc::mem_fun(*this, &ARDOUR_UI::secondary_clock_value_changed));
287         big_clock.ValueChanged.connect (sigc::mem_fun(*this, &ARDOUR_UI::big_clock_value_changed));
288
289         ARDOUR_UI::instance()->tooltips().set_tip (primary_clock, _("Primary clock"));
290         ARDOUR_UI::instance()->tooltips().set_tip (secondary_clock, _("secondary clock"));
291
292         ActionManager::get_action ("Transport", "ToggleAutoReturn")->connect_proxy (auto_return_button);
293         ActionManager::get_action ("Transport", "ToggleAutoPlay")->connect_proxy (auto_play_button);
294         ActionManager::get_action ("Transport", "ToggleAutoInput")->connect_proxy (auto_input_button);
295         ActionManager::get_action ("Transport", "ToggleClick")->connect_proxy (click_button);
296         ActionManager::get_action ("Transport", "TogglePunchIn")->connect_proxy (punch_in_button);
297         ActionManager::get_action ("Transport", "TogglePunchOut")->connect_proxy (punch_out_button);
298
299         preroll_button.set_name ("TransportButton");
300         postroll_button.set_name ("TransportButton");
301
302         preroll_clock.set_mode (AudioClock::MinSec);
303         preroll_clock.set_name ("TransportClockDisplay");
304         postroll_clock.set_mode (AudioClock::MinSec);
305         postroll_clock.set_name ("TransportClockDisplay");
306
307         /* alerts */
308
309         /* CANNOT sigc::bind these to clicked or toggled, must use pressed or released */
310
311         solo_alert_button.set_name ("TransportSoloAlert");
312         solo_alert_button.signal_pressed().connect (sigc::mem_fun(*this,&ARDOUR_UI::solo_alert_toggle));
313         auditioning_alert_button.set_name ("TransportAuditioningAlert");
314         auditioning_alert_button.signal_pressed().connect (sigc::mem_fun(*this,&ARDOUR_UI::audition_alert_toggle));
315
316         tooltips().set_tip (solo_alert_button, _("When active, something is soloed.\nClick to de-solo everything"));
317         tooltips().set_tip (auditioning_alert_button, _("When active, auditioning is taking place\nClick to stop the audition"));
318
319         alert_box.pack_start (solo_alert_button, false, false);
320         alert_box.pack_start (auditioning_alert_button, false, false);
321
322         transport_tearoff_hbox.set_border_width (3);
323
324         transport_tearoff_hbox.pack_start (goto_start_button, false, false);
325         transport_tearoff_hbox.pack_start (goto_end_button, false, false);
326
327         Frame* sframe = manage (new Frame);
328         VBox*  svbox = manage (new VBox);
329         HBox*  shbox = manage (new HBox);
330
331         sframe->set_shadow_type (SHADOW_IN);
332         sframe->add (shuttle_box);
333
334         shuttle_box.set_name (X_("ShuttleControl"));
335
336         speed_display_box.add (speed_display_label);
337         speed_display_box.set_name (X_("ShuttleDisplay"));
338         set_size_request_to_display_given_text (speed_display_label, X_("> 24.0"), 2, 2);
339
340         shuttle_units_button.set_name (X_("ShuttleButton"));
341         shuttle_units_button.signal_clicked().connect (sigc::mem_fun(*this, &ARDOUR_UI::shuttle_unit_clicked));
342
343         shuttle_style_button.set_name (X_("ShuttleStyleButton"));
344
345         vector<string> shuttle_strings;
346         shuttle_strings.push_back (_("sprung"));
347         shuttle_strings.push_back (_("wheel"));
348         set_popdown_strings (shuttle_style_button, shuttle_strings, true);
349         shuttle_style_button.signal_changed().connect (sigc::mem_fun (*this, &ARDOUR_UI::shuttle_style_changed));
350
351         Frame* sdframe = manage (new Frame);
352
353         sdframe->set_shadow_type (SHADOW_IN);
354         sdframe->add (speed_display_box);
355
356         /* translators: Egternal is "External" with a descender character */
357         set_size_request_to_display_given_text (sync_button, X_("Egternal"), 4, 10);
358
359         shbox->pack_start (*sdframe, false, false);
360         shbox->pack_start (shuttle_units_button, true, true);
361         shbox->pack_start (shuttle_style_button, false, false);
362
363         svbox->pack_start (*sframe, false, false);
364         svbox->pack_start (*shbox, false, false);
365
366         transport_tearoff_hbox.pack_start (*svbox, false, false, 3);
367
368         if (Profile->get_sae()) {
369                 transport_tearoff_hbox.pack_start (auto_loop_button);
370                 transport_tearoff_hbox.pack_start (roll_button);
371         } else {
372                 transport_tearoff_hbox.pack_start (auto_loop_button, false, false);
373                 play_range_hbox.pack_start (play_selection_button, false, false);
374                 play_range_hbox.pack_start (roll_button, false, false);
375                 play_range_vbox.pack_start (play_range_hbox, false, false);
376                 play_range_vbox.pack_start (join_play_range_button, false, false);
377                 transport_tearoff_hbox.pack_start (play_range_vbox, false, false);
378         }
379         transport_tearoff_hbox.pack_start (stop_button, false, false);
380         transport_tearoff_hbox.pack_start (rec_button, false, false, 6);
381
382         HBox* clock_box = manage (new HBox);
383         clock_box->pack_start (primary_clock, false, false);
384         if (!ARDOUR::Profile->get_small_screen()) {
385                 clock_box->pack_start (secondary_clock, false, false);
386         }
387
388         if (!Profile->get_sae()) {
389                 VBox* time_controls_box = manage (new VBox);
390                 time_controls_box->pack_start (sync_button, false, false);
391                 time_controls_box->pack_start (time_master_button, false, false);
392                 clock_box->pack_start (*time_controls_box, false, false, 1);
393         }
394
395         transport_tearoff_hbox.pack_start (*clock_box, false, false, 0);
396
397         HBox* toggle_box = manage(new HBox);
398
399         VBox* punch_box = manage (new VBox);
400         punch_box->pack_start (punch_in_button, false, false);
401         punch_box->pack_start (punch_out_button, false, false);
402         toggle_box->pack_start (*punch_box, false, false);
403
404         VBox* auto_box = manage (new VBox);
405         auto_box->pack_start (auto_play_button, false, false);
406         auto_box->pack_start (auto_return_button, false, false);
407         toggle_box->pack_start (*auto_box, false, false);
408
409         VBox* io_box = manage (new VBox);
410         io_box->pack_start (auto_input_button, false, false);
411         io_box->pack_start (click_button, false, false);
412         toggle_box->pack_start (*io_box, false, false);
413
414         /* desensitize */
415
416         set_transport_sensitivity (false);
417
418 //      toggle_box->pack_start (preroll_button, false, false);
419 //      toggle_box->pack_start (preroll_clock, false, false);
420
421 //      toggle_box->pack_start (postroll_button, false, false);
422 //      toggle_box->pack_start (postroll_clock, false, false);
423
424         transport_tearoff_hbox.pack_start (*toggle_box, false, false, 4);
425         transport_tearoff_hbox.pack_start (alert_box, false, false);
426
427         if (Profile->get_sae()) {
428                 Image* img = manage (new Image ((::get_icon (X_("sae")))));
429                 transport_tearoff_hbox.pack_end (*img, false, false, 6);
430         }
431 }
432
433 void
434 ARDOUR_UI::manage_window (Window& win)
435 {
436         win.signal_delete_event().connect (sigc::bind (sigc::ptr_fun (just_hide_it), &win));
437         win.signal_enter_notify_event().connect (sigc::bind (sigc::mem_fun (Keyboard::the_keyboard(), &Keyboard::enter_window), &win));
438         win.signal_leave_notify_event().connect (sigc::bind (sigc::mem_fun (Keyboard::the_keyboard(), &Keyboard::leave_window), &win));
439 }
440
441 void
442 ARDOUR_UI::detach_tearoff (Box* b, Widget* w)
443 {
444 //      editor->ensure_float (transport_tearoff->tearoff_window());
445         b->remove (*w);
446 }
447
448 void
449 ARDOUR_UI::reattach_tearoff (Box* b, Widget* w, int32_t n)
450 {
451         b->pack_start (*w);
452         b->reorder_child (*w, n);
453 }
454
455 void
456 ARDOUR_UI::soloing_changed (bool onoff)
457 {
458         if (solo_alert_button.get_active() != onoff) {
459                 solo_alert_button.set_active (onoff);
460         }
461 }
462
463 void
464 ARDOUR_UI::_auditioning_changed (bool onoff)
465 {
466         if (auditioning_alert_button.get_active() != onoff) {
467                 auditioning_alert_button.set_active (onoff);
468                 set_transport_sensitivity (!onoff);
469         }
470 }
471
472 void
473 ARDOUR_UI::auditioning_changed (bool onoff)
474 {
475         UI::instance()->call_slot (boost::bind (&ARDOUR_UI::_auditioning_changed, this, onoff));
476 }
477
478 void
479 ARDOUR_UI::audition_alert_toggle ()
480 {
481         if (_session) {
482                 _session->cancel_audition();
483         }
484 }
485
486 void
487 ARDOUR_UI::solo_alert_toggle ()
488 {
489         if (_session) {
490                 _session->set_solo (_session->get_routes(), !_session->soloing());
491         }
492 }
493
494 void
495 ARDOUR_UI::solo_blink (bool onoff)
496 {
497         if (_session == 0) {
498                 return;
499         }
500
501         if (_session->soloing()) {
502                 if (onoff) {
503                         solo_alert_button.set_state (STATE_ACTIVE);
504                 } else {
505                         solo_alert_button.set_state (STATE_NORMAL);
506                 }
507         } else {
508                 solo_alert_button.set_active (false);
509                 solo_alert_button.set_state (STATE_NORMAL);
510         }
511 }
512
513 void
514 ARDOUR_UI::sync_blink (bool onoff)
515 {
516         if (_session == 0 || !_session->config.get_external_sync()) {
517                 /* internal sync */
518                 sync_button.set_visual_state (0);
519                 return;
520         }
521
522         if (!_session->transport_locked()) {
523                 /* not locked, so blink on and off according to the onoff argument */
524
525                 if (onoff) {
526                         sync_button.set_visual_state (1); // "-active"
527                 } else {
528                         sync_button.set_visual_state (0); // normal
529                 }
530         } else {
531                 /* locked */
532                 sync_button.set_visual_state (1); // "-active"
533         }
534 }
535
536 void
537 ARDOUR_UI::audition_blink (bool onoff)
538 {
539         if (_session == 0) {
540                 return;
541         }
542
543         if (_session->is_auditioning()) {
544                 if (onoff) {
545                         auditioning_alert_button.set_state (STATE_ACTIVE);
546                 } else {
547                         auditioning_alert_button.set_state (STATE_NORMAL);
548                 }
549         } else {
550                 auditioning_alert_button.set_active (false);
551                 auditioning_alert_button.set_state (STATE_NORMAL);
552         }
553 }
554
555 void
556 ARDOUR_UI::build_shuttle_context_menu ()
557 {
558         using namespace Menu_Helpers;
559
560         shuttle_context_menu = new Menu();
561         MenuList& items = shuttle_context_menu->items();
562
563         Menu* speed_menu = manage (new Menu());
564         MenuList& speed_items = speed_menu->items();
565
566         RadioMenuItem::Group group;
567
568         speed_items.push_back (RadioMenuElem (group, "8", sigc::bind (sigc::mem_fun (*this, &ARDOUR_UI::set_shuttle_max_speed), 8.0f)));
569         if (shuttle_max_speed == 8.0) {
570                 static_cast<RadioMenuItem*>(&speed_items.back())->set_active ();
571         }
572         speed_items.push_back (RadioMenuElem (group, "6", sigc::bind (sigc::mem_fun (*this, &ARDOUR_UI::set_shuttle_max_speed), 6.0f)));
573         if (shuttle_max_speed == 6.0) {
574                 static_cast<RadioMenuItem*>(&speed_items.back())->set_active ();
575         }
576         speed_items.push_back (RadioMenuElem (group, "4", sigc::bind (sigc::mem_fun (*this, &ARDOUR_UI::set_shuttle_max_speed), 4.0f)));
577         if (shuttle_max_speed == 4.0) {
578                 static_cast<RadioMenuItem*>(&speed_items.back())->set_active ();
579         }
580         speed_items.push_back (RadioMenuElem (group, "3", sigc::bind (sigc::mem_fun (*this, &ARDOUR_UI::set_shuttle_max_speed), 3.0f)));
581         if (shuttle_max_speed == 3.0) {
582                 static_cast<RadioMenuItem*>(&speed_items.back())->set_active ();
583         }
584         speed_items.push_back (RadioMenuElem (group, "2", sigc::bind (sigc::mem_fun (*this, &ARDOUR_UI::set_shuttle_max_speed), 2.0f)));
585         if (shuttle_max_speed == 2.0) {
586                 static_cast<RadioMenuItem*>(&speed_items.back())->set_active ();
587         }
588         speed_items.push_back (RadioMenuElem (group, "1.5", sigc::bind (sigc::mem_fun (*this, &ARDOUR_UI::set_shuttle_max_speed), 1.5f)));
589         if (shuttle_max_speed == 1.5) {
590                 static_cast<RadioMenuItem*>(&speed_items.back())->set_active ();
591         }
592
593         items.push_back (MenuElem (_("Maximum speed"), *speed_menu));
594 }
595
596 void
597 ARDOUR_UI::show_shuttle_context_menu ()
598 {
599         if (shuttle_context_menu == 0) {
600                 build_shuttle_context_menu ();
601         }
602
603         shuttle_context_menu->popup (1, gtk_get_current_event_time());
604 }
605
606 void
607 ARDOUR_UI::set_shuttle_max_speed (float speed)
608 {
609         shuttle_max_speed = speed;
610 }
611
612 gint
613 ARDOUR_UI::shuttle_box_button_press (GdkEventButton* ev)
614 {
615         if (!_session) {
616                 return true;
617         }
618
619         if (shuttle_controller_binding_proxy.button_press_handler (ev)) {
620                 return true;
621         }
622
623         if (Keyboard::is_context_menu_event (ev)) {
624                 show_shuttle_context_menu ();
625                 return true;
626         }
627
628         switch (ev->button) {
629         case 1:
630                 shuttle_box.add_modal_grab ();
631                 shuttle_grabbed = true;
632                 mouse_shuttle (ev->x, true);
633                 break;
634
635         case 2:
636         case 3:
637                 return true;
638                 break;
639         }
640
641         return true;
642 }
643
644 gint
645 ARDOUR_UI::shuttle_box_button_release (GdkEventButton* ev)
646 {
647         if (!_session) {
648                 return true;
649         }
650
651         switch (ev->button) {
652         case 1:
653                 mouse_shuttle (ev->x, true);
654                 shuttle_grabbed = false;
655                 shuttle_box.remove_modal_grab ();
656                 if (Config->get_shuttle_behaviour() == Sprung) {
657                         if (_session->config.get_auto_play() || roll_button.get_visual_state()) {
658                                 shuttle_fract = SHUTTLE_FRACT_SPEED1;
659                                 _session->request_transport_speed (1.0);
660                                 stop_button.set_visual_state (0);
661                                 roll_button.set_visual_state (1);
662                         } else {
663                                 shuttle_fract = 0;
664                                 _session->request_transport_speed (0.0);
665                         }
666                         shuttle_box.queue_draw ();
667                 }
668                 return true;
669
670         case 2:
671                 if (_session->transport_rolling()) {
672                         shuttle_fract = SHUTTLE_FRACT_SPEED1;
673                         _session->request_transport_speed (1.0);
674                         stop_button.set_visual_state (0);
675                         roll_button.set_visual_state (1);
676                 } else {
677                         shuttle_fract = 0;
678                 }
679                 shuttle_box.queue_draw ();
680                 return true;
681
682         case 3:
683         default:
684                 return true;
685
686         }
687
688         use_shuttle_fract (true);
689
690         return true;
691 }
692
693 gint
694 ARDOUR_UI::shuttle_box_scroll (GdkEventScroll* ev)
695 {
696         if (!_session) {
697                 return true;
698         }
699
700         switch (ev->direction) {
701
702         case GDK_SCROLL_UP:
703                 shuttle_fract += 0.005;
704                 break;
705         case GDK_SCROLL_DOWN:
706                 shuttle_fract -= 0.005;
707                 break;
708         default:
709                 /* scroll left/right */
710                 return false;
711         }
712
713         use_shuttle_fract (true);
714
715         return true;
716 }
717
718 gint
719 ARDOUR_UI::shuttle_box_motion (GdkEventMotion* ev)
720 {
721         if (!_session || !shuttle_grabbed) {
722                 return true;
723         }
724
725         return mouse_shuttle (ev->x, false);
726 }
727
728 gint
729 ARDOUR_UI::mouse_shuttle (double x, bool force)
730 {
731         double half_width = shuttle_box.get_width() / 2.0;
732         double distance = x - half_width;
733
734         if (distance > 0) {
735                 distance = min (distance, half_width);
736         } else {
737                 distance = max (distance, -half_width);
738         }
739
740         shuttle_fract = distance / half_width;
741         use_shuttle_fract (force);
742         return true;
743 }
744
745 void
746 ARDOUR_UI::set_shuttle_fract (double f)
747 {
748         shuttle_fract = f;
749         use_shuttle_fract (false);
750 }
751
752 void
753 ARDOUR_UI::use_shuttle_fract (bool force)
754 {
755         microseconds_t now = get_microseconds();
756
757         /* do not attempt to submit a motion-driven transport speed request
758            more than once per process cycle.
759          */
760
761         if (!force && (last_shuttle_request - now) < (microseconds_t) engine->usecs_per_cycle()) {
762                 return;
763         }
764
765         last_shuttle_request = now;
766
767         if (Config->get_shuttle_units() == Semitones) {
768
769                 const double step = 1.0 / 24.0; // range is 24 semitones up & down
770                 double semitones;
771                 double speed;
772
773                 semitones = round (shuttle_fract / step);
774                 speed = pow (2.0, (semitones / 12.0));
775
776                 _session->request_transport_speed (speed);
777
778         } else {
779
780                 bool neg;
781                 double fract;
782
783                 neg = (shuttle_fract < 0.0);
784
785                 fract = 1 - sqrt (1 - (shuttle_fract * shuttle_fract)); // Formula A1
786
787                 if (neg) {
788                         fract = -fract;
789                 }
790
791                 _session->request_transport_speed (shuttle_max_speed * fract);
792         }
793
794         shuttle_box.queue_draw ();
795 }
796
797 gint
798 ARDOUR_UI::shuttle_box_expose (GdkEventExpose* event)
799 {
800         gint x;
801         Glib::RefPtr<Gdk::Window> win (shuttle_box.get_window());
802
803         /* redraw the background */
804
805         win->draw_rectangle (shuttle_box.get_style()->get_bg_gc (shuttle_box.get_state()),
806                              true,
807                              event->area.x, event->area.y,
808                              event->area.width, event->area.height);
809
810
811         x = (gint) floor ((shuttle_box.get_width() / 2.0) + (0.5 * (shuttle_box.get_width() * shuttle_fract)));
812
813         /* draw line */
814
815         win->draw_line (shuttle_box.get_style()->get_fg_gc (shuttle_box.get_state()),
816                         x,
817                         0,
818                         x,
819                         shuttle_box.get_height());
820         return true;
821 }
822
823 void
824 ARDOUR_UI::shuttle_unit_clicked ()
825 {
826         if (shuttle_unit_menu == 0) {
827                 shuttle_unit_menu = dynamic_cast<Menu*> (ActionManager::get_widget ("/ShuttleUnitPopup"));
828         }
829         shuttle_unit_menu->popup (1, gtk_get_current_event_time());
830 }
831
832 void
833 ARDOUR_UI::shuttle_style_changed ()
834 {
835         ustring str = shuttle_style_button.get_active_text ();
836
837         if (str == _("sprung")) {
838                 Config->set_shuttle_behaviour (Sprung);
839         } else if (str == _("wheel")) {
840                 Config->set_shuttle_behaviour (Wheel);
841         }
842 }
843
844 void
845 ARDOUR_UI::update_speed_display ()
846 {
847         if (!_session) {
848                 if (last_speed_displayed != 0) {
849                         speed_display_label.set_text (_("stop"));
850                         last_speed_displayed = 0;
851                 }
852                 return;
853         }
854
855         char buf[32];
856         float x = _session->transport_speed ();
857
858         if (x != last_speed_displayed) {
859
860                 if (x != 0) {
861                         if (Config->get_shuttle_units() == Percentage) {
862                                 snprintf (buf, sizeof (buf), "%.2f", x);
863                         } else {
864
865                                 if (x < 0) {
866                                         snprintf (buf, sizeof (buf), "< %d", (int) round (12.0 * fast_log2 (-x)));
867                                 } else {
868                                         snprintf (buf, sizeof (buf), "> %d", (int) round (12.0 * fast_log2 (x)));
869                                 }
870                         }
871                         speed_display_label.set_text (buf);
872                 } else {
873                         speed_display_label.set_text (_("stop"));
874                 }
875
876                 last_speed_displayed = x;
877         }
878 }
879
880 void
881 ARDOUR_UI::set_transport_sensitivity (bool yn)
882 {
883         ActionManager::set_sensitive (ActionManager::transport_sensitive_actions, yn);
884         shuttle_box.set_sensitive (yn);
885 }
886
887 void
888 ARDOUR_UI::editor_realized ()
889 {
890         boost::function<void (string)> pc (boost::bind (&ARDOUR_UI::parameter_changed, this, _1));
891         Config->map_parameters (pc);
892
893         set_size_request_to_display_given_text (speed_display_box, _("-0.55"), 2, 2);
894         reset_dpi ();
895 }
896
897 void
898 ARDOUR_UI::maximise_editing_space ()
899 {
900         if (!editor) {
901                 return;
902         }
903
904         transport_tearoff->set_visible (false);
905         editor->maximise_editing_space ();
906 }
907
908 void
909 ARDOUR_UI::restore_editing_space ()
910 {
911         if (!editor) {
912                 return;
913         }
914
915         transport_tearoff->set_visible (true);
916         editor->restore_editing_space ();
917 }