chiark / gitweb /
Added *REENTRANT-MAIN-ITERATION* to control if MAIN-ITERATE-ALL can be
[clg] / gtk / defpackage.lisp
CommitLineData
3476e771 1(defpackage "GTK"
e9de8597 2 (:use "GFFI" "GLIB" "COMMON-LISP" "AUTOEXPORT" "PKG-CONFIG" "CLG-UTILS")
73572c12 3 #+cmu(:use "PCL" "EXT")
4 #+sbcl(:use "SB-PCL" "SB-EXT")
e9de8597 5 #+clisp(:use "CLOS")
6 #+clisp(:shadowing-import-from "GFFI" "SLOT-DEFINITION-TYPE")
7 #+(or cmu sbcl)
73572c12 8 (:import-from #+cmu"PCL" #+sbcl"SB-PCL"
9 "ADD-READER-METHOD" "ADD-WRITER-METHOD")
e9de8597 10 #+(or cmu sbcl)
7105fccd 11 (:import-from #+cmu"SYSTEM" #+sbcl"SB-SYS" "SAP-INT" "ADD-FD-HANDLER" "REMOVE-FD-HANDLER")
9496c3cb 12 #?(or
13 (pkg-config:featurep :cmu)
6d0c269b 14 (and (pkg-config:sbcl< 1 0 6) (not (pkg-config:featurep :win32))))
73572c12 15 (:import-from #+cmu"LISP" #+sbcl"SB-IMPL"
5dd328ff 16 "*PERIODIC-POLLING-FUNCTION*" "*MAX-EVENT-TO-SEC*" "*MAX-EVENT-TO-USEC*")
17 #?(and (pkg-config:sbcl>= 1 0 15 6) (not (pkg-config:featurep :win32)))
18 (:import-from "SB-IMPL"
19 "*PERIODIC-POLLING-FUNCTION*" "*PERIODIC-POLLING-PERIOD*")
ded95d78 20 #+clisp
21 (:import-from "SOCKET" "SOCKET-STATUS")
3476e771 22 (:export "EVENTS-PENDING-P" "GET-CURRENT-EVENT" "MAIN-DO-EVENT" "MAIN"
3e4f39ae 23 "MAIN-LEVEL" "MAIN-QUIT" "MAIN-ITERATION-DO" "MAIN-ITERATE-ALL"
24 "*REENTRANT-MAIN-ITERATION*" "*RUNNING-MAIN-ITERATION*")
501d38ad 25 (:export "CONTAINER-CHILD-CLASS" "CONTAINER-CHILD" "CONTAINER-CHILD-CLASS")
c7dc6a10 26 ;; Signal names that need to be explicit exported
27 (:export "TOGGLED")
c30cbffb 28 ;; Symbols re-exported from glib -- will not be exported from
29 ;; this package in the future
30 (:export "SIGNAL-EMIT-STOP" "SIGNAL-CONNECT" "SIGNAL-DISCONNECT"
31 "SIGNAL-HANDLER-BLOCK" "SIGNAL-HANDLER-UNBLOCK"
32 "TIMEOUT-ADD" "TIMEOUT-REMOVE" "IDLE-ADD" "IDLE-REMOVE"))
33
34
35(defpackage "CLG"
36 (:use "GLIB" "GTK")
db6474da 37 ;; Symbols re-exported from the GLIB package
3476e771 38 (:export "SIGNAL-EMIT-STOP" "SIGNAL-CONNECT" "SIGNAL-DISCONNECT"
e9de8597 39 "SIGNAL-HANDLER-BLOCK" "SIGNAL-HANDLER-UNBLOCK"
db6474da 40 "TIMEOUT-ADD" "TIMEOUT-REMOVE" "IDLE-ADD" "IDLE-REMOVE")
41 ;; Symbols re-exported from the GDK package
42 (:import-from "GDK" "TIMEOUT-ADD-WITH-LOCK" "IDLE-ADD-WITH-LOCK")
43 (:export "TIMEOUT-ADD-WITH-LOCK" "IDLE-ADD-WITH-LOCK")
44 ;; Symbols not automatically re-exported from the GTK package
45 (:export "TOGGLE" "CONTAINER-CHILD"))
46