Typo.

[cl-gtk2.git] / gtk / gtk.entry.lisp

diff --git a/gtk/gtk.entry.lisp b/gtk/gtk.entry.lisp
index 0d4300f..5b07e57 100644 (file)
--- 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
@@ -181,7 +157,7 @@
 
 (export 'entry-completion-insert-action-text)
 
-(defcfun (entry-copmletion-insert-action-markup "gtk_entry_completion_insert_action_markup") :void
+(defcfun (entry-completion-insert-action-markup "gtk_entry_completion_insert_action_markup") :void
   (completion (g-object entry-completion))
   (index :int)
   (markup :string))