(Lilypond_snippet.notice_include):

[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 f62949461a00b29174541c5fbe97c6274fc80fb7..91fb1e2f0da205c286dbd658483c0c50f5af4b70 100644 (file)
--- a/input/test/move-specific-text.ly
+++ b/input/test/move-specific-text.ly
@@ -1,4 +1,9 @@
-\version "1.7.6"
+
+\version "2.1.7"
+% 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. " }
 
 #(define (make-text-checker text)
    (lambda (grob) (equal? text (ly:get-grob-property grob 'text))))
@@ -6,10 +11,10 @@
 \score {
   \notes\relative c''' {
     \property Voice.Stem \set #'direction = #1
-    \outputproperty #(make-text-checker "m.d.")
-      #'extra-offset = #'(-3.5 . -4.5)
+    \applyoutput #(outputproperty-compatibility (make-text-checker (make-simple-markup "m.d."))
+      'extra-offset '(-3.5 . -4.5))
     a^2^"m.d."
   }
-  \paper { linewidth = -1. }
+  \paper { raggedright = ##t}
 }
-%% new-chords-done %%
+