From 3476e7715268a546ef87aae6024d6749f4480c72 Mon Sep 17 00:00:00 2001 From: espen Date: Sun, 31 Oct 2004 11:58:09 +0000 Subject: [PATCH] gtk-package.lisp renamed --- gtk/defpackage.lisp | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 gtk/defpackage.lisp diff --git a/gtk/defpackage.lisp b/gtk/defpackage.lisp new file mode 100644 index 0000000..d336460 --- /dev/null +++ b/gtk/defpackage.lisp @@ -0,0 +1,39 @@ +;; Common Lisp bindings for GTK+ v2.0 +;; Copyright (C) 2000 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. +;; +;; 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. +;; +;; 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 + +;; $id$ + + +(defpackage "GTK" + (:use "GLIB" "COMMON-LISP" "PCL" "ALIEN" "AUTOEXPORT") + (:shadowing-import-from "GLIB" "DEFTYPE") + (:import-from "PCL" + "LOCATION" "ALLOCATION" "DIRECT-SLOTS" + "READER-FUNCTION" "WRITER-FUNCTION" "BOUNDP-FUNCTION" + "INITIALIZE-INTERNAL-SLOT-FUNCTIONS" + "COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS") + (:export "*CLG-VERSION*") + (:export "OBJECT" "OBJECT-ARG" "OBJECT-SINK") + (:export "REGISTER-USER-DATA" "FIND-USER-DATA" "REGISTER-CALLBACK-FUNCTION" + "*CALLBACK-MARSHAL*" "*DESTROY-MARSHAL*") + (:export "EVENTS-PENDING-P" "GET-CURRENT-EVENT" "MAIN-DO-EVENT" "MAIN" + "MAIN-LEVEL" "MAIN-QUIT" "MAIN-ITERATION" "MAIN-ITERATE-ALL" + "TIMEOUT-ADD" "TIMEOUT-REMOVE" "IDLE-ADD" "IDLE-REMOVE") + (:export "SIGNAL-EMIT-STOP" "SIGNAL-CONNECT" "SIGNAL-DISCONNECT" + "SIGNAL-HANDLER-BLOCK" "SIGNAL-HANDLER-UNBLOCK") + (:export "OBJECT-CLASS" "WIDGET-CLASS" "CONTAINER-CLASS" "CHILD-CLASS")) + \ No newline at end of file -- 2.11.0