X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Fmove-specific-text.ly;h=53dbec836f707cd196d64efc48e56cb45d20f984;hb=f7322110755e46623208fe6754805224c865d9ac;hp=80b4256bb4896f6ad2ed6607d7291773d962bb0c;hpb=68a168bff1fec7f8011b2afa82d4fc89182c4bf7;p=lilypond.git

diff --git a/input/test/move-specific-text.ly b/input/test/move-specific-text.ly
index 80b4256bb4..53dbec836f 100644
--- a/input/test/move-specific-text.ly
+++ b/input/test/move-specific-text.ly
@@ -1,14 +1,20 @@
-\version "1.3.146"
+
+\version "2.10.0"
+% possible rename to scheme- or something like that.  -gp
+\header { texidoc = "@cindex Scheme Move Text
+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 "m.d.")
-      #'extra-offset = #'(-3.5 . -4.5)
+  \relative c''' {
+    \stemUp
+    \applyOutput #'Voice #(outputproperty-compatibility (make-text-checker (make-simple-markup "m.d."))
+      'extra-offset '(-3.5 . -4.5))
     a^2^"m.d."
   }
-  \paper { linewidth = -1. }
+  \layout { ragged-right = ##t}
 }
+