X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Fmove-specific-text.ly;h=6e08655a10e50388e4202655c393337edef4d46a;hb=80bb174de95ebb8a08e5bdfae0855c525b8e7736;hp=91fb1e2f0da205c286dbd658483c0c50f5af4b70;hpb=4c8187e65dd9708d7733692842acc696da121bf1;p=lilypond.git

diff --git a/input/test/move-specific-text.ly b/input/test/move-specific-text.ly
index 91fb1e2f0d..6e08655a10 100644
--- a/input/test/move-specific-text.ly
+++ b/input/test/move-specific-text.ly
@@ -1,16 +1,16 @@
 
-\version "2.1.7"
+\version "2.1.30"
 % 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
+    \override Stem  #'direction = #1
     \applyoutput #(outputproperty-compatibility (make-text-checker (make-simple-markup "m.d."))
       'extra-offset '(-3.5 . -4.5))
     a^2^"m.d."