]> git.donarmstrong.com Git - lilypond.git/commitdiff
lilypond-1.3.114
authorfred <fred>
Wed, 27 Mar 2002 00:34:04 +0000 (00:34 +0000)
committerfred <fred>
Wed, 27 Mar 2002 00:34:04 +0000 (00:34 +0000)
lily/side-position-interface.cc
scm/element-descriptions.scm

index 60fbcd8a697bec83e633ed95f7d7f659e0eaede1..b1d3923d3f8435991718300f078afff5a1d0fa4a 100644 (file)
@@ -27,10 +27,10 @@ Direction
 Side_position::get_direction (Grob*me)
 {
   SCM d = me->get_grob_property ("direction");
-  if (isdir_b (d))
-    return to_dir (d) ? to_dir (d) : DOWN;
+  if (isdir_b (d) && to_dir (d))
+    return to_dir (d);
 
-  Direction relative_dir = UP;
+  Direction relative_dir = Direction (1);
   SCM reldir = me->get_grob_property ("side-relative-direction");      // should use a lambda.
   if (isdir_b (reldir))
     {
index 15e9b9ff67eeeb270ed722af769c89badc052cf2..af2869cbffd054611bb41ebd8263d960a47f6725 100644 (file)
        (Script . (
                (molecule-callback . ,Script::brew_molecule)
                (X-offset-callbacks . (,Side_position::centered_on_parent))
+               (after-line-breaking-callback . ,Script::after_line_breaking)
                (meta . ,(element-description "Script" script-interface side-position-interface font-interface))
        ))