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