X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.text.lisp;h=a24686915d6d93e69bd7ca4b9800d8f3a7753871;hb=081b34b89b88e9db6b3177e71b616869560bb1b0;hp=85d611d79021cb41be3bcd4df36f5031b10aab1e;hpb=dea09132ac7d8cc9c6fad7246c66ea9c484015fb;p=cl-gtk2.git

diff --git a/gtk/gtk.text.lisp b/gtk/gtk.text.lisp
index 85d611d..a246869 100644
--- a/gtk/gtk.text.lisp
+++ b/gtk/gtk.text.lisp
@@ -892,20 +892,20 @@
   (y-align :double))
 
 (defun text-view-scroll-to-mark (text-view mark &key (within-margin 0.4) (x-align 0.0 x-align-supplied) (y-align 0.0 y-align-supplied))
-  (gtk-text-view-scroll-to-mark text-view mark within-margin (or x-align-supplied y-align-supplied) (coerce x-align 'double-float) (coerce y-align 'double-float)))
+  (gtk-text-view-scroll-to-mark text-view mark (coerce within-margin 'double-float) (or x-align-supplied y-align-supplied) (coerce x-align 'double-float) (coerce y-align 'double-float)))
 
 (export 'text-view-scroll-to-mark)
 
 (defcfun gtk-text-view-scroll-to-iter :void
   (text-view (g-object text-view))
-  (iter (g-object text-iter))
+  (iter (g-boxed-foreign text-iter))
   (within-margin :double)
   (use-align :boolean)
   (x-align :double)
   (y-align :double))
 
 (defun text-view-scroll-to-iter (text-view iter &key (within-margin 0.4) (x-align 0.0 x-align-supplied) (y-align 0.0 y-align-supplied))
-  (gtk-text-view-scroll-to-iter text-view iter within-margin (or x-align-supplied y-align-supplied) (coerce x-align 'double-float) (coerce y-align 'double-float)))
+  (gtk-text-view-scroll-to-iter text-view iter (coerce within-margin 'double-float) (or x-align-supplied y-align-supplied) (coerce x-align 'double-float) (coerce y-align 'double-float)))
 
 (export 'text-view-scroll-to-iter)