Expose Stripable Color & Ordering API to Lua

We can't easily use C++ references with Lua closures, so
new API (pointer to PresentationInfo) was added.

diff --git a/libs/ardour/ardour/stripable.h b/libs/ardour/ardour/stripable.h
index 2464dddab9eb3041b6250984046ed88a64dec7c7..942b48815b312fee5d7c3f33a4a48c1069d9f74e 100644 (file)
--- a/libs/ardour/ardour/stripable.h
+++ b/libs/ardour/ardour/stripable.h
@@ -73,6 +73,7 @@ class LIBARDOUR_API Stripable : public SessionObject {
 
        PresentationInfo const & presentation_info () const { return _presentation_info; }
        PresentationInfo& presentation_info () { return _presentation_info; }
+       PresentationInfo* presentation_info_ptr () { return &_presentation_info; }
 
        /* set just the order */
 

diff --git a/libs/ardour/luabindings.cc b/libs/ardour/luabindings.cc
index 0bbfb11624cbd164e55119d73cd4eda20307a2e6..631ab3b8a45b315870d0499fcb9f7991166b98ef 100644 (file)
--- a/libs/ardour/luabindings.cc
+++ b/libs/ardour/luabindings.cc
@@ -587,6 +587,12 @@ LuaBindings::common (lua_State* L)
                // stub RouteGroup* is needed for new_audio_track()
                .endClass ()
 
+               .deriveClass <PresentationInfo, PBD::Stateful> ("PresentationInfo")
+               .addFunction ("color", &PresentationInfo::color)
+               .addFunction ("set_color", &PresentationInfo::set_color)
+               .addFunction ("order", &PresentationInfo::order)
+               .endClass ()
+
                .deriveWSPtrClass <Stripable, SessionObject> ("Stripable")
                .addCast<Route> ("to_route")
                .addFunction ("is_auditioner", &Stripable::is_auditioner)
@@ -603,6 +609,9 @@ LuaBindings::common (lua_State* L)
                .addFunction ("trim_control", &Stripable::trim_control)
                .addFunction ("rec_enable_control", &Stripable::rec_enable_control)
                .addFunction ("rec_safe_control", &Stripable::rec_safe_control)
+               .addFunction ("set_presentation_order", &Stripable::set_presentation_order)
+               .addFunction ("presentation_info_ptr", &Stripable::presentation_info_ptr)
+
                .endClass ()
 
                .deriveWSPtrClass <Route, Stripable> ("Route")