X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/3a63ef2a6c503a66bf1559fc60f5e3e07d0838be..57e4839d54020363a38e0872abefafc63697beeb:/gdk/gdktypes.lisp diff --git a/gdk/gdktypes.lisp b/gdk/gdktypes.lisp index 58a5b3b..07a303b 100644 --- a/gdk/gdktypes.lisp +++ b/gdk/gdktypes.lisp @@ -1,31 +1,33 @@ -;; Common Lisp bindings for GTK+ v2.0 -;; Copyright (C) 1999-2001 Espen S. Johnsen +;; Common Lisp bindings for GTK+ v2.x +;; Copyright 2000-2005 Espen S. Johnsen ;; -;; This library is free software; you can redistribute it and/or -;; modify it under the terms of the GNU Lesser General Public -;; License as published by the Free Software Foundation; either -;; version 2 of the License, or (at your option) any later version. +;; Permission is hereby granted, free of charge, to any person obtaining +;; a copy of this software and associated documentation files (the +;; "Software"), to deal in the Software without restriction, including +;; without limitation the rights to use, copy, modify, merge, publish, +;; distribute, sublicense, and/or sell copies of the Software, and to +;; permit persons to whom the Software is furnished to do so, subject to +;; the following conditions: ;; -;; This library is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; Lesser General Public License for more details. +;; The above copyright notice and this permission notice shall be +;; included in all copies or substantial portions of the Software. ;; -;; You should have received a copy 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 +;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. +;; IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY +;; CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, +;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE +;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gdktypes.lisp,v 1.10 2004-12-26 11:47:24 espen Exp $ +;; $Id: gdktypes.lisp,v 1.23 2006-04-10 18:16:24 espen Exp $ (in-package "GDK") (eval-when (:compile-toplevel :load-toplevel :execute) (init-types-in-library #.(concatenate 'string (pkg-config:pkg-variable "gtk+-2.0" "libdir") - "/libgdk-x11-2.0.so") :prefix "gdk_") - (init-types-in-library #.(concatenate 'string - (pkg-config:pkg-variable "gtk+-2.0" "libdir") - "/libgdk-x11-2.0.so") :prefix "_gdk_") + "/libgdk-x11-2.0.so") :prefix ("gdk_" "_gdk_")) (init-types-in-library #.(concatenate 'string (pkg-config:pkg-variable "gtk+-2.0" "libdir") "/libgdk_pixbuf-2.0.so") :prefix "gdk_")) @@ -34,27 +36,26 @@ (eval-when (:compile-toplevel :load-toplevel :execute) (defclass color (boxed) ((pixel :allocation :alien - :type unsigned-long) + :type (unsigned 32)) (red :allocation :alien :accessor color-red - :type unsigned-short) + :type (unsigned 16)) (green - :allocation :alien + :allocation :alien :offset 6 :accessor color-green - :type unsigned-short) + :type (unsigned 16)) (blue - :allocation :alien + :allocation :alien :offset 8 :accessor color-blue - :type unsigned-short)) - (:metaclass boxed-class) - (:alien-name "GdkColor")) + :type (unsigned 16))) + (:metaclass boxed-class)) (deftype point () '(vector int 2)) (deftype segment () '(vector int 4)) (deftype trapezoid () '(vector double-float 6)) - +(deftype atom () 'unsigned-int) ;; Could this just as well have been a vector? @@ -79,107 +80,123 @@ (defclass rectangle (boxed) :accessor rectangle-height :initarg :height :type int)) - (:metaclass boxed-class) - (:alien-name "GdkRectangle")) + (:metaclass boxed-class)) -(eval-when (:compile-toplevel :load-toplevel :execute) - (define-types-by-introspection "Gdk" - ("GdkFunction" :type gc-function) - ("GdkWMDecoration" :type wm-decoration) - ("GdkWMFunction" :type wm-function) - ("GdkGC" :type gc) - ("GdkGCX11" :type gc-x11) - ("GdkGCValuesMask" :type gc-values-mask) - ("GdkDrawableImplX11" :ignore t) - ("GdkWindowImplX11" :ignore t) - ("GdkPixmapImplX11" :ignore t) - ("GdkGCX11" :ignore t) - ("GdkColor" :ignore t) - ("GdkEvent" :ignore t) - ("GdkRectngle" :ignore t) - ("GdkFont" :ignore t) ; deprecated - ("GdkDrawable" - :slots - ((display - :allocation :virtual - :getter "gdk_drawable_get_display" - :reader drawable-display - :type display) - (screen - :allocation :virtual - :getter "gdk_drawable_get_screen" - :reader drawable-screen - :type screen) - (visual - :allocation :virtual - :getter "gdk_drawable_get_visual" - :reader drawable-visual - :type visual) - (colormap - :allocation :virtual - :getter "gdk_drawable_get_colormap" - :setter "gdk_drawable_set_colormap" - :unbound nil - :accessor drawable-colormap - :initarg :colormap - :type colormap) - (depth - :allocation :virtual - :getter "gdk_drawable_get_depth" - :reader drawable-depth - :type int) - (with - :allocation :virtual - :getter drawable-width) - (height - :allocation :virtual - :getter drawable-height))) - ("GdkWindow" - :slots - ((state - :allocation :virtual - :getter "gdk_window_get_state" - :reader window-state - :type window-state) - (parent - :allocation :virtual - :getter "gdk_window_get_parent" - :reader window-parent - :type window) - (toplevel - :allocation :virtual - :getter "gdk_window_get_toplevel" - :reader window-toplevel - :type window) - (children - :allocation :virtual - :getter "gdk_window_get_children" - :reader window-children - :type (glist window)) - (events - :allocation :virtual - :getter "gdk_window_get_events" - :setter "gdk_window_set_events" - :accessor window-events - :type event-mask) - (group - :allocation :virtual - :getter "gdk_window_get_group" - :setter "gdk_window_set_group" - :unbound nil - :accessor window-group - :type window) +(define-types-by-introspection "Gdk" + ("GdkFunction" :type gc-function) + ("GdkWMDecoration" :type wm-decoration) + ("GdkWMFunction" :type wm-function) + ("GdkGC" :type gc) + ("GdkGCX11" :type gc-x11) + ("GdkGCValuesMask" :type gc-values-mask) + ("GdkDrawableImplX11" :ignore t) + ("GdkWindowImplX11" :ignore t) + ("GdkPixmapImplX11" :ignore t) + ("GdkGCX11" :ignore t) + ("GdkColor" :ignore t) + ("GdkEvent" :ignore t) + ("GdkRectangle" :ignore t) + ("GdkCursor" :ignore t) + ("GdkFont" :ignore t) ; deprecated + ("GdkEventMask" :ignore t) ; manually defined + ("GdkModifierType" :ignore t) ; manually defined - )) -)) + ("GdkDisplay" + :slots + ((name + :allocation :virtual + :getter "gdk_display_get_name" + :reader display-name + :type (copy-of string)) + (screens + :allocation :virtual + :getter display-screens) + (devices + :allocation :virtual + :getter "gdk_display_list_devices" + :reader display-devices + :type (copy-of (glist device))))) + + ("GdkDrawable" + :slots + ((display + :allocation :virtual + :getter "gdk_drawable_get_display" + :reader drawable-display + :type display) + (screen + :allocation :virtual + :getter "gdk_drawable_get_screen" + :reader drawable-screen + :type screen) + (visual + :allocation :virtual + :getter "gdk_drawable_get_visual" + :reader drawable-visual + :type visual) + (colormap + :allocation :virtual + :getter "gdk_drawable_get_colormap" + :setter "gdk_drawable_set_colormap" + :unbound nil + :accessor drawable-colormap + :initarg :colormap + :type colormap) + (depth + :allocation :virtual + :getter "gdk_drawable_get_depth" + :reader drawable-depth + :type int) + (with + :allocation :virtual + :getter drawable-width) + (height + :allocation :virtual + :getter drawable-height))) + + ("GdkWindow" + :slots + ((state + :allocation :virtual + :getter "gdk_window_get_state" + :reader window-state + :type window-state) + (parent + :allocation :virtual + :getter "gdk_window_get_parent" + :reader window-parent + :type window) + (toplevel + :allocation :virtual + :getter "gdk_window_get_toplevel" + :reader window-toplevel + :type window) + (children + :allocation :virtual + :getter "gdk_window_get_children" + :reader window-children + :type (glist window)) + (events + :allocation :virtual + :getter "gdk_window_get_events" + :setter "gdk_window_set_events" + :accessor window-events + :type event-mask) + (group + :allocation :virtual + :getter "gdk_window_get_group" + :setter "gdk_window_set_group" + :unbound nil + :accessor window-group + :type window)))) (deftype bitmap () 'pixmap) -(defclass cursor (struct) +(defclass cursor (boxed) ((type :allocation :alien :reader cursor-type @@ -192,11 +209,8 @@ (defclass cursor (struct) :getter "gdk_cursor_get_display" :reader cursor-display :type display)) - (:metaclass struct-class)) + (:metaclass boxed-class)) -(defclass device (struct) - () - (:metaclass struct-class)) (defclass geometry (struct) ((min-width @@ -255,3 +269,10 @@ (defclass geometry (struct) :initarg :gravity :type gravity)) (:metaclass struct-class)) + +(define-flags-type modifier-type + :shift :lock :control :mod1 :mod2 :mod3 :mod4 :mod5 + :button1 :button2 :button3 :button4 :button5 + (:release #.(ash 1 30))) + +(deftype native-window () '(unsigned 32))