--- /dev/null
+/*
+ * Copyright (C) 2016 Robin Gareus <robin@gareus.org>
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License
+ * as published by the Free Software Foundation; either version 2
+ * of the License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+ */
+
+#include "gtkmm2ext/utils.h"
+
+#include "lua_script_manager.h"
+#include "script_selector.h"
+#include "i18n.h"
+
+using namespace std;
+using namespace Gtk;
+using namespace ARDOUR;
+
+LuaScriptManager::LuaScriptManager ()
+ : ArdourWindow (_("Script Manager"))
+ , _a_set_button (_("Add/Set"))
+ , _a_del_button (_("Remove"))
+ , _a_edit_button (_("Edit"))
+ , _a_call_button (_("Call"))
+ , _c_add_button (_("New Hook"))
+ , _c_del_button (_("Remove"))
+{
+ /* action script page */
+ _a_store = ListStore::create (_a_model);
+ _a_view.set_model (_a_store);
+ _a_view.append_column (_("Action"), _a_model.action);
+ _a_view.append_column (_("Name"), _a_model.name);
+ _a_view.get_column(0)->set_resizable (true);
+ _a_view.get_column(0)->set_expand (true);
+
+ Gtk::HBox* edit_box = manage (new Gtk::HBox);
+ edit_box->set_spacing(3);
+
+ edit_box->pack_start (_a_set_button, true, true);
+ edit_box->pack_start (_a_del_button, true, true);
+ edit_box->pack_start (_a_edit_button, true, true);
+ edit_box->pack_start (_a_call_button, true, true);
+
+ _a_set_button.signal_clicked().connect (sigc::mem_fun(*this, &LuaScriptManager::set_action_btn_clicked));
+ _a_del_button.signal_clicked().connect (sigc::mem_fun(*this, &LuaScriptManager::del_action_btn_clicked));
+ _a_edit_button.signal_clicked().connect (sigc::mem_fun(*this, &LuaScriptManager::edit_action_btn_clicked));
+ _a_call_button.signal_clicked().connect (sigc::mem_fun(*this, &LuaScriptManager::call_action_btn_clicked));
+ _a_view.get_selection()->signal_changed().connect (sigc::mem_fun (*this, &LuaScriptManager::action_selection_changed));
+
+ LuaInstance::instance()->ActionChanged.connect (sigc::mem_fun (*this, &LuaScriptManager::set_action_script_name));
+ LuaInstance::instance()->SlotChanged.connect (sigc::mem_fun (*this, &LuaScriptManager::set_callback_script_name));
+
+ Gtk::VBox *vbox = manage (new VBox());
+ vbox->pack_start (_a_view, false, false);
+ vbox->pack_end (*edit_box, false, false);
+ vbox->show_all ();
+
+ pages.pages ().push_back (Notebook_Helpers::TabElem (*vbox, "Action Scripts"));
+
+ /* action hooks page */
+
+ _c_store = ListStore::create (_c_model);
+ _c_view.set_model (_c_store);
+ _c_view.append_column (_("Name"), _c_model.name);
+ _c_view.get_column(0)->set_resizable (true);
+ _c_view.get_column(0)->set_expand (true);
+ _c_view.append_column (_("Signal(s)"), _c_model.signals);
+
+ edit_box = manage (new Gtk::HBox);
+ edit_box->set_spacing(3);
+ edit_box->pack_start (_c_add_button, true, true);
+ edit_box->pack_start (_c_del_button, true, true);
+
+ _c_add_button.signal_clicked().connect (sigc::mem_fun(*this, &LuaScriptManager::add_callback_btn_clicked));
+ _c_del_button.signal_clicked().connect (sigc::mem_fun(*this, &LuaScriptManager::del_callback_btn_clicked));
+ _c_view.get_selection()->signal_changed().connect (sigc::mem_fun (*this, &LuaScriptManager::callback_selection_changed));
+
+ vbox = manage (new VBox());
+ vbox->pack_start (_c_view, false, false);
+ vbox->pack_end (*edit_box, false, false);
+ vbox->show_all ();
+
+ pages.pages ().push_back (Notebook_Helpers::TabElem (*vbox, "Action Hooks"));
+
+
+ add (pages);
+ pages.show();
+
+ setup_actions ();
+ setup_callbacks ();
+
+ action_selection_changed ();
+ callback_selection_changed ();
+}
+
+bool
+LuaScriptManager::on_delete_event (GdkEventAny*)
+{
+ return false;
+}
+
+void
+LuaScriptManager::session_going_away ()
+{
+ ArdourWindow::session_going_away ();
+ hide_all();
+}
+
+void
+LuaScriptManager::setup_actions ()
+{
+ LuaInstance *li = LuaInstance::instance();
+ for (int i = 0; i < 9; ++i) {
+ std::string name;
+ TreeModel::Row r = *_a_store->append ();
+ r[_a_model.id] = i;
+ r[_a_model.action] = string_compose (_("Action %1"), i + 1);
+ if (li->lua_action_name (i, name)) {
+ r[_a_model.name] = name;
+ r[_a_model.enabled] = true;
+ } else {
+ r[_a_model.name] = _("Unset");
+ r[_a_model.enabled] = false;
+ }
+ }
+}
+
+void
+LuaScriptManager::action_selection_changed ()
+{
+ TreeModel::Row row = *(_a_view.get_selection()->get_selected());
+ if (row) {
+ _a_set_button.set_sensitive (true);
+ }
+ else {
+ _a_set_button.set_sensitive (false);
+ }
+
+ if (row && row[_a_model.enabled]) {
+ _a_del_button.set_sensitive (true);
+ _a_edit_button.set_sensitive (false); // TODO
+ _a_call_button.set_sensitive (true);
+ } else {
+ _a_del_button.set_sensitive (false);
+ _a_edit_button.set_sensitive (false);
+ _a_call_button.set_sensitive (false);
+ }
+}
+
+void
+LuaScriptManager::set_action_btn_clicked ()
+{
+ TreeModel::Row row = *(_a_view.get_selection()->get_selected());
+ assert (row);
+ LuaInstance *li = LuaInstance::instance();
+ li->interactive_add (LuaScriptInfo::EditorAction, row[_a_model.id]);
+}
+
+void
+LuaScriptManager::del_action_btn_clicked ()
+{
+ TreeModel::Row row = *(_a_view.get_selection()->get_selected());
+ assert (row);
+ LuaInstance *li = LuaInstance::instance();
+ if (!li->remove_lua_action (row[_a_model.id])) {
+ // error
+ }
+}
+
+void
+LuaScriptManager::call_action_btn_clicked ()
+{
+ TreeModel::Row row = *(_a_view.get_selection()->get_selected());
+ assert (row && row[_a_model.enabled]);
+ LuaInstance *li = LuaInstance::instance();
+ li->call_action (row[_a_model.id]);
+}
+
+void
+LuaScriptManager::edit_action_btn_clicked ()
+{
+ TreeModel::Row row = *(_a_view.get_selection()->get_selected());
+ assert (row);
+ int id = row[_a_model.id];
+ LuaInstance *li = LuaInstance::instance();
+ std::string name, script;
+ LuaScriptParamList args;
+ if (!li->lua_action (id, name, script, args)) {
+ return;
+ }
+
+ // TODO text-editor window, update script directly
+
+ if (!LuaScripting::try_compile (script, args)) {
+ // compilation failed, keep editing
+ return;
+ }
+
+ if (li->set_lua_action (id, name, script, args)) {
+ // OK
+ } else {
+ // load failed, keep editing..
+ }
+ action_selection_changed ();
+}
+
+void
+LuaScriptManager::set_action_script_name (int i, const std::string& name)
+{
+ typedef Gtk::TreeModel::Children type_children;
+ type_children children = _a_store->children();
+ for(type_children::iterator iter = children.begin(); iter != children.end(); ++iter) {
+ Gtk::TreeModel::Row row = *iter;
+ if (row[_a_model.id] == i) {
+ if (name.empty()) {
+ row[_a_model.enabled] = false;
+ row[_a_model.name] = _("Unset");
+ } else {
+ row[_a_model.enabled] = true;
+ row[_a_model.name] = name;
+ }
+ break;
+ }
+ }
+ action_selection_changed ();
+}
+
+
+void
+LuaScriptManager::setup_callbacks ()
+{
+ LuaInstance *li = LuaInstance::instance();
+ std::vector<PBD::ID> ids = li->lua_slots();
+ for (std::vector<PBD::ID>::const_iterator i = ids.begin(); i != ids.end(); ++i) {
+ std::string name;
+ std::string script;
+ ActionHook ah;
+ LuaScriptParamList lsp;
+ if (li->lua_slot (*i, name, script, ah, lsp)) {
+ set_callback_script_name (*i, name, ah);
+ }
+ }
+}
+
+void
+LuaScriptManager::callback_selection_changed ()
+{
+ TreeModel::Row row = *(_c_view.get_selection()->get_selected());
+ if (row) {
+ _c_del_button.set_sensitive (true);
+ } else {
+ _c_del_button.set_sensitive (false);
+ }
+}
+
+void
+LuaScriptManager::add_callback_btn_clicked ()
+{
+ LuaInstance *li = LuaInstance::instance();
+ li->interactive_add (LuaScriptInfo::EditorHook, -1);
+}
+
+void
+LuaScriptManager::del_callback_btn_clicked ()
+{
+ TreeModel::Row row = *(_c_view.get_selection()->get_selected());
+ assert (row);
+ LuaInstance *li = LuaInstance::instance();
+ if (!li->unregister_lua_slot (row[_c_model.id])) {
+ // error
+ }
+}
+
+void
+LuaScriptManager::set_callback_script_name (PBD::ID id, const std::string& name, const ActionHook& ah)
+{
+ if (name.empty()) {
+ typedef Gtk::TreeModel::Children type_children;
+ type_children children = _c_store->children();
+ for(type_children::iterator iter = children.begin(); iter != children.end(); ++iter) {
+ Gtk::TreeModel::Row row = *iter;
+ PBD::ID i = row[_c_model.id];
+ if (i == id) {
+ _c_store->erase (iter);
+ break;
+ }
+ }
+ } else {
+ TreeModel::Row r = *_c_store->append ();
+ r[_c_model.id] = id;
+ r[_c_model.name] = name;
+ string sig;
+ for (uint32_t i = 0; i < LuaSignal::LAST_SIGNAL; ++i) {
+ if (ah[i]) {
+ if (!sig.empty()) sig += ", ";
+ sig += enum2str (LuaSignal::LuaSignal (i));
+ }
+ }
+ r[_c_model.signals] = sig;
+ }
+ callback_selection_changed ();
+}
--- /dev/null
+/*
+ * Copyright (C) 2016 Robin Gareus <robin@gareus.org>
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License
+ * as published by the Free Software Foundation; either version 2
+ * of the License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+ */
+
+#include <gtkmm.h>
+#include "ardour/luascripting.h"
+
+#include "ardour_window.h"
+#include "luainstance.h"
+
+class LuaScriptManager : public ArdourWindow
+{
+public:
+ LuaScriptManager ();
+
+protected:
+ bool on_delete_event (GdkEventAny*);
+ void session_going_away();
+
+private:
+ Gtk::Notebook pages;
+
+ /* action scripts */
+ void setup_actions ();
+ void action_selection_changed ();
+ void set_action_script_name (int, const std::string&);
+
+ void set_action_btn_clicked ();
+ void del_action_btn_clicked ();
+ void edit_action_btn_clicked ();
+ void call_action_btn_clicked ();
+
+ class LuaActionScriptModelColumns : public Gtk::TreeModelColumnRecord
+ {
+ public:
+ LuaActionScriptModelColumns ()
+ {
+ add (id);
+ add (action);
+ add (name);
+ add (enabled);
+ }
+
+ Gtk::TreeModelColumn<int> id;
+ Gtk::TreeModelColumn<std::string> action;
+ Gtk::TreeModelColumn<std::string> name;
+ Gtk::TreeModelColumn<bool> enabled;
+ };
+
+ Gtk::Button _a_set_button;
+ Gtk::Button _a_del_button;
+ Gtk::Button _a_edit_button;
+ Gtk::Button _a_call_button;
+
+ Glib::RefPtr<Gtk::ListStore> _a_store;
+ LuaActionScriptModelColumns _a_model;
+ Gtk::TreeView _a_view;
+
+ /* action callback hooks */
+ void setup_callbacks ();
+ void callback_selection_changed ();
+ void set_callback_script_name (PBD::ID, const std::string&, const ActionHook& ah);
+
+ void add_callback_btn_clicked ();
+ void del_callback_btn_clicked ();
+
+ class LuaCallbackScriptModelColumns : public Gtk::TreeModelColumnRecord
+ {
+ public:
+ LuaCallbackScriptModelColumns ()
+ {
+ add (id);
+ add (name);
+ add (signals);
+ }
+
+ Gtk::TreeModelColumn<PBD::ID> id;
+ Gtk::TreeModelColumn<std::string> name;
+ Gtk::TreeModelColumn<std::string> signals;
+ };
+
+ Glib::RefPtr<Gtk::ListStore> _c_store;
+ LuaCallbackScriptModelColumns _c_model;
+ Gtk::TreeView _c_view;
+
+ Gtk::Button _c_add_button;
+ Gtk::Button _c_del_button;
+};
projects / ardour.git / commitdiff