projects
/
cl-gtk2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7aa700b
)
Fixed gtk:text-buffer-insert handling of len argument
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Fri, 13 Feb 2009 13:45:10 +0000
(16:45 +0300)
committer
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Fri, 13 Feb 2009 13:45:10 +0000
(16:45 +0300)
gtk/gtk.text.lisp
patch
|
blob
|
history
diff --git
a/gtk/gtk.text.lisp
b/gtk/gtk.text.lisp
index
10a994a
..
8da3690
100644
(file)
--- 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)
(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)
(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)
t)))
(export 'text-buffer-insert)