* scm/define-grob-interfaces.scm (string-finger-interface): add string-finger-interface

* scm/define-grobs.scm (all-grob-descriptions): add 'string-names
property.

* scm/define-grobs.scm (all-grob-descriptions): add ScriptRow

diff --git a/ChangeLog b/ChangeLog
index 5b48a3c217140bc4e50480699af58186cd557af6..3c54725feb6964fe0c60109eb2f12c87e81e1f2c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2006-10-15  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
+       * scm/define-grob-interfaces.scm (string-finger-interface): add string-finger-interface
+
        * lily/general-scheme.cc (LY_DEFINE): move
        ly_camel_case_to_lisp_identifier to here. Use vector<char> iso. char[] 
 

diff --git a/scm/define-grob-interfaces.scm b/scm/define-grob-interfaces.scm
index 59ff1593a77029bebd447e554e6716b0e2b84b6e..cca3a16c7dd3de505fc588aff2e4606e2f82966b 100644 (file)
--- a/scm/define-grob-interfaces.scm
+++ b/scm/define-grob-interfaces.scm
@@ -144,6 +144,11 @@ are interesting enough to maintain a hara-kiri staff."
  "A string number instruction"
  '())
 
+(ly:add-interface
+ 'string-finger-interface
+ "A string finger instruction"
+ '(digit-names))
+
 (ly:add-interface
  'system-start-text-interface
  "A text at the beginning of a system."

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index c7c1758a987e2daa312e2249e95215c1cee008c7..c36c950eb6208086ee126de387bf8ef63efc5131 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -1561,7 +1561,7 @@
        (font-shape . italic)
        (font-size . -4)                ; don't overlap when next to heads.
        (meta . ((class . Item)
-                (interfaces . (string-number-interface
+                (interfaces . (string-finger-interface
                                font-interface
                                text-script-interface
                                text-interface