(pango_item_string_stencil): put

[lilypond.git] / scm / output-gnome.scm

diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm
index c26e6cb94c5766ab9c3cbabc951f038c2807e284..db1a496616f9a95294497770be336b42df8f554f 100644 (file)
--- a/scm/output-gnome.scm
+++ b/scm/output-gnome.scm
@@ -248,14 +248,14 @@ lilypond -fgnome input/simple-song.ly
 ;; FIXME: the framework-gnome backend needs to see every item that
 ;; gets created.  All items created here must should be put in a group
 ;; that gets returned.
-(define (glyph-string font postscript-font-name x-y-named-glyphs)
+(define (glyph-string font postscript-font-name w-x-y-named-glyphs)
   (for-each
    (lambda (x)
 
      ;; UGR, glyph names not found
      (stderr "GLYPH:~S\n" (caddr x))
      (stderr "ID:~S\n" (ly:font-glyph-name-to-charcode font (caddr x)))
-     (placebox (car x) (cadr x)
+     (placebox (cadr x) (caddr x)
               (make <gnome-canvas-text>
                 #:parent (canvas-root)
                 ;;#:x 0.0 #:y (if (music-font? font) 0.15 0.69)
@@ -266,8 +266,8 @@ lilypond -fgnome input/simple-song.ly
                 #:size-set #t
                 #:text
                 (integer->utf-8-string
-                 (ly:font-glyph-name-to-charcode font (caddr x))))))
-   x-y-named-glyphs))
+                 (ly:font-glyph-name-to-charcode font (cadddr x))))))
+   w-x-y-named-glyphs))
 
 (define (grob-cause offset grob)
   grob)