+void KeySpeedPatch::update(float v)
+{
+ key_speed_text->update(v);
+ key_speed_slider->update(v);
+ update_speed(v);
+}
+
+void KeySpeedPatch::update_speed(float v)
+{
+ patch->change_source = 1;
+ double position = mwindow->edl->local_session->get_selectionstart(1);
+ Autos *speed_autos = patch->track->automation->autos[AUTOMATION_SPEED];
+ int need_undo = !speed_autos->auto_exists_for_editing(position);
+
+ mwindow->undo->update_undo_before(_("speed"), need_undo ? 0 : this);
+ FloatAuto *current = (FloatAuto*)speed_autos->get_auto_for_editing(position);
+ current->set_value(v);
+ mwindow->undo->update_undo_after(_("speed"), LOAD_AUTOMATION+LOAD_EDITS);
+ patch->change_source = 0;
+
+ mwindow->sync_parameters(CHANGE_PARAMS);
+ if(mwindow->edl->session->auto_conf->autos[AUTOMATION_SPEED]) {
+ mwindow->gui->draw_overlays(1);
+ }
+}
+
+KeySpeedOK::KeySpeedOK(KeySpeedPatch *key_speed_patch, int x, int y, VFrame **images)
+ : BC_Button(x, y, images)
+{
+ this->key_speed_patch = key_speed_patch;
+}
+
+int KeySpeedOK::handle_event()
+{
+ MWindow *mwindow = key_speed_patch->mwindow;
+ mwindow->speed_after(1);
+ mwindow->resync_guis();
+ MWindowGUI *mgui = mwindow->gui;
+ delete mgui->keyvalue_popup;
+ mgui->keyvalue_popup = 0;
+ return 1;
+}
+
+KeySpeedText::KeySpeedText(KeySpeedPatch *key_speed_patch, int x, int y, int w, float v)
+ : BC_TextBox(x, y, w, 1, v, 1, MEDIUMFONT, 2)
+{
+ this->key_speed_patch = key_speed_patch;
+}
+
+int KeySpeedText::handle_event()
+{
+ float v = atof(get_text());
+ key_speed_patch->update(v);
+ return get_keypress() != RETURN ? 1 :
+ key_speed_patch->key_speed_ok->handle_event();
+}
+
+KeySpeedSlider::KeySpeedSlider(KeySpeedPatch *key_speed_patch,
+ int x, int y, int w, float v)
+ : BC_FSlider(x, y, 0, w, w,
+ key_speed_patch->mwindow->edl->local_session->automation_mins[AUTOGROUPTYPE_SPEED],
+ key_speed_patch->mwindow->edl->local_session->automation_maxs[AUTOGROUPTYPE_SPEED],
+ v)
+{
+ this->key_speed_patch = key_speed_patch;
+ key_speed_patch->mwindow->speed_before();
+ set_precision(0.01);
+}
+
+KeySpeedSlider::~KeySpeedSlider()
+{
+}
+
+int KeySpeedSlider::handle_event()
+{
+ if( shift_down() ) {
+ update(1.0);
+ set_tooltip(get_caption());
+ }
+ key_speed_patch->update(get_value());