3476e771 |
1 | ;; Common Lisp bindings for GTK+ v2.0 |
2 | ;; Copyright (C) 2000 Espen S. Johnsen <espejohn@online.no> |
3 | ;; |
4 | ;; This library is free software; you can redistribute it and/or |
5 | ;; modify it under the terms of the GNU Lesser General Public |
6 | ;; License as published by the Free Software Foundation; either |
7 | ;; version 2 of the License, or (at your option) any later version. |
8 | ;; |
9 | ;; This library is distributed in the hope that it will be useful, |
10 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
11 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
12 | ;; Lesser General Public License for more details. |
13 | ;; |
14 | ;; You should have received a copy of the GNU Lesser General Public |
15 | ;; License along with this library; if not, write to the Free Software |
16 | ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
17 | |
18 | ;; $id$ |
19 | |
20 | |
21 | (defpackage "GTK" |
22 | (:use "GLIB" "COMMON-LISP" "PCL" "ALIEN" "AUTOEXPORT") |
23 | (:shadowing-import-from "GLIB" "DEFTYPE") |
24 | (:import-from "PCL" |
25 | "LOCATION" "ALLOCATION" "DIRECT-SLOTS" |
26 | "READER-FUNCTION" "WRITER-FUNCTION" "BOUNDP-FUNCTION" |
27 | "INITIALIZE-INTERNAL-SLOT-FUNCTIONS" |
28 | "COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS") |
29 | (:export "*CLG-VERSION*") |
30 | (:export "OBJECT" "OBJECT-ARG" "OBJECT-SINK") |
31 | (:export "REGISTER-USER-DATA" "FIND-USER-DATA" "REGISTER-CALLBACK-FUNCTION" |
32 | "*CALLBACK-MARSHAL*" "*DESTROY-MARSHAL*") |
33 | (:export "EVENTS-PENDING-P" "GET-CURRENT-EVENT" "MAIN-DO-EVENT" "MAIN" |
34 | "MAIN-LEVEL" "MAIN-QUIT" "MAIN-ITERATION" "MAIN-ITERATE-ALL" |
35 | "TIMEOUT-ADD" "TIMEOUT-REMOVE" "IDLE-ADD" "IDLE-REMOVE") |
36 | (:export "SIGNAL-EMIT-STOP" "SIGNAL-CONNECT" "SIGNAL-DISCONNECT" |
37 | "SIGNAL-HANDLER-BLOCK" "SIGNAL-HANDLER-UNBLOCK") |
38 | (:export "OBJECT-CLASS" "WIDGET-CLASS" "CONTAINER-CLASS" "CHILD-CLASS")) |
39 | |