From eef13a264d397b4402c071fec06f635dcda564f1 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sat, 13 Apr 2013 10:48:40 -0700 Subject: [PATCH] gtk: Export surface-ink?, set-surface-ink-position!. Removed (renamed) set-surface-ink!. --- src/gtk/fix-demo.scm | 2 +- src/gtk/fix-layout.scm | 2 +- src/gtk/gtk.pkg | 3 ++- 3 files changed, 4 insertions(+), 3 deletions(-) diff --git a/src/gtk/fix-demo.scm b/src/gtk/fix-demo.scm index 44ebe0d60..769b785ad 100644 --- a/src/gtk/fix-demo.scm +++ b/src/gtk/fix-demo.scm @@ -130,7 +130,7 @@ USA. (set-arc-ink-color! arc "gold") (fix-drawing-add-ink! drawing arc) (draw-on-surface surface) - (set-surface-ink! surface 175 175) + (set-surface-ink-position! surface 175 175) (fix-drawing-add-ink! drawing surface) drawing))) diff --git a/src/gtk/fix-layout.scm b/src/gtk/fix-layout.scm index 5098d3f06..1feaa2945 100644 --- a/src/gtk/fix-layout.scm +++ b/src/gtk/fix-layout.scm @@ -1653,7 +1653,7 @@ USA. (C-call "cairo_set_source_surface" cr surface x. y.) (C-call "cairo_paint" cr)))) -(define (set-surface-ink! ink x y) +(define (set-surface-ink-position! ink x y) (set-fix-rect-position! (fix-ink-extent ink) x y)) diff --git a/src/gtk/gtk.pkg b/src/gtk/gtk.pkg index d319d68bc..afdf27086 100644 --- a/src/gtk/gtk.pkg +++ b/src/gtk/gtk.pkg @@ -324,7 +324,8 @@ USA. make-image-ink-from-file set-image-ink! - make-surface-ink surface-ink-surface set-surface-ink! + surface-ink? make-surface-ink + surface-ink-surface set-surface-ink-position! box-ink? make-box-ink set-box-ink! set-box-ink-position! -- 2.25.1