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