More (final) docs for music expressions.

[lilypond.git] / input / test / move-specific-text.ly

diff --git a/input/test/move-specific-text.ly b/input/test/move-specific-text.ly
index d3138d529f79f15d6e2501061aa5c963c2eb9392..f1d3fce309a2d16a6d4c2583ca74861d21f5b28f 100644 (file)
--- a/input/test/move-specific-text.ly
+++ b/input/test/move-specific-text.ly
@@ -1,20 +1,20 @@
-#(ly:set-option 'old-relative)
-\version "1.9.1"
+
+\version "2.7.32"
 % possible rename to scheme- or something like that.  -gp
 \header { texidoc = "@cindex Scheme Move Text
-You can move objects around with scheme.  This example shows how to
-move text around. " }
+Objects, like text, can be moved around by using some Scheme code.
+" }
 
 #(define (make-text-checker text)
-   (lambda (grob) (equal? text (ly:get-grob-property grob 'text))))
+   (lambda (grob) (equal? text (ly:grob-property grob 'text))))
 
 \score {
-  \notes\relative c''' {
-    \property Voice.Stem \set #'direction = #1
-    \outputproperty #(make-text-checker (make-simple@\markup "m.d."))
-      #'extra-offset = #'(-3.5 . -4.5)
+  \relative c''' {
+    \stemUp
+    \applyOutput #(outputproperty-compatibility (make-text-checker (make-simple-markup "m.d."))
+      'extra-offset '(-3.5 . -4.5))
     a^2^"m.d."
   }
-  \paper { raggedright = ##t}
+  \layout { ragged-right = ##t}
 }