]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/markup-commands.ly
Imported Upstream version 2.14.2
[lilypond.git] / input / regression / markup-commands.ly
index 688cd2e6a614f729a0b49fcd1658762bbb3a0c02..5f52e9bb65c12ba84ff7af33c69f4709d727b74c 100644 (file)
@@ -5,33 +5,42 @@
 
 }
 \paper { ragged-right = ##T }
-\version "2.12.0"
+\version "2.14.0"
 
-{
-  g'_\markup {
-    \column {
-      \line { 
-       foo \magnify #2 foo
-       LOWER \lower #3 LOWER
-       \large \bold { normal \normal-text normal }
-       Small-Caps \smallCaps   Small-Caps
-      }
-      
-      \override #'(line-width . 50) 
-      \override #'(bla . "This is a field containing text. Blah blah
-blah.  This is a field containing text. Blah blah blah.  This is a
-field containing text. Blah blah blah.  This is a field containing
-text. Blah blah blah. This is a field containing text. Blah blah
-blah.") 
-      \column  {
-       justify:
-       \justify-field #'bla
-       wordwrap:
-       \wordwrap-field #'bla
+\score{
+  {
+    g'_\markup {
+      \column {
+        \line {
+          foo \magnify #2 foo
+          LOWER \lower #3 LOWER
+          \large \bold { normal \normal-text normal }
+          Small-Caps \smallCaps        Small-Caps
+        }
+
+        \override #'(line-width . 50)
+        \override #'(bla . "This is a field containing text. Blah blah
+  blah.  This is a field containing text. Blah blah blah.  This is a
+  field containing text. Blah blah blah.  This is a field containing
+  text. Blah blah blah. This is a field containing text. Blah blah
+  blah.")
+        \column  {
+          justify:
+          \justify-field #'bla
+          wordwrap:
+          \wordwrap-field #'bla
+        }
+
+        draw-line: \draw-line #'(5 . 3)
+        \underline "underlined"
       }
+    }
+  }
 
-      draw-line: \draw-line #'(5 . 3)
-      \underline "underlined"
+  \layout {
+    \context {
+      \Score
+      \override PaperColumn #'keep-inside-line = ##f
     }
   }
 }