(fingering::calc-text): use origin

event-property, not music-property.

diff --git a/ChangeLog b/ChangeLog
index 2668d741cb5c09ecc5f037337b46b6fbb01564c5..5c61fadec245b9939f0afcaae26a0af81e519e2f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2006-10-10  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
+       * scm/output-lib.scm (fingering::calc-text): use origin
+       event-property, not music-property.
+
        * lily/lilypond.rc.in: spell my name correctly.
 
 2006-10-10  Joe Neeman  <joeneeman@gmail.com>

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 93e61dd9d96f1c25f31b230169b2d305715697cf..9a5bc4d8d890408247f2a7c52c5891fd13a7e3c9 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -33,6 +33,13 @@
                  layout props (make-circle-markup text))))
     circle))
 
+(define-public (music-cause grob)
+  (let*
+      ((event (event-cause grob)))
+
+    (if (ly:stream-event? event)
+       (ly:event-property event 'music-cause)
+       #f)))
 
 (define-public (event-cause grob)
   (let*
@@ -404,7 +411,7 @@ centered, X==1 is at the right, X == -1 is at the left."
        (digit (ly:event-property event 'digit)))
     
     (if (> digit 5)
-       (ly:input-message (ly:music-property event 'origin)
+       (ly:input-message (ly:event-property event 'origin)
                          "Music for the martians"))
 
     (number->string digit 10)