* scm/output-gnome.scm (grob-cause): Add parameter.

* scm/lily.scm (ly:all-stencil-expressions): Add url-link.
* scm/output-ps.scm (url-link): Move.
(white-text): Warn user about brokenness.

diff --git a/ChangeLog b/ChangeLog
index 7b03f96716fce5fb92ab4f6e008a9a0a766b2c93..6c386c18b795c8f2fed72fff522d19bdbfa06fe5 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2005-03-01  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+       * scm/output-gnome.scm (grob-cause): Add parameter.
+
+       * scm/lily.scm (ly:all-stencil-expressions): Add url-link.
+       * scm/output-ps.scm (url-link): Move.
+       (white-text): Warn user about brokenness.
+
        * Documentation/topdocs/NEWS.tely: Be more accurate and respectful
        wrt ghostscript.
 

diff --git a/scm/lily.scm b/scm/lily.scm
index 5721296ab76a42145fe09503f9721da22a45f82e..6a6c8c64745673baaf50f17d75f535d0f0da7324 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -139,6 +139,7 @@ predicates. Print a message at LOCATION if any predicate failed."
     repeat-slash
     round-filled-box
     text
+    url-link
     white-dot
     white-text
     embedded-ps

diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm
index aa73c2ab442db8630a4ccd119444d84dea1485ce..0c0c0ce80dcc4aa369dac8d6f4f19a7d90de1941 100644 (file)
--- a/scm/output-gnome.scm
+++ b/scm/output-gnome.scm
@@ -338,7 +338,7 @@ lilypond -fgnome input/simple-song.ly
                  (ly:font-glyph-name-to-charcode font (caddr x))))))
    x-y-named-glyphs))
 
-(define (grob-cause grob)
+(define (grob-cause offset grob)
   grob)
 
 ;; WTF is this in every backend?

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index fbdffd487b0058ec08c9250b42a3693342a209ab..b96b6a03982828feaef315469a19a157e372bd61 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -235,14 +235,6 @@
                (caddr location))
        "")))
 
-(define (url-link url x y)
-  (format "~a ~a ~a ~a (~a) mark_URI"
-         (car x)
-         (car y)
-         (cdr x)
-         (cdr y)
-         url))
-
 ;; WTF is this in every backend?
 (define (horizontal-line x1 x2 th)
   (draw-line th x1 0 x2 0))
@@ -305,6 +297,23 @@
              (string-append "/" (symbol->string sym) " glyphshow")))
        out-vec))))))
 
+(define (unknown) 
+  "\n unknown\n")
+
+(define (url-link url x y)
+  (format "~a ~a ~a ~a (~a) mark_URI"
+         (car x)
+         (car y)
+         (cdr x)
+         (cdr y)
+         url))
+
+(define (white-dot x y radius)
+  (string-append
+   " "
+   (ly:numbers->string
+    (list x y radius)) " draw_white_dot"))
+
 ;; FIXME: BARF helvetica?
 (define (white-text scale s)
   (let ((mystring (string-append
@@ -313,20 +322,12 @@
                   " draw_white_text")))
     mystring
 
-
-    ;; FIXME: broken with user install of GS 8.x
+    ;; FIXME
+    (ly:warn "FIXME: white-text broken for Han-Wen's $HOME install of GS 8.x")
+    
     ""
     ))
 
-(define (unknown) 
-  "\n unknown\n")
-
-(define (white-dot x y radius)
-  (string-append
-   " "
-   (ly:numbers->string
-    (list x y radius)) " draw_white_dot"))
-
 (define (zigzag-line centre? zzw zzh thick dx dy)
   (string-append
    (if centre? "true" "false") " "