From 957a18f63593d2f8d2bca8f80a6f1e6ae19f71a0 Mon Sep 17 00:00:00 2001
From: Robin Gareus <robin@gareus.org>
Date: Mon, 11 Apr 2016 14:58:42 +0200
Subject: [PATCH] indicate read-only scripts

---
 gtk2_ardour/luawindow.cc | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gtk2_ardour/luawindow.cc b/gtk2_ardour/luawindow.cc
index dfdba52db3..155c6908ac 100644
--- a/gtk2_ardour/luawindow.cc
+++ b/gtk2_ardour/luawindow.cc
@@ -567,8 +567,16 @@ LuaWindow::rebuild_menu ()
 		items_scratch.push_back(elem);
 	}
 
+	items_scratch.push_back(SeparatorElem());
+
 	for (ScriptBufferList::const_iterator i = script_buffers.begin (); i != script_buffers.end (); ++i) {
-		Menu_Helpers::MenuElem elem = Gtk::Menu_Helpers::MenuElem((*i)->name,
+		std::string name;
+		if ((*i)->flags & Buffer_ReadOnly) {
+			name = "[R] " + (*i)->name;
+		} else {
+			name = (*i)->name;
+		}
+		Menu_Helpers::MenuElem elem = Gtk::Menu_Helpers::MenuElem(name,
 				sigc::bind(sigc::mem_fun(*this, &LuaWindow::script_selection_changed), (*i), false));
 
 		if ((*i)->flags & Buffer_Scratch) {