X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/56460319be51dd9ffc1005dca03a7b145ff4734b..b030f2d9b679b9b18db0356ab0f2a2086ea61939:/gtk/gtktypes.lisp diff --git a/gtk/gtktypes.lisp b/gtk/gtktypes.lisp index a230ad1..41d998a 100644 --- a/gtk/gtktypes.lisp +++ b/gtk/gtktypes.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: gtktypes.lisp,v 1.9 2001-11-12 22:32:17 espen Exp $ +;; $Id: gtktypes.lisp,v 1.11 2002-03-19 19:09:18 espen Exp $ (in-package "GTK") @@ -32,7 +32,7 @@ (defclass requisition (boxed) :initarg :height :type int)) (:metaclass boxed-class) - (:alien-name "GtkRequisition")) + (:alien-name "GtkTypeRequisition")) (defclass border (boxed) ((left @@ -56,7 +56,7 @@ (defclass border (boxed) :initarg :bottom :type int)) (:metaclass boxed-class) - (:alien-name "GtkBorder")) + (:alien-name "GtkTypeBorder")) (defclass adjustment (%object) ((lower @@ -419,20 +419,7 @@ (define-types-by-introspection "Gtk" ((bin-window :getter "gtk_layout_get_bin_window" :reader layout-bin-window - :type gdk:window) - (x-offset - :getter "gtk_layout_get_xoffset" - :setter "gtk_layout_set_xoffset" - :accessor layout-x-offset - :initarg :x-offset - :type unsigned-int) - (y-offset - :getter "gtk_layout_get_yoffset" - :setter "gtk_layout_set_yoffset" - :accessor layout-y-offset - :initarg :x-offset - :type unsigned-int))) - + :type gdk:window))) ;; Not needed ("GtkFundamentalType" :ignore t)