release: 1.3.125

[lilypond.git] / scm / generic-property.scm

diff --git a/scm/generic-property.scm b/scm/generic-property.scm
index a786acd0a18c9bc158b30f4c1d5daa6f793336ac..f7256676a6346fc9930d7b6f8a9a17b9a0f4f5bf 100644 (file)
--- a/scm/generic-property.scm
+++ b/scm/generic-property.scm
@@ -120,6 +120,17 @@
        )
   )    
 
+(define generic-bar-number-properties
+  (cons 'bar-number-interface
+       (list
+        (list 'barNumberScriptPadding number? 'padding)
+        (list 'barNumberDirection dir? 'direction)      
+        )
+       
+       )
+  )
+
+  
 ; don't do this yet. Depends on whennn the staff is really announced
 (define generic-staff-symbol-properties
   (cons 'staff-symbol-interface
@@ -144,13 +155,17 @@
 
 (define generic-All-properties
   (cons 'all
-       (list (list 'fontSize number? 'fontsize))))
+       (list (list 'fontSize number? 'font-relative-size))))
 
 
 (define generic-notehead-properties
   (cons 'note-head-interface
        (list (list 'noteHeadStyle symbol? 'style))))
 
+(define generic-notename-properties
+  (cons 'note-name-interface
+       (list (list 'noteNameStyle symbol? 'style))))
+
 
 (define generic-rest-properties
   (cons 'rest-interface