From e9900caf289cbcb92bd0c17c88a4d49379a2022a Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sun, 13 Sep 2009 17:33:39 +0400 Subject: [PATCH] Move GtkEntry::layout property to generating --- generating.lisp | 1 + gtk/gtk.entry.lisp | 10 +++++----- gtk/gtk.generated-classes.lisp | 2 ++ 3 files changed, 8 insertions(+), 5 deletions(-) diff --git a/generating.lisp b/generating.lisp index 7ff0f82..ebb6b56 100644 --- a/generating.lisp +++ b/generating.lisp @@ -200,6 +200,7 @@ (:cffi gtk::selection-bounds gtk::label-selection-bounds nil gtk::gtk-label-get-selection-bounds nil) (:cffi gtk::layout-offsets gtk::label-layout-offsets nil gtk::gtk-label-get-layout-offsets nil)) ("GtkEntry" + (:cffi gtk::layout gtk::entry-layout g-object "gtk_entry_get_layout" nil) (:cffi gtk::completion gtk::entry-completion (g-object gtk::entry-completion) "gtk_entry_get_completion" "gtk_entry_set_completion") (:cffi gtk::cursor-hadjustment gtk::entry-cursor-hadjustment (g-object gtk::adjustment) "gtk_entry_get_cursor_hadjustment" "gtk_entry_set_cursor_hadjustment") (:cffi gtk::layout-offset gtk::entry-layout-offset nil gtk::gtk-entry-layout-offset nil)))))) diff --git a/gtk/gtk.entry.lisp b/gtk/gtk.entry.lisp index 0b80e87..c21e62f 100644 --- a/gtk/gtk.entry.lisp +++ b/gtk/gtk.entry.lisp @@ -2,11 +2,6 @@ ;; GtkEntry -(defcfun (entry-layout "gtk_entry_get_layout") g-object ;;PangoLayout - (entry (g-object entry))) - -(export 'entry-layout) - (defcfun gtk-entry-get-layout-offsets :void (entry (g-object entry)) (x (:pointer :int)) @@ -36,6 +31,11 @@ (export 'entry-icon-at-pos) +(defcfun (entry-progress-pulse "gtk_entry_progress_pulse") :void + (entry (g-object entry))) + +(export 'entry-progress-pulse) + ;; GtkEditable (defcfun (editable-select-region "gtk_editable_select_region") :void diff --git a/gtk/gtk.generated-classes.lisp b/gtk/gtk.generated-classes.lisp index 98c0767..ff17bed 100644 --- a/gtk/gtk.generated-classes.lisp +++ b/gtk/gtk.generated-classes.lisp @@ -2121,6 +2121,8 @@ (width-chars entry-width-chars "width-chars" "gint" t t) (xalign entry-xalign "xalign" "gfloat" t t) + (:cffi layout entry-layout g-object + "gtk_entry_get_layout" nil) (:cffi completion entry-completion (g-object entry-completion) "gtk_entry_get_completion" "gtk_entry_set_completion") -- 1.7.10.4