From 8d5400ce1575debc35eee1616d5623e84a8f28dc Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 14 Nov 2004 15:41:39 +0000 Subject: [PATCH] (text): uncomment dribble. --- lily/lilypond-key.cc | 2 +- scm/output-gnome.scm | 14 ++++++++------ 2 files changed, 9 insertions(+), 7 deletions(-) diff --git a/lily/lilypond-key.cc b/lily/lilypond-key.cc index 80031c6fd3..21d3f6ed61 100644 --- a/lily/lilypond-key.cc +++ b/lily/lilypond-key.cc @@ -212,7 +212,7 @@ Lilypond_general_key::do_compare (Object_key const* key)const if (c) return c; - +v c = sign (disambiguation_count_ - other->disambiguation_count_); if (c) return c; diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm index bdb49bc385..d15c9951d7 100644 --- a/scm/output-gnome.scm +++ b/scm/output-gnome.scm @@ -280,12 +280,14 @@ lilypond -fgnome input/simple-song.ly ;;design:20.0 (define (text font string) - (stderr "font-name: ~S\n" (ly:font-name font)) - ;; TODO s/filename/file-name/ - (stderr "font-filename: ~S\n" (ly:font-filename font)) - - (stderr "pango-font-name: ~S\n" (pango-font-name font)) - (stderr "pango-font-size: ~S\n" (pango-font-size font)) + (if #f + (begin + (stderr "font-name: ~S\n" (ly:font-name font)) + ;; TODO s/filename/file-name/ + (stderr "font-filename: ~S\n" (ly:font-filename font)) + + (stderr "pango-font-name: ~S\n" (pango-font-name font)) + (stderr "pango-font-size: ~S\n" (pango-font-size font)))) (make #:parent (canvas-root) -- 2.39.5