From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Fri, 13 Feb 2009 13:45:10 +0000 (+0300)
Subject: Fixed gtk:text-buffer-insert handling of len argument
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=bdc57be5099baa30686e37a8d38e5a7ca1e8d058;p=cl-gtk2.git

Fixed gtk:text-buffer-insert handling of len argument
---

diff --git a/gtk/gtk.text.lisp b/gtk/gtk.text.lisp
index 10a994a..8da3690 100644
--- a/gtk/gtk.text.lisp
+++ b/gtk/gtk.text.lisp
@@ -376,11 +376,11 @@
   (assert (typep position '(or text-iter (member :cursor))))
   (if interactive
       (if (eq position :cursor)
-          (gtk-text-buffer-insert-interactive-at-cursor buffer text (length text) default-editable)
-          (gtk-text-buffer-insert-interactive buffer position text (length text) default-editable))
+          (gtk-text-buffer-insert-interactive-at-cursor buffer text -1 default-editable)
+          (gtk-text-buffer-insert-interactive buffer position text -1 default-editable))
       (progn (if (eq position :cursor)
-                 (gtk-text-buffer-insert-at-cursor buffer text (length text))
-                 (gtk-text-buffer-insert buffer position text (length text)))
+                 (gtk-text-buffer-insert-at-cursor buffer text -1)
+                 (gtk-text-buffer-insert buffer position text -1))
              t)))
 
 (export 'text-buffer-insert)