+AutomationControl::actually_set_value (double value, PBD::Controllable::GroupControlDisposition gcd)
+{
+ boost::shared_ptr<AutomationList> al = boost::dynamic_pointer_cast<AutomationList> (_list);
+ const framepos_t pos = _session.transport_frame();
+ bool to_list;
+ double old_value;
+
+ /* We cannot use ::get_value() here since that is virtual, and intended
+ to return a scalar value that in some way reflects the state of the
+ control (with semantics defined by the control itself, since it's
+ internal state may be more complex than can be fully represented by
+ a single scalar).
+
+ This method's only job is to set the "user_double()" value of the
+ underlying Evoral::Control object, and so we should compare the new
+ value we're being given to the current user_double().
+
+ Unless ... we're doing automation playback, in which case the
+ current effective value of the control (used to determine if
+ anything has changed) is the one derived from the automation event
+ list.
+ */
+
+ if (!al) {
+ to_list = false;
+ old_value = Control::user_double();
+ } else {
+ if (al->automation_write ()) {
+ to_list = true;
+ old_value = Control::user_double ();
+ } else if (al->automation_playback()) {
+ to_list = false;
+ old_value = al->eval (pos);
+ } else {
+ to_list = false;
+ old_value = Control::user_double ();
+ }
+ }
+
+ Control::set_double (value, pos, to_list);
+
+ if (old_value != value) {
+ // AutomationType at = (AutomationType) _parameter.type();
+ // std::cerr << "++++ Changed (" << enum_2_string (at) << ", " << enum_2_string (gcd) << ") = " << value
+ // << " (was " << old_value << ") @ " << this << std::endl;
+
+ Changed (true, gcd);
+ _session.set_dirty ();
+ }
+
+}
+
+void
+AutomationControl::set_list (boost::shared_ptr<Evoral::ControlList> list)
+{
+ Control::set_list (list);
+ Changed (true, Controllable::NoGroup);
+}
+
+void
+AutomationControl::set_automation_state (AutoState as)
+{
+ if (flags() & NotAutomatable) {
+ return;
+ }
+ if (_list && as != alist()->automation_state()) {
+
+ const double val = get_value ();
+
+ alist()->set_automation_state (as);
+ if (_desc.toggled) {
+ return; // No watch for boolean automation
+ }
+
+ if (as == Write) {
+ AutomationWatch::instance().add_automation_watch (shared_from_this());
+ } else if (as == Touch) {
+ if (alist()->empty()) {
+ Control::set_double (val, _session.current_start_frame (), true);
+ Control::set_double (val, _session.current_end_frame (), true);
+ Changed (true, Controllable::NoGroup);
+ }
+ if (!touching()) {
+ AutomationWatch::instance().remove_automation_watch (shared_from_this());
+ } else {
+ /* this seems unlikely, but the combination of
+ * a control surface and the mouse could make
+ * it possible to put the control into Touch
+ * mode *while* touching it.
+ */
+ AutomationWatch::instance().add_automation_watch (shared_from_this());
+ }
+ } else {
+ AutomationWatch::instance().remove_automation_watch (shared_from_this());
+ }
+ }
+}
+
+void
+AutomationControl::set_automation_style (AutoStyle as)