release commit

[lilypond.git] / input / test / spanner-after-break-tweak.ly

diff --git a/input/test/spanner-after-break-tweak.ly b/input/test/spanner-after-break-tweak.ly
index 742acc3bf1a66c4bbec1a90adad5bda568baabac..939cb6b439c18a777fe10b6567c1723bac74b674 100644 (file)
--- a/input/test/spanner-after-break-tweak.ly
+++ b/input/test/spanner-after-break-tweak.ly
@@ -1,33 +1,34 @@
-\version "1.7.21"
+
+\version "2.1.30"
 
 \header { texidoc = "@cindex Spanner after break
 
-To selectively tweak spanners after the linebreaking
-process, Scheme code must be used.  In this simple example, the tie
-after the line break is moved around. "
+In order to selectively change the properties of spanners after 
+a line break, Scheme code must be used.  In thas manner, the tie
+after the line break in this example is moved around. "
 
       }
 
 #(define (my-callback grob)
   (let* (
-      (o (ly:get-original grob))
-      (b (if (ly:grob? o) (ly:get-broken-into o) '() ))
+      (o (ly:grob-original grob))
+      (b (if (ly:grob? o) (ly:spanner-broken-into o) '() ))
       )
 
     ;; Call the equivalent of Tie::after_line_breaking
     ;; if you're using this for other grob-types.
     
     (if (and  (>= (length b) 2) (eq? (car (last-pair b)) grob))
-       (ly:set-grob-property! grob 'extra-offset '(-2 . -1))
+       (ly:grob-set-property! grob 'extra-offset '(-2 . -1))
        )
   ))
 
 #(debug-enable 'backtrace)
 
-\score {\notes { 
-    \property Voice.Tie \override #'after-line-breaking-callback =
+\score {\notes \relative c'' { 
+    \override Tie  #'after-line-breaking-callback =
        #my-callback
-    c1\break ~ c2 ~ c
+    c1 ~ \break c2 ~ c
 }
     \paper { raggedright = ##t } 
     }