From 8fe4db1850510aac5c7ce1cd3a29f3092c82b4c5 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Fri, 17 Sep 2004 15:18:34 +0000 Subject: [PATCH] Small fixes. --- ChangeLog | 2 ++ scm/output-gnome.scm | 20 ++++++-------------- 2 files changed, 8 insertions(+), 14 deletions(-) diff --git a/ChangeLog b/ChangeLog index 676d9710ed..c6ea2b280b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 2004-09-17 Jan Nieuwenhuizen + * scm/output-gnome.scm: Small fixes. + * buildscripts/guile-gnome.sh: Getting close to 2.6.0 release. 2004-09-16 Juergen Reuter 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 #: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) -- 2.39.2