X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fcontext-specced-music-iterator.cc;h=fc4f35d666d11a6d55d38ee4084db131abd35e96;hb=f9214bac21e9926dc3248416f58190c98c4167a9;hp=1442f47c93e15f73bec7977432a4e841ee25611e;hpb=e24df7c27635dc996c466295eacf2981bddccaf7;p=lilypond.git diff --git a/lily/context-specced-music-iterator.cc b/lily/context-specced-music-iterator.cc index 1442f47c93..fc4f35d666 100644 --- a/lily/context-specced-music-iterator.cc +++ b/lily/context-specced-music-iterator.cc @@ -1,20 +1,21 @@ -/* +/* context-specced-music-iterator.cc -- implement - Context_specced_music_iterator + Context_specced_music_iterator source file of the GNU LilyPond music typesetter - (c) 2002--2005 Han-Wen Nienhuys - + (c) 2002--2007 Han-Wen Nienhuys */ #include "music-wrapper-iterator.hh" #include "context.hh" +#include "music.hh" + class Context_specced_music_iterator : public Music_wrapper_iterator { public: - DECLARE_SCHEME_CALLBACK (constructor,()); + DECLARE_SCHEME_CALLBACK (constructor, ()); virtual void construct_children (); }; @@ -23,24 +24,24 @@ Context_specced_music_iterator::construct_children () { SCM ct = get_music ()->get_property ("context-type"); - String c_id; + string c_id; SCM ci = get_music ()->get_property ("context-id"); if (scm_is_string (ci)) c_id = ly_scm2string (ci); SCM ops = get_music ()->get_property ("property-operations"); - - Context * a = 0; - if (c_id == "$uniqueContextId") - a = get_outlet ()->create_unique_context (ct, ops); + Context *a = 0; + + if (to_boolean (get_music()->get_property ("create-new"))) + a = get_outlet ()->create_unique_context (ct, c_id, ops); else a = get_outlet ()->find_create_context (ct, c_id, ops); if (a - && to_boolean (get_music ()->get_property ("descend-only")) + && to_boolean (get_music ()->get_property ("descend-only")) && !is_child_context (get_outlet (), a)) a = 0; - + if (a) set_context (a);