Makes outside-staff-property work for TupletNumber. (issue4530112)

[mtsolo]

Reviewers: ,

Message:
> Making 'outside-staff-priority work properly for tuplets
> would be a useful addition.  Probably easier than adding an
'avoid-tuplet >property.

> Trevor

I think this does the trick.

Cheers,
MS

Description:
Makes outside-staff-property work for TupletNumber.

Please review this at http://codereview.appspot.com/4530112/

Affected files:
  M scm/define-grobs.scm
  M scm/output-lib.scm


Index: scm/define-grobs.scm
diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index  
84c3f72f8fbb72c715ebab652bd81c2780b31998..c1a2b2afe1be7cb1cd13fbe185bdcef36961d2e9  
100644
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -2341,6 +2341,7 @@
      . (
        (avoid-slur . inside)
        (cross-staff . ,ly:tuplet-number::calc-cross-staff)
+       (direction  . ,tuplet-number::calc-direction)
        (font-shape . italic)
        (font-size . -2)
        (stencil . ,ly:tuplet-number::print)
Index: scm/output-lib.scm
diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index  
c25edf31f68a93de749a87e69e26cd4dde6dfc3d..54d04174a06e1861cf4347df7d9c29b8e2de71e3  
100644
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -327,6 +327,9 @@ and duration-log @var{log}."
 (define-public (tuplet-number::calc-denominator-text grob)
   (number->string (ly:event-property (event-cause grob) 'denominator)))

+(define-public (tuplet-number::calc-direction grob)
+  (ly:tuplet-bracket::calc-direction (ly:grob-object grob 'bracket)))
+
 (define-public (tuplet-number::calc-fraction-text grob)
   (let ((ev (event-cause grob)))