55212af1 |
1 | ;; Common Lisp bindings for GTK+ v2.x |
a3abe9db |
2 | ;; Copyright 1999-2006 Espen S. Johnsen <espen@users.sf.net> |
7d6495a4 |
3 | ;; |
55212af1 |
4 | ;; Permission is hereby granted, free of charge, to any person obtaining |
5 | ;; a copy of this software and associated documentation files (the |
6 | ;; "Software"), to deal in the Software without restriction, including |
7 | ;; without limitation the rights to use, copy, modify, merge, publish, |
8 | ;; distribute, sublicense, and/or sell copies of the Software, and to |
9 | ;; permit persons to whom the Software is furnished to do so, subject to |
10 | ;; the following conditions: |
7d6495a4 |
11 | ;; |
55212af1 |
12 | ;; The above copyright notice and this permission notice shall be |
13 | ;; included in all copies or substantial portions of the Software. |
7d6495a4 |
14 | ;; |
55212af1 |
15 | ;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, |
16 | ;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF |
17 | ;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. |
18 | ;; IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY |
19 | ;; CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, |
20 | ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE |
21 | ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. |
7d6495a4 |
22 | |
7d2b3ca1 |
23 | ;; $Id: defpackage.lisp,v 1.20 2007/02/19 13:07:46 espen Exp $ |
7d6495a4 |
24 | |
7d6495a4 |
25 | |
26 | (defpackage "GLIB" |
890ef254 |
27 | (:use "COMMON-LISP" "GFFI" "AUTOEXPORT" "PKG-CONFIG" "CLG-UTILS") |
28 | #+cmu(:use "PCL" "EXT") |
29 | #+sbcl(:use "SB-MOP" "SB-EXT") |
30 | #+clisp(:use "CLOS") |
31 | #+clisp(:import-from "EXT" "RUN-PROGRAM") |
32 | #+clisp(:shadowing-import-from "GFFI" "SLOT-DEFINITION-TYPE") |
33 | (:export "USER-DATA-DESTROY-CALLBACK") |
34 | |
35 | ;; Symbols from glib.lisp |
36 | (:export "REGISTER-USER-DATA" "FIND-USER-DATA" "USER-DATA-EXISTS-P" |
37 | "UPDATE-USER-DATA" "DESTROY-USER-DATA" "QUARK" "QUARK-INTERN" |
38 | "QUARK-TO-STRING" "GLIST" "GSLIST") |
39 | ;; Symbols from gtype.lisp |
40 | (:export "TYPE-NUMBER" "GTYPE" "TYPE-QUERY" "TYPE-INSTANCE-SIZE" |
41 | "TYPE-CLASS-SIZE" "TYPE-CLASS-REF" "TYPE-CLASS-UNREF" |
f64d701f |
42 | "TYPE-CLASS-PEEK" "TYPE-NUMBER-FROM-GLIB-NAME" |
43 | "REGISTER-TYPE" "REGISTER-TYPE-ALIAS""REGISTER-NEW-TYPE" |
44 | "FIND-TYPE-NUMBER" "TYPE-FROM-NUMBER" "SUPERTYPE" |
45 | "GINSTANCE-CLASS" "GINSTANCE" "REGISTER-DERIVABLE-TYPE" |
46 | "INIT-TYPES-IN-LIBRARY" "DEFINE-TYPES-BY-INTROSPECTION" |
47 | "TYPE-FROM-GLIB-NAME") |
890ef254 |
48 | ;; Symbols from gparam.lisp |
49 | (:export "GVALUE" "GVALUE-INIT" "GVALUE-NEW" "GVALUE-FREE" "GVALUE-TYPE" |
c46ecfa4 |
50 | "GVALUE-GET" "GVALUE-SET" "GVALUE-UNSET" "VALUE-P" "WITH-GVALUE" |
51 | "+GVALUE-SIZE+" "+GVALUE-VALUE-OFFSET+" "PARAM-FLAG-TYPE" "PARAM" |
52 | "PARAM-CHAR" "PARAM-UNSIGNED-CHAR" "PARAM-BOOLEAN" "PARAM-INT" |
890ef254 |
53 | "PARAM-UNSIGNED-INT" "PARAM-LONG" "PARAM-UNSIGNED-LONG" |
54 | "PARAM-UNICHAR" "PARAM-ENUM" "PARAM-FLAGS" "PARAM-SINGLE-FLOAT" |
55 | "PARAM-DOUBLE-FLOAT" "PARAM-STRING" "PARAM-PARAM" "PARAM-BOXED" |
56 | "PARAM-POINTER" "PARAM-VALUE-ARRAY" "PARAM-OBJECT" |
57 | "PARAM-OVERRRIDE" "PARAM-NAME" "PARAM-FLAGS" "PARAM-VALUE-TYPE" |
58 | "PARAM-OWNER-TYPE" "PARAM-NICKNAME" "PARAM-DOCUMENTATION" |
59 | "PARAM-MINIMUM" "PARAM-DEFAULT-VALUE" "PARAM-ENUM-CLASS" |
60 | "PARAM-FLAGS-CLASS" "PARAM-FLOAT-EPSILON" |
61 | "PARAM-VALUE-ARRAY-ELEMENT-SPEC" "PARAM-VALUE-ARRAY-LENGTH") |
62 | ;; Symbols from gboxed.lisp |
63 | (:export "BOXED" "BOXED-CLASS" "STRINGS") |
64 | ;; Symbols from gcallback.lisp |
65 | (:export "GCLOSURE" "REGISTER-CALLBACK-FUNCTION" "INVOKE-CALLBACK" |
66 | "TIMEOUT-ADD" "TIMEOUT-REMOVE" "IDLE-ADD" "IDLE-REMOVE" |
67 | "ENSURE-SIGNAL-ID" "SIGNAL-LIST-NAMES" "SIGNAL-LOOKUP" |
68 | "SIGNAL-LIST-IDS" "DESCRIBE-SIGNAL" "DEFINE-SIGNAL-HANDLER" |
69 | "CALL-NEXT-HANDLER" "MAKE-CALLBACK-CLOSURE" |
70 | "SIGNAL-STOP-EMISSION" "SIGNAL-ADD-EMISSION-HOOK" |
71 | "SIGNAL-REMOVE-EMISSION-HOOK" "SIGNAL-HAS-HANDLER-PENDING-P" |
72 | "SIGNAL-HANDLER-BLOCK" "SIGNAL-HANDLER-UNBLOCK" |
73 | "SIGNAL-HANDLER-DISCONNECT" "SIGNAL-HANDLER-IS-CONNECTED-P" |
890ef254 |
74 | "COMPUTE-SIGNAL-FUNCTION" "SIGNAL-CONNECT" "COMPUTE-SIGNAL-ID" |
75 | "SIGNAL-EMIT-WITH-DETAIL" "SIGNAL-EMIT" "DEFINE-CALLBACK-MARSHAL" |
ba8ea26c |
76 | "WITH-CALLBACK-FUNCTION" "SIGNAL-NEW" "*SIGNAL-STOP-EMISSION*") |
890ef254 |
77 | ;; Symbols from gobject.lisp |
78 | (:export "GOBJECT-CLASS" "INSTANCE-SLOTS-P" "DIRECT-PROPERTY-SLOT-DEFINITION" |
376809b0 |
79 | "SLOT-DEFINITION-PNAME" "CONSTRUCT-ONLY-PROPERTY-P" |
80 | "EFFECTIVE-PROPERTY-SLOT-DEFINITION" |
890ef254 |
81 | "DIRECT-USER-DATA-SLOT-DEFINITION" "EFFECTIVE-USER-DATA-SLOT-DEFINITION" |
82 | "GOBJECT" "OBJECT-FREEZE-NOTIFY" "OBJECT-THAW-NOTIFY" "USER-DATA" |
83 | "USER-DATA-DESTROY-CALLBACK" "USER-DATA-P" "UNSET-USER-DATA" |
84 | "QUERY-OBJECT-CLASS-PROPERTIES" "SLOT-DEFINITIONS" |
85 | "EXPAND-GOBJECT-TYPE" "GOBJECT-DEPENDENCIES" "SIGNAL-NAME-TO-STRING" |
86 | "REFERENCED") |
87 | ;; Symbols from ginterface.lisp |
7d2b3ca1 |
88 | (:export "INTERFACE" "INTERFACE-CLASS" "QUERY-OBJECT-INTERFACE-PROPERTIES") |
890ef254 |
89 | ;; Symbols from gerror.lisp |
90 | (:export "GERROR" "GERROR-DOMAIN" "GERROR-CODE" "GERROR-MESSAGE" |
91 | "GLIB-ERROR" "GLIB-FILE-ERROR" "SIGNAL-GERROR" |
92 | "GERROR-SIGNAL" "LOG-LEVELS" "LOG-DOMAIN" "LOG-MESSAGE" |
93 | "UNKNOWN-LOG-LEVEL" "ERROR-LOG-LEVEL" "CRITICAL-LOG-LEVEL" |
f64d701f |
94 | "WARNING-LOG-LEVEL" "INFO-LOG-LEVEL" "DEBUG-LOG-LEVEL") |
95 | ;; Symbols from genum.lisp |
96 | (:export "QUERY-ENUM-VALUES")) |
7d6495a4 |
97 | |