;; Uncomment and edit the next line if pkg-config needs to search for
;; .pc files in directories other than the default (/usr/lib/pkgconfig)
-;(push '(:PKG_CONFIG_PATH . "/opt/gnome/lib/pkgconfig") ext:*environment-list*)
+:(push '(:PKG_CONFIG_PATH . "/opt/gnome/lib/pkgconfig") ext:*environment-list*)
(load "clg:tools;config")
(load "clg:tools;sharedlib")
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
-/* $Id: callback.c,v 1.5 2001-10-21 21:59:22 espen Exp $ */
+/* $Id: callback.c,v 1.6 2001-12-12 20:24:41 espen Exp $ */
-#include <gobject/gobject.h>
+#include <glib-object.h>
#ifdef CMUCL
#include "lisp.h"
#endif
-#include <gobject/genums.h>
GEnumValue*
g_enum_class_values (GEnumClass *class, guint *n_values)
{
;; 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: gboxed.lisp,v 1.6 2001-10-21 22:02:01 espen Exp $
+;; $Id: gboxed.lisp,v 1.7 2001-12-12 20:24:41 espen Exp $
(in-package "GLIB")
(eval-when (:compile-toplevel :load-toplevel :execute)
+ (init-types-in-library "libgobject-1.3.so")
(defclass boxed (proxy)
()
(:metaclass proxy-class)
;; 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: gparam.lisp,v 1.4 2001-10-21 21:55:41 espen Exp $
+;; $Id: gparam.lisp,v 1.5 2001-12-12 20:24:41 espen Exp $
(in-package "GLIB")
:type type-number)
(nickname
:allocation :virtual
- :getter "g_param_get_nick"
+ :getter "g_param_spec_get_nick"
:reader param-nickname
:type string)
(documentation
:allocation :virtual
- :getter "g_param_get_blurb"
+ :getter "g_param_spec_get_blurb"
:reader param-documentation
:type string))
(:metaclass ginstance-class)
:type unsigned-int))
(:metaclass ginstance-class))
-(defclass param-closure (param)
- ()
- (:metaclass ginstance-class))
+;; (defclass param-closure (param)
+;; ()
+;; (:metaclass ginstance-class))
(defclass param-object (param)
()
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
-/* $Id: gtkglue.c,v 1.7 2001-10-21 23:22:53 espen Exp $ */
+/* $Id: gtkglue.c,v 1.8 2001-12-12 20:24:41 espen Exp $ */
#include <gtk/gtk.h>
return layout->bin_window;
}
-guint
-gtk_layout_get_xoffset (GtkLayout *layout)
-{
- return layout->xoffset;
-}
-
-void
-gtk_layout_set_xoffset (GtkLayout *layout, guint xoffset)
-{
- return layout->xoffset = xoffset;
-}
-
-guint
-gtk_layout_get_yoffset (GtkLayout *layout)
-{
- return layout->yoffset;
-}
-
-void
-gtk_layout_set_yoffset (GtkLayout *layout, guint yoffset)
-{
- return layout->yoffset = yoffset;
-}
/* List */
;; 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.10 2001-12-12 20:24:41 espen Exp $
(in-package "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)
;; 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: gtkwidget.lisp,v 1.6 2001-11-20 18:25:53 espen Exp $
+;; $Id: gtkwidget.lisp,v 1.7 2001-12-12 20:24:41 espen Exp $
(in-package "GTK")
(defbinding widget-unrealize () nil
(widget widget))
+#|
(defbinding widget-add-accelerator
(widget signal accel-group key modifiers flags) nil
(widget widget)
(defbinding (widget-accelerators-locked-p "gtk_widget_accelerators_locked")
() boolean
(widget widget))
+|#
(defbinding widget-event () int
(widget widget)