source file of the GNU LilyPond music typesetter
- (c) 2002--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 2002--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
class Context_specced_music_iterator : public Music_wrapper_iterator
{
public:
- VIRTUAL_COPY_CONS(Music_iterator);
DECLARE_SCHEME_CALLBACK(constructor,());
virtual void construct_children ();
};
Context_specced_music_iterator::construct_children ()
{
SCM ct = get_music ()->get_mus_property ("context-type");
- String c_type;
- if (gh_string_p (ct))
- c_type = ly_scm2string (ct);
-
+
String c_id;
SCM ci = get_music ()->get_mus_property ("context-id");
if (gh_string_p (ci))
c_id = ly_scm2string (ci);
+ SCM ops = get_music ()->get_mus_property ("property-operations");
Translator_group* a
- =report_to ()->find_create_translator (c_type, c_id);
-
- set_translator (a);
+ = get_outlet ()->find_create_translator (ct, c_id, ops);
+
+ if (a)
+ set_translator (a);
Music_wrapper_iterator::construct_children();
}