* lily/grob.cc (get_uncached_stencil): only ste grob-cause if

point_and_click_global is set.

* lily/scm-option.cc (LY_DEFINE): add point-and-click
ly:set-option argument.

diff --git a/lily/grob.cc b/lily/grob.cc
index 4fdce86481abff211f5b23d598cca4b2b806503c..ed1c5dd752bbe097b3faf78aa6f5853d9a15fd82 100644 (file)
--- a/lily/grob.cc
+++ b/lily/grob.cc
@@ -238,7 +238,7 @@ Grob::get_uncached_stencil () const
     {
       if (to_boolean (get_property ("transparent")))
        stil = Stencil (m->extent_box (), SCM_EOL).smobbed_copy ();
-      else
+      else if (point_and_click_global) 
        {
          SCM expr = scm_list_3 (ly_symbol2scm ("grob-cause"), self_scm (),
                                 m->expr ());

diff --git a/lily/include/main.hh b/lily/include/main.hh
index c7fcad21d02007bc6bfdba787c778e9620cb6e14..a5a570356e64428fd7cb8a8715dbb84d4785e5ae 100644 (file)
--- a/lily/include/main.hh
+++ b/lily/include/main.hh
@@ -33,6 +33,7 @@ extern bool be_verbose_global;
 extern bool do_internal_type_checking_global;
 extern bool is_pango_format_global;
 extern bool is_TeX_format_global;
+extern bool point_and_click_global;
 extern String prefix_directory;
 
 /*

diff --git a/lily/scm-option.cc b/lily/scm-option.cc
index 3fc6a3b726b95cda79f9a863cb62be49812b6112..d263a76ae2ef905d07370172c8ae4827096cc3bb 100644 (file)
--- a/lily/scm-option.cc
+++ b/lily/scm-option.cc
@@ -82,6 +82,8 @@ LY_DEFINE (ly_set_option, "ly:set-option", 1, 1, 0, (SCM var, SCM val),
           "@table @code\n"
           "@item help\n"
           "List all options.\n"
+          "@item point-and-click\n"
+          "Switch point & click on or off.\n"
           "@item midi-debug\n"
           "If set to true, generate human readable MIDI\n"
           "@item internal-type-checking\n"
@@ -108,6 +110,8 @@ LY_DEFINE (ly_set_option, "ly:set-option", 1, 1, 0, (SCM var, SCM val),
     midi_debug_global_b = to_boolean (val);
   else if (var == ly_symbol2scm ("testing-level"))
     testing_level_global = scm_to_int (val);
+  else if (var == ly_symbol2scm ("point-and-click"))
+    point_and_click_global = to_boolean (val);
   else if (var == ly_symbol2scm ("parse-protect"))
     parse_protect_global = to_boolean (val);
   else if (var == ly_symbol2scm ("internal-type-checking"))
@@ -137,6 +141,8 @@ LY_DEFINE (ly_get_option, "ly:get-option", 1, 0, 0, (SCM var),
           "@table @code\n"
           "@item old-relative-used\n"
           "Report whether old-relative compatibility mode is necessary\n"
+          "@item point-and-click\n"
+          "Report whether point & click is switched on.\n"
           "@item old-relative\n"
           "Report whether old-relative compatibility mode is used\n"
           "@item verbose\n"