From 55d45442df0ccbc9495e3c7bcd5d3a324e8a0251 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 3 Apr 2005 20:26:29 +0000 Subject: [PATCH] * 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. --- lily/grob.cc | 2 +- lily/include/main.hh | 1 + lily/scm-option.cc | 6 ++++++ 3 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lily/grob.cc b/lily/grob.cc index 4fdce86481..ed1c5dd752 100644 --- 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 c7fcad21d0..a5a570356e 100644 --- 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 3fc6a3b726..d263a76ae2 100644 --- 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" -- 2.39.2