;; 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.4 2001-05-29 15:53:32 espen Exp $
+;; $Id: gdktypes.lisp,v 1.5 2001-11-12 22:29:17 espen Exp $
(in-package "GDK")
(eval-when (:compile-toplevel :load-toplevel :execute)
- (init-types-in-library "/opt/gnome/lib/libgdk-x11-1.3.so")
- (init-types-in-library "/opt/gnome/lib/libgdk_pixbuf-1.3.so"))
+ (init-types-in-library "libgdk-x11-1.3.so")
+ (init-types-in-library "libgdk_pixbuf-1.3.so"))
(defclass color (boxed)
((pixel
;; Common Lisp bindings for GTK+ v2.0
-;; Copyright (C) 1999-2001 Espen S. Johnsen <esj@stud.cs.uit.no>
+;; Copyright (C) 1999-2001 Espen S. Johnsen <espen@users.sourceforge.org>
;;
;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
;; 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.11 2001-10-25 08:16:17 espen Exp $
+;; $Id: gtkobject.lisp,v 1.12 2001-11-12 22:33:08 espen Exp $
(in-package "GTK")
;;;; Superclass for the gtk class hierarchy
(eval-when (:compile-toplevel :load-toplevel :execute)
- (init-types-in-library
- "/opt/gnome/lib/libgtk-x11-1.3.so"
+ (init-types-in-library "libgtk-x11-1.3.so"
:ignore ("gtk_window_get_type_hint"))
(defclass %object (gobject)
;; Common Lisp bindings for GTK+ v2.0.x
-;; Copyright (C) 1999-2001 Espen S. Johnsen <esj@stud.cs.uit.no>
+;; Copyright (C) 1999-2001 Espen S. Johnsen <espen@users.sourceforge.org>
;;
;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
;; 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.8 2001-10-21 23:16:31 espen Exp $
+;; $Id: gtktypes.lisp,v 1.9 2001-11-12 22:32:17 espen Exp $
(in-package "GTK")
:accessor adjustment-upper
:initarg :upper
:type single-float)
- (value
+ (%value ; to get the offset right
:allocation :alien
- :accessor adjustment-value
- :initarg :value
:type single-float)
(step-increment
:allocation :alien
:allocation :alien
:accessor adjustment-page-size
:initarg :page-size
+ :type single-float)
+ (value
+ :allocation :virtual
+ :getter "gtk_adjustment_get_value"
+ :setter "gtk_adjustment_set_value"
+ :accessor adjustment-value
+ :initarg :value
:type single-float))
(:metaclass gobject-class)
(:alien-name "GtkAdjustment"))
("GtkAdjustment" :ignore t)
- ;; Temporary disabled
- ("GtkCellRenderer" :ignore-prefix t)
-
-
;; Manual override
("GtkWidget"
:slots
:slots
((child
:allocation :virtual
- :getter bin-child
- :setter (setf bin-child))))
+ :getter "gtk_bin_get_child"
+ :setter (setf bin-child)
+ :reader bin-child
+ :type widget)))
("GtkTooltips"
:slots
;; Common Lisp bindings for GTK+ v2.0
-;; Copyright (C) 2001 Espen S. Johnsen <esj@stud.cs.uit.no>
+;; Copyright (C) 2001 Espen S. Johnsen <espen@users.sourceforge.org>
;;
;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
;; 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: pango.lisp,v 1.2 2001-05-29 16:56:13 espen Exp $
+;; $Id: pango.lisp,v 1.3 2001-11-12 22:37:21 espen Exp $
(in-package "PANGO")
(eval-when (:compile-toplevel :load-toplevel :execute)
- (init-types-in-library
- "/opt/gnome/lib/libpango.so"
- :ignore ("_pango_fribidi_get_type"))
+ (init-types-in-library "libpango.so" :ignore ("_pango_fribidi_get_type"))
(define-types-by-introspection "Pango"))