X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.entry.lisp;h=c4362aed040aaee94f91850534977ca7f45e5e6b;hb=586cdfb30c25058e139fff0484af8761f8735746;hp=0d4300f671b9bb2e98003ce38e931ac20a6c0b1d;hpb=0ff51b71441ef2265a4a0eb54f14204932c1ba04;p=cl-gtk2.git

diff --git a/gtk/gtk.entry.lisp b/gtk/gtk.entry.lisp
index 0d4300f..c4362ae 100644
--- a/gtk/gtk.entry.lisp
+++ b/gtk/gtk.entry.lisp
@@ -86,7 +86,7 @@
   (start-pos :int)
   (end-pos :int))
 
-(defun editable-get-chars (editable &key (start -1) (end -1))
+(defun editable-get-chars (editable &key (start 0) (end -1))
   (gtk-editable-get-chars editable start end))
 
 (export 'editable-get-chars)
@@ -111,30 +111,6 @@
 
 (export 'editable-delete-selection)
 
-(defcfun (editable-position "gtk_editable_get_position") :int
-  (editable (g-object editable)))
-
-(defcfun gtk-editable-set-position :void
-  (editable (g-object editable))
-  (pos :int))
-
-(defun (setf editable-position) (position editable)
-  (gtk-editable-set-position editable position))
-
-(export 'editable-position)
-
-(defcfun (editable-editable "gtk_editable_get_editable") :boolean
-  (editable (g-object editable)))
-
-(defcfun gtk-editable-set-editable :void
-  (editable (g-object editable))
-  (is-editable :boolean))
-
-(defun (setf editable-editable) (is-editable editable)
-  (gtk-editable-set-editable editable is-editable))
-
-(export 'editable-editable)
-
 ;; GtkEntryCompletion
 
 (define-cb-methods entry-completion-match-func :boolean