update, polish.

[lilypond.git] / scm / define-grobs.scm

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index d00feae8cd2686e30a5e150af919cacf7828ddc7..04818dcd1552884ee8606c279803592aacfd8f9a 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -507,12 +507,14 @@
     (GridLine
      . (
        (print-function . ,Grid_line_interface::print)
-       (X-extent . (0 . 0))
+       (X-extent-callback  . ,Grid_line_interface::width_callback)
+       (self-alignment-X . ,CENTER)
+       (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self
+                              ,Self_alignment_interface::centered_on_parent))
        (layer . 0)
        (meta . ((interfaces . (grid-line-interface)))
        )))
        
-
     (Hairpin
      . (
        (print-function . ,Hairpin::print)
@@ -918,7 +920,6 @@
      . (
        (Y-offset-callbacks . (,Hara_kiri_group_spanner::force_hara_kiri_callback))
        (Y-extent-callback . ,Hara_kiri_group_spanner::y_extent)
-       (remove-first . #t)
        (axes . (1))
        (meta . ((interfaces . (axis-group-interface
                                vertically-spaceable-interface hara-kiri-group-interface