Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / lily / instrument-name-engraver.cc

diff --git a/lily/instrument-name-engraver.cc b/lily/instrument-name-engraver.cc
index f3f1d9018563401749235d16a143c62c8472e328..a2bf75a777eb767b1dacf6890f59c7540a7317f6 100644 (file)
--- a/lily/instrument-name-engraver.cc
+++ b/lily/instrument-name-engraver.cc
@@ -13,6 +13,7 @@
 #include "axis-group-interface.hh"
 #include "align-interface.hh"
 #include "text-interface.hh"
+#include "system.hh"
 
 #include "translator.icc"
 
@@ -53,8 +54,9 @@ Instrument_name_engraver::process_music ()
          || Text_interface::is_markup (short_text))
        {
          text_spanner_ = make_spanner ("InstrumentName", SCM_EOL);
-         text_spanner_->set_bound (LEFT,
-                                   unsmob_grob (get_property ("currentCommandColumn")));
+         
+         Grob *col = unsmob_grob (get_property ("currentCommandColumn"));
+         text_spanner_->set_bound (LEFT, col);
          text_spanner_->set_property ("text", short_text);
          text_spanner_->set_property ("long-text", long_text);
        }
@@ -84,6 +86,16 @@ Instrument_name_engraver::finalize ()
                                unsmob_grob (get_property ("currentCommandColumn")));
 
       Pointer_group_interface::set_ordered (text_spanner_, ly_symbol2scm ("elements"), false);
+
+      System *system = get_root_system (text_spanner_);
+
+      /*
+       UGH, should handle this in Score_engraver.
+       */
+      if (system)
+       Axis_group_interface::add_element (system, text_spanner_);
+      else
+       text_spanner_->programming_error ("can't find root system");
     }
 }
 
@@ -99,7 +111,8 @@ ADD_TRANSLATOR (Instrument_name_engraver,
                /* create */
                "InstrumentName ",
                
-               /* accept */ "",
+               /* accept */
+               "",
                
                /* read */
                "vocNam vocalName instrument instr "