From: janneke <janneke>
Date: Fri, 17 Sep 2004 15:18:34 +0000 (+0000)
Subject: Small fixes.
X-Git-Tag: release/2.3.24^2~199
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b7d44e4b13b3c7d80854231337d09d200da0d07b;p=lilypond.git

Small fixes.
---

diff --git a/ChangeLog b/ChangeLog
index 676d9710ed..c6ea2b280b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-09-17  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+	* scm/output-gnome.scm: Small fixes.
+
 	* buildscripts/guile-gnome.sh: Getting close to 2.6.0 release.
 
 2004-09-16  Juergen Reuter  <reuter@ipd.uka.de>
diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm
index 3ac60a1838..2b6b43881c 100644
--- a/scm/output-gnome.scm
+++ b/scm/output-gnome.scm
@@ -22,8 +22,8 @@
 ;;; You need:
 ;;;
 ;;;   * Rotty's g-wrap >= 1.9.1 (or TLA)
-;;;   * guile-gnome-platform >= 2.5.990 (or TLA)
-;;;   * pango >= 1.5.1 (or CVS)
+;;;   * guile-gnome-platform >= 2.5.992 (or TLA)
+;;;   * pango >= 1.5.2 (or CVS)
 ;;;
 ;;; See also: guile-gtk-general@gnu.org
 
@@ -159,9 +159,7 @@ lilypond-bin -fgnome input/simple-song.ly
 	  (move item
 		(* output-scale (+ (car system-origin) x))
 		(* output-scale (- (car system-origin) y)))
-	  ;; UGH latest guile-gnome is broken
-	  (if (defined? 'affine-relative)
-	      (affine-relative item output-scale 0 0 output-scale 0 0))
+	  (affine-relative item output-scale 0 0 output-scale 0 0)
 	  item)
 	#f)))
 
@@ -219,15 +217,9 @@ lilypond-bin -fgnome input/simple-song.ly
   
   (make <gnome-canvas-text>
     #:parent (canvas-root)
-    
-    ;; experimental text placement corrections.
-    ;; UGHR?  What happened to tex offsets?  south-west?
-    ;; is pango doing something 'smart' wrt baseline ?
-    #:anchor 'south-west
-    #:x 0.003 #:y 0.123
-    
-    ;;#:anchor 'west
-    ;;#:x 0.015 #:y -3.71
+
+    #:anchor 'west
+    #:x 0.0 #:y 0.0
     
     #:font (pango-font-name font)