;; 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: gdktypes.lisp,v 1.6 2002-01-20 14:14:38 espen Exp $
+;; $Id: gdktypes.lisp,v 1.7 2002-03-19 19:06:22 espen Exp $
(in-package "GDK")
(eval-when (:compile-toplevel :load-toplevel :execute)
- (init-types-in-library "libgdk-x11-1.3.so")
- (init-types-in-library "libgdk_pixbuf-1.3.so"))
+ (init-types-in-library "libgdk-x11-2.0.so")
+ (init-types-in-library "libgdk_pixbuf-2.0.so"))
(defclass color (boxed)
((pixel
;; 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: gtkobject.lisp,v 1.12 2001-11-12 22:33:08 espen Exp $
+;; $Id: gtkobject.lisp,v 1.13 2002-03-19 19:09:18 espen Exp $
(in-package "GTK")
;;;; Superclass for the gtk class hierarchy
(eval-when (:compile-toplevel :load-toplevel :execute)
- (init-types-in-library "libgtk-x11-1.3.so"
+ (init-types-in-library "libgtk-x11-2.0.so"
:ignore ("gtk_window_get_type_hint"))
(defclass %object (gobject)
(:property (find-class 'effective-child-slot-definition))
(t (call-next-method))))
+(progn
+ (declaim (optimize (ext:inhibit-warnings 3)))
+ (defun %container-child-get-property (parent child pname gvalue))
+ (defun %container-child-set-property (parent child pname gvalue)))
+
+
(defmethod compute-virtual-slot-accessors
((class child-class) (slotd effective-child-slot-definition) direct-slotds)
+
(with-slots (type) slotd
(let ((pname (slot-definition-pname (first direct-slotds)))
(type-number (find-type-number type)))
;; 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.10 2001-12-12 20:24:41 espen Exp $
+;; $Id: gtktypes.lisp,v 1.11 2002-03-19 19:09:18 espen Exp $
(in-package "GTK")
:initarg :height
:type int))
(:metaclass boxed-class)
- (:alien-name "GtkRequisition"))
+ (:alien-name "GtkTypeRequisition"))
(defclass border (boxed)
((left
:initarg :bottom
:type int))
(:metaclass boxed-class)
- (:alien-name "GtkBorder"))
+ (:alien-name "GtkTypeBorder"))
(defclass adjustment (%object)
((lower