From 258fd264c2b13461da15a48ebec49b8bba7e2068 Mon Sep 17 00:00:00 2001 Message-Id: <258fd264c2b13461da15a48ebec49b8bba7e2068.1714952630.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 16 Aug 2000 22:14:51 +0000 Subject: [PATCH] Added copyright notice and some more symbols to be exported Organization: Straylight/Edgeware From: espen --- gtk/gtk-package.lisp | 29 +++++++++++++++++++++++++---- 1 file changed, 25 insertions(+), 4 deletions(-) diff --git a/gtk/gtk-package.lisp b/gtk/gtk-package.lisp index ec4ca40..0f7b2f7 100644 --- a/gtk/gtk-package.lisp +++ b/gtk/gtk-package.lisp @@ -1,14 +1,35 @@ +;; 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") (:shadowing-import-from "PCL" - "CLASS-NAME" "BUILT-IN-CLASS" "CLASS-OF" "FIND-CLASS" "LOCATION" - "ALLOCATION" "DIRECT-SLOTS") + "CLASS-NAME" "CLASS-OF" "FIND-CLASS" "LOCATION" "ALLOCATION" "DIRECT-SLOTS") + (: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" "MAIN-DO-EVENT" "MAIN" "MAIN-LEVEL" "MAIN-QUIT" - "MAIN-ITERATION" "MAIN-ITERATE-ALL") + (: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")) -- [mdw]