/[cmucl]/src/clx/package.lisp
ViewVC logotype

Contents of /src/clx/package.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Tue Aug 11 15:17:19 1992 UTC (21 years, 8 months ago) by ram
Branch: MAIN
CVS Tags: RELEASE_18a
Branch point for: RELENG_18
Changes since 1.1: +3 -2 lines
This is CLX R5.01
1 ;;; -*- Mode: LISP; Syntax: Common-lisp; Base: 10; Lowercase: Yes; -*-
2
3 ;;; Copyright 1990 Massachusetts Institute of Technology, Cambridge,
4 ;;; Massachusetts. All Rights Reserved.
5 ;;;
6 ;;; Permission to use, copy, modify, and distribute this software and its
7 ;;; documentation for any purpose and without fee is hereby granted, provided
8 ;;; that the above copyright notice appear in all copies and that both that
9 ;;; copyright notice and this permission notice appear in supporting
10 ;;; documentation, and that the name MIT not be used in advertising or
11 ;;; publicity pertaining to distribution of the software without specific,
12 ;;; written prior permission.
13
14 ;;; The CLtL way
15
16 #-clx-ansi-common-lisp
17 (lisp:in-package :xlib :use '(:lisp))
18
19 #+(and (or kcl ibcl) (not clx-ansi-common-lisp))
20 (shadow
21 '(
22 rational
23 ))
24
25 #+(and CMU (not clx-ansi-common-lisp))
26 (shadow '(define-condition))
27
28 #+(and lispm (not clx-ansi-common-lisp))
29 (import
30 '(
31 sys:arglist
32 sys:with-stack-list
33 sys:with-stack-list*
34 ))
35
36 #+(and Genera (not clx-ansi-common-lisp))
37 (import
38 '(
39 future-common-lisp:print-unreadable-object
40 future-common-lisp:with-standard-io-syntax
41 zwei:indentation
42 ))
43
44 #+(and lcl3.0 (not clx-ansi-common-lisp))
45 (import
46 '(
47 lcl:arglist
48 lcl:dynamic-extent
49 lcl:type-error
50 lucid::type-error-datum
51 lucid::type-error-expected-type
52 ))
53
54 #+(and excl (not clx-ansi-common-lisp))
55 (import
56 '(
57 excl::arglist
58 excl::dynamic-extent
59 excl::type-error
60 excl::type-error-datum
61 excl::type-error-expected-type
62 ))
63
64 #+(and allegro (not clx-ansi-common-lisp))
65 (import
66 '(
67 excl::without-interrupts
68 ))
69
70 #-clx-ansi-common-lisp
71 (export
72 '(
73 *version* access-control access-error access-hosts
74 activate-screen-saver add-access-host add-resource add-to-save-set
75 alist alloc-color alloc-color-cells alloc-color-planes alloc-error
76 allow-events angle arc-seq array-index atom-error atom-name
77 bell bit-gravity bitmap bitmap-format bitmap-format-lsb-first-p
78 bitmap-format-p bitmap-format-pad bitmap-format-unit bitmap-image
79 boole-constant boolean card16 card29 card32 card8
80 card8->char change-active-pointer-grab change-keyboard-control
81 change-keyboard-mapping change-pointer-control change-property
82 char->card8 char-ascent char-attributes char-descent
83 char-left-bearing char-right-bearing char-width character->keysyms
84 character-in-map-p circulate-window-down circulate-window-up clear-area
85 close-display close-down-mode close-font closed-display color
86 color-blue color-green color-p color-red color-rgb colormap
87 colormap-display colormap-equal colormap-error colormap-id colormap-p
88 colormap-plist colormap-visual-info connection-failure convert-selection
89 copy-area copy-colormap-and-free copy-gcontext copy-gcontext-components
90 copy-image copy-plane create-colormap create-cursor
91 create-gcontext create-glyph-cursor create-image create-pixmap
92 create-window cursor cursor-display cursor-equal cursor-error
93 cursor-id cursor-p cursor-plist cut-buffer declare-event decode-core-error
94 default-error-handler default-keysym-index default-keysym-translate
95 define-error define-extension define-gcontext-accessor
96 define-keysym define-keysym-set delete-property delete-resource
97 destroy-subwindows destroy-window device-busy device-event-mask
98 device-event-mask-class discard-current-event discard-font-info display
99 display-after-function display-authorization-data display-authorization-name
100 display-bitmap-format display-byte-order display-default-screen
101 display-display display-error-handler display-finish-output
102 display-force-output display-host display-image-lsb-first-p
103 display-invoke-after-function display-keycode-range display-max-keycode
104 display-max-request-length display-min-keycode display-motion-buffer-size
105 display-nscreens display-p display-pixmap-formats display-plist
106 display-protocol-major-version display-protocol-minor-version
107 display-protocol-version display-release-number
108 display-report-asynchronous-errors display-resource-id-base
109 display-resource-id-mask display-roots display-vendor
110 display-vendor-name display-xdefaults display-xid draw-arc
111 draw-arcs draw-direction draw-glyph draw-glyphs draw-image-glyph
112 draw-image-glyphs draw-line draw-lines draw-point draw-points
113 draw-rectangle draw-rectangles draw-segments drawable
114 drawable-border-width drawable-depth drawable-display drawable-equal
115 drawable-error drawable-height drawable-id drawable-p
116 drawable-plist drawable-root drawable-width drawable-x drawable-y
117 error-key event-case event-cond event-handler event-key
118 event-listen event-mask event-mask-class extension-opcode
119 find-atom font font-all-chars-exist-p font-ascent
120 font-default-char font-descent font-direction font-display
121 font-equal font-error font-id font-max-byte1 font-max-byte2
122 font-max-char font-min-byte1 font-min-byte2 font-min-char
123 font-name font-p font-path font-plist font-properties
124 font-property fontable force-gcontext-changes free-colormap
125 free-colors free-cursor free-gcontext free-pixmap gcontext
126 gcontext-arc-mode gcontext-background
127 gcontext-cache-p gcontext-cap-style
128 gcontext-clip-mask gcontext-clip-ordering gcontext-clip-x
129 gcontext-clip-y gcontext-dash-offset gcontext-dashes gcontext-display
130 gcontext-equal gcontext-error gcontext-exposures gcontext-fill-rule
131 gcontext-fill-style gcontext-font gcontext-foreground gcontext-function
132 gcontext-id gcontext-join-style gcontext-key gcontext-line-style
133 gcontext-line-width gcontext-p gcontext-plane-mask gcontext-plist
134 gcontext-stipple gcontext-subwindow-mode gcontext-tile gcontext-ts-x
135 gcontext-ts-y get-external-event-code get-image get-property
136 get-raw-image get-resource get-search-resource get-search-table
137 get-standard-colormap get-wm-class global-pointer-position grab-button
138 grab-key grab-keyboard grab-pointer grab-server grab-status
139 icon-sizes iconify-window id-choice-error illegal-request-error
140 image image-blue-mask image-depth image-green-mask image-height
141 image-name image-pixmap image-plist image-red-mask image-width
142 image-x image-x-hot image-x-p image-xy image-xy-bitmap-list
143 image-xy-p image-y-hot image-z image-z-bits-per-pixel image-z-p
144 image-z-pixarray implementation-error input-focus install-colormap
145 installed-colormaps int16 int32 int8 intern-atom invalid-font
146 keyboard-control keyboard-mapping keycode->character keycode->keysym
147 keysym keysym->character keysym->keycodes keysym-in-map-p
148 keysym-set kill-client kill-temporary-clients length-error
149 list-extensions list-font-names list-fonts list-properties
150 lookup-color lookup-error make-color make-event-handlers
151 make-event-keys make-event-mask make-resource-database make-state-keys
152 make-state-mask make-wm-hints make-wm-size-hints map-resource
153 map-subwindows map-window mapping-notify mask16 mask32
154 match-error max-char-ascent max-char-attributes max-char-descent
155 max-char-left-bearing max-char-right-bearing max-char-width
156 merge-resources min-char-ascent min-char-attributes min-char-descent
157 min-char-left-bearing min-char-right-bearing min-char-width
158 missing-parameter modifier-key modifier-mapping modifier-mask
159 motion-events name-error no-operation open-display open-font
160 pixarray pixel pixmap pixmap-display pixmap-equal
161 pixmap-error pixmap-format pixmap-format-bits-per-pixel
162 pixmap-format-depth pixmap-format-p pixmap-format-scanline-pad
163 pixmap-id pixmap-p pixmap-plist point-seq pointer-control
164 pointer-event-mask pointer-event-mask-class pointer-mapping
165 pointer-position process-event put-image put-raw-image
166 query-best-cursor query-best-stipple query-best-tile query-colors
167 query-extension query-keymap query-pointer query-tree queue-event
168 read-bitmap-file read-resources recolor-cursor rect-seq
169 remove-access-host remove-from-save-set reparent-window repeat-seq
170 reply-length-error reply-timeout request-error reset-screen-saver
171 resource-database resource-database-timestamp resource-error
172 resource-id resource-key rgb-colormaps rgb-val root-resources
173 rotate-cut-buffers rotate-properties screen screen-backing-stores
174 screen-black-pixel screen-default-colormap screen-depths
175 screen-event-mask-at-open screen-height screen-height-in-millimeters
176 screen-max-installed-maps screen-min-installed-maps screen-p
177 screen-plist screen-root screen-root-depth screen-root-visual
178 screen-root-visual-info screen-save-unders-p screen-saver
179 screen-white-pixel screen-width screen-width-in-millimeters seg-seq
180 selection-owner send-event sequence-error set-access-control
181 set-close-down-mode set-input-focus set-modifier-mapping
182 set-pointer-mapping set-screen-saver set-selection-owner
183 set-standard-colormap set-standard-properties set-wm-class
184 set-wm-properties set-wm-resources state-keysym-p state-mask-key
185 store-color store-colors stringable text-extents text-width
186 timestamp transient-for translate-coordinates translate-default
187 translation-function type-error undefine-keysym unexpected-reply
188 ungrab-button ungrab-key ungrab-keyboard ungrab-pointer
189 ungrab-server uninstall-colormap unknown-error unmap-subwindows
190 unmap-window value-error visual-info visual-info-bits-per-rgb
191 visual-info-blue-mask visual-info-class visual-info-colormap-entries
192 visual-info-display visual-info-green-mask visual-info-id visual-info-p
193 visual-info-plist visual-info-red-mask warp-pointer
194 warp-pointer-if-inside warp-pointer-relative warp-pointer-relative-if-inside
195 win-gravity window window-all-event-masks window-background
196 window-backing-pixel window-backing-planes window-backing-store
197 window-bit-gravity window-border window-class window-colormap
198 window-colormap-installed-p window-cursor window-display
199 window-do-not-propagate-mask window-equal window-error
200 window-event-mask window-gravity window-id window-map-state
201 window-override-redirect window-p window-plist window-priority
202 window-save-under window-visual window-visual-info with-display
203 with-event-queue with-gcontext with-server-grabbed with-state
204 withdraw-window wm-client-machine wm-colormap-windows wm-command
205 wm-hints wm-hints-flags wm-hints-icon-mask wm-hints-icon-pixmap
206 wm-hints-icon-window wm-hints-icon-x wm-hints-icon-y
207 wm-hints-initial-state wm-hints-input wm-hints-p wm-hints-window-group
208 wm-icon-name wm-name wm-normal-hints wm-protocols wm-resources
209 wm-size-hints wm-size-hints-base-height wm-size-hints-base-width
210 wm-size-hints-height wm-size-hints-height-inc wm-size-hints-max-aspect
211 wm-size-hints-max-height wm-size-hints-max-width wm-size-hints-min-aspect
212 wm-size-hints-min-height wm-size-hints-min-width wm-size-hints-p
213 wm-size-hints-user-specified-position-p wm-size-hints-user-specified-size-p
214 wm-size-hints-width wm-size-hints-width-inc wm-size-hints-win-gravity
215 wm-size-hints-x wm-size-hints-y wm-zoom-hints write-bitmap-file
216 write-resources xatom
217 ))
218
219
220 ;;; The ANSI Common Lisp way
221
222 #+(and Genera clx-ansi-common-lisp)
223 (eval-when (:compile-toplevel :load-toplevel :execute)
224 (setf *readtable* si:*ansi-common-lisp-readtable*))
225
226 #+clx-ansi-common-lisp
227 (common-lisp:in-package :common-lisp-user)
228
229 #+clx-ansi-common-lisp
230 (defpackage xlib
231 (:use common-lisp)
232 (:size 3000)
233 #+(or kcl ibcl) (:shadow rational)
234 #+allegro (:use cltl1)
235 #+allegro (:import-from excl without-interrupts)
236 #+excl (:import-from excl arglist)
237 #+Genera (:import-from zwei indentation)
238 #+lcl3.0 (:import-from lcl arglist)
239 #+lispm (:import-from lisp char-bit)
240 #+lispm (:import-from sys arglist with-stack-list with-stack-list*)
241 (:export
242 *version* access-control access-error access-hosts
243 activate-screen-saver add-access-host add-resource add-to-save-set
244 alist alloc-color alloc-color-cells alloc-color-planes alloc-error
245 allow-events angle arc-seq array-index atom-error atom-name
246 bell bit-gravity bitmap bitmap-format bitmap-format-lsb-first-p
247 bitmap-format-p bitmap-format-pad bitmap-format-unit bitmap-image
248 boole-constant boolean card16 card29 card32 card8
249 card8->char change-active-pointer-grab change-keyboard-control
250 change-keyboard-mapping change-pointer-control change-property
251 char->card8 char-ascent char-attributes char-descent
252 char-left-bearing char-right-bearing char-width character->keysyms
253 character-in-map-p circulate-window-down circulate-window-up clear-area
254 close-display close-down-mode close-font closed-display color
255 color-blue color-green color-p color-red color-rgb colormap
256 colormap-display colormap-equal colormap-error colormap-id colormap-p
257 colormap-plist colormap-visual-info connection-failure convert-selection
258 copy-area copy-colormap-and-free copy-gcontext copy-gcontext-components
259 copy-image copy-plane create-colormap create-cursor
260 create-gcontext create-glyph-cursor create-image create-pixmap
261 create-window cursor cursor-display cursor-equal cursor-error
262 cursor-id cursor-p cursor-plist cut-buffer declare-event decode-core-error
263 default-error-handler default-keysym-index default-keysym-translate
264 define-error define-extension define-gcontext-accessor
265 define-keysym define-keysym-set delete-property delete-resource
266 destroy-subwindows destroy-window device-busy device-event-mask
267 device-event-mask-class discard-current-event discard-font-info display
268 display-after-function display-authorization-data display-authorization-name
269 display-bitmap-format display-byte-order display-default-screen
270 display-display display-error-handler display-finish-output
271 display-force-output display-host display-image-lsb-first-p
272 display-invoke-after-function display-keycode-range display-max-keycode
273 display-max-request-length display-min-keycode display-motion-buffer-size
274 display-nscreens display-p display-pixmap-formats display-plist
275 display-protocol-major-version display-protocol-minor-version
276 display-protocol-version display-release-number
277 display-report-asynchronous-errors display-resource-id-base
278 display-resource-id-mask display-roots display-vendor
279 display-vendor-name display-xdefaults display-xid draw-arc
280 draw-arcs draw-direction draw-glyph draw-glyphs draw-image-glyph
281 draw-image-glyphs draw-line draw-lines draw-point draw-points
282 draw-rectangle draw-rectangles draw-segments drawable
283 drawable-border-width drawable-depth drawable-display drawable-equal
284 drawable-error drawable-height drawable-id drawable-p
285 drawable-plist drawable-root drawable-width drawable-x drawable-y
286 error-key event-case event-cond event-handler event-key
287 event-listen event-mask event-mask-class extension-opcode
288 find-atom font font-all-chars-exist-p font-ascent
289 font-default-char font-descent font-direction font-display
290 font-equal font-error font-id font-max-byte1 font-max-byte2
291 font-max-char font-min-byte1 font-min-byte2 font-min-char
292 font-name font-p font-path font-plist font-properties
293 font-property fontable force-gcontext-changes free-colormap
294 free-colors free-cursor free-gcontext free-pixmap gcontext
295 gcontext-arc-mode gcontext-background
296 gcontext-cache-p gcontext-cap-style
297 gcontext-clip-mask gcontext-clip-ordering gcontext-clip-x
298 gcontext-clip-y gcontext-dash-offset gcontext-dashes gcontext-display
299 gcontext-equal gcontext-error gcontext-exposures gcontext-fill-rule
300 gcontext-fill-style gcontext-font gcontext-foreground gcontext-function
301 gcontext-id gcontext-join-style gcontext-key gcontext-line-style
302 gcontext-line-width gcontext-p gcontext-plane-mask gcontext-plist
303 gcontext-stipple gcontext-subwindow-mode gcontext-tile gcontext-ts-x
304 gcontext-ts-y get-external-event-code get-image get-property
305 get-raw-image get-resource get-search-resource get-search-table
306 get-standard-colormap get-wm-class global-pointer-position grab-button
307 grab-key grab-keyboard grab-pointer grab-server grab-status
308 icon-sizes iconify-window id-choice-error illegal-request-error
309 image image-blue-mask image-depth image-green-mask image-height
310 image-name image-pixmap image-plist image-red-mask image-width
311 image-x image-x-hot image-x-p image-xy image-xy-bitmap-list
312 image-xy-p image-y-hot image-z image-z-bits-per-pixel image-z-p
313 image-z-pixarray implementation-error input-focus install-colormap
314 installed-colormaps int16 int32 int8 intern-atom invalid-font
315 keyboard-control keyboard-mapping keycode->character keycode->keysym
316 keysym keysym->character keysym->keycodes keysym-in-map-p
317 keysym-set kill-client kill-temporary-clients length-error
318 list-extensions list-font-names list-fonts list-properties
319 lookup-color lookup-error make-color make-event-handlers
320 make-event-keys make-event-mask make-resource-database make-state-keys
321 make-state-mask make-wm-hints make-wm-size-hints map-resource
322 map-subwindows map-window mapping-notify mask16 mask32
323 match-error max-char-ascent max-char-attributes max-char-descent
324 max-char-left-bearing max-char-right-bearing max-char-width
325 merge-resources min-char-ascent min-char-attributes min-char-descent
326 min-char-left-bearing min-char-right-bearing min-char-width
327 missing-parameter modifier-key modifier-mapping modifier-mask
328 motion-events name-error no-operation open-display open-font
329 pixarray pixel pixmap pixmap-display pixmap-equal
330 pixmap-error pixmap-format pixmap-format-bits-per-pixel
331 pixmap-format-depth pixmap-format-p pixmap-format-scanline-pad
332 pixmap-id pixmap-p pixmap-plist point-seq pointer-control
333 pointer-event-mask pointer-event-mask-class pointer-mapping
334 pointer-position process-event put-image put-raw-image
335 query-best-cursor query-best-stipple query-best-tile query-colors
336 query-extension query-keymap query-pointer query-tree queue-event
337 read-bitmap-file read-resources recolor-cursor rect-seq
338 remove-access-host remove-from-save-set reparent-window repeat-seq
339 reply-length-error reply-timeout request-error reset-screen-saver
340 resource-database resource-database-timestamp resource-error
341 resource-id resource-key rgb-colormaps rgb-val root-resources
342 rotate-cut-buffers rotate-properties screen screen-backing-stores
343 screen-black-pixel screen-default-colormap screen-depths
344 screen-event-mask-at-open screen-height screen-height-in-millimeters
345 screen-max-installed-maps screen-min-installed-maps screen-p
346 screen-plist screen-root screen-root-depth screen-root-visual
347 screen-root-visual-info screen-save-unders-p screen-saver
348 screen-white-pixel screen-width screen-width-in-millimeters seg-seq
349 selection-owner send-event sequence-error set-access-control
350 set-close-down-mode set-input-focus set-modifier-mapping
351 set-pointer-mapping set-screen-saver set-selection-owner
352 set-standard-colormap set-standard-properties set-wm-class
353 set-wm-properties set-wm-resources state-keysym-p state-mask-key
354 store-color store-colors stringable text-extents text-width
355 timestamp transient-for translate-coordinates translate-default
356 translation-function undefine-keysym unexpected-reply
357 ungrab-button ungrab-key ungrab-keyboard ungrab-pointer
358 ungrab-server uninstall-colormap unknown-error unmap-subwindows
359 unmap-window value-error visual-info visual-info-bits-per-rgb
360 visual-info-blue-mask visual-info-class visual-info-colormap-entries
361 visual-info-display visual-info-green-mask visual-info-id visual-info-p
362 visual-info-plist visual-info-red-mask warp-pointer
363 warp-pointer-if-inside warp-pointer-relative warp-pointer-relative-if-inside
364 win-gravity window window-all-event-masks window-background
365 window-backing-pixel window-backing-planes window-backing-store
366 window-bit-gravity window-border window-class window-colormap
367 window-colormap-installed-p window-cursor window-display
368 window-do-not-propagate-mask window-equal window-error
369 window-event-mask window-gravity window-id window-map-state
370 window-override-redirect window-p window-plist window-priority
371 window-save-under window-visual window-visual-info with-display
372 with-event-queue with-gcontext with-server-grabbed with-state
373 withdraw-window wm-client-machine wm-colormap-windows wm-command
374 wm-hints wm-hints-flags wm-hints-icon-mask wm-hints-icon-pixmap
375 wm-hints-icon-window wm-hints-icon-x wm-hints-icon-y
376 wm-hints-initial-state wm-hints-input wm-hints-p wm-hints-window-group
377 wm-icon-name wm-name wm-normal-hints wm-protocols wm-resources
378 wm-size-hints wm-size-hints-base-height wm-size-hints-base-width
379 wm-size-hints-height wm-size-hints-height-inc wm-size-hints-max-aspect
380 wm-size-hints-max-height wm-size-hints-max-width wm-size-hints-min-aspect
381 wm-size-hints-min-height wm-size-hints-min-width wm-size-hints-p
382 wm-size-hints-user-specified-position-p wm-size-hints-user-specified-size-p
383 wm-size-hints-width wm-size-hints-width-inc wm-size-hints-win-gravity
384 wm-size-hints-x wm-size-hints-y wm-zoom-hints write-bitmap-file
385 write-resources xatom))

  ViewVC Help
Powered by ViewVC 1.1.5