gtk: Export surface-ink?, set-surface-ink-position!.

Removed (renamed) set-surface-ink!.

diff --git a/src/gtk/fix-demo.scm b/src/gtk/fix-demo.scm
index 44ebe0d605ca4e800e8186f8c53ef6ceb20ddbf3..769b785adcf0ad02d0b9cdb84b77598b5a004b50 100644 (file)
--- 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 5098d3f06da072eb2299f92502b38595d17a5061..1feaa294532aca5cf974f09b7a9e95eebffe9403 100644 (file)
--- 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))
 \f
 

diff --git a/src/gtk/gtk.pkg b/src/gtk/gtk.pkg
index d319d68bc1fa873adc3e292411a24960028291c1..afdf27086cf05ced45ec9fed64613f98bd4e9da9 100644 (file)
--- a/src/gtk/gtk.pkg
+++ b/src/gtk/gtk.pkg
@@ -324,7 +324,8 @@ USA.
 
          <image-ink> make-image-ink-from-file set-image-ink!
 
-         <surface-ink> make-surface-ink surface-ink-surface set-surface-ink!
+         <surface-ink> surface-ink? make-surface-ink
+         surface-ink-surface set-surface-ink-position!
 
          <box-ink> box-ink? make-box-ink
          set-box-ink! set-box-ink-position!