{
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 ());
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;
/*
"@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"
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"))
"@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"