defmodule
#:display:x11
files
(x11)
import
(virbitmap defstruct)
export
(#:display:x11:make #:x11:extend:make #:x11:bitmap:make #:x11:menu:make #:
display:x11:bitprologue #:display:x11:bitepilogue #:display:x11:bitmap-save #:
display:x11:bitmap-restore #:display:x11:bitmap-refresh #:display:x11:
bitmap-flush #:display:x11:bitmap-sync #:display:x11:standard-roman-font #:
display:x11:standard-bold-font #:display:x11:large-roman-font #:display:x11:
small-roman-font #:display:x11:standard-background-pattern #:display:x11:
standard-foreground-pattern #:display:x11:standard-medium-gray-pattern #:
display:x11:standard-light-gray-pattern #:display:x11:
standard-dark-gray-pattern #:display:x11:standard-lelisp-cursor #:display:x11:
standard-gc-cursor #:display:x11:standard-busy-cursor #:display:x11:
create-window #:display:x11:create-subwindow #:display:x11:current-window #:
display:x11:uncurrent-window #:display:x11:modify-window #:display:x11:
update-window #:display:x11:kill-window #:display:x11:pop-window #:display:
x11:move-behind-window #:display:x11:current-keyboard-focus-window #:display:
x11:uncurrent-keyboard-focus-window #:display:x11:find-window #:display:x11:
map-window #:image:rectangle:window:set-window-hints #:image:rectangle:window:
modify-window-hints #:display:x11:event-mode #:display:x11:flush-event #:
display:x11:eventp #:display:x11:read-event #:display:x11:peek-event #:
display:x11:read-mouse #:display:x11:add-event #:display:x11:grab-event #:
display:x11:ungrab-event #:display:x11:itsoft-event #:display:x11:
clear-graph-env #:display:x11:current-clip #:display:x11:font-max #:display:
x11:load-font #:display:x11:current-font #:display:x11:width-substring #:
display:x11:height-substring #:display:x11:x-base-substring #:display:x11:
y-base-substring #:display:x11:x-inc-substring #:display:x11:y-inc-substring 
#:display:x11:line-style-max #:display:x11:current-line-style #:display:x11:
pattern-max #:display:x11:make-pattern #:display:x11:current-pattern #:
display:x11:current-mode #:display:x11:draw-cn #:display:x11:draw-substring #:
display:x11:draw-point #:display:x11:draw-polymarker #:display:x11:draw-line 
#:display:x11:draw-rectangle #:display:x11:draw-polyline #:display:x11:
draw-ellipse #:display:x11:draw-circle #:display:x11:fill-rectangle #:display:
x11:fill-area #:display:x11:fill-ellipse #:display:x11:fill-circle #:display:
x11:cursor-max #:display:x11:make-cursor #:display:x11:current-cursor #:
display:x11:move-cursor #:display:x11:draw-cursor #:display:x11:make-color #:
display:x11:make-mutable-color #:display:x11:make-named-color #:display:x11:
kill-color #:display:x11:current-foreground #:display:x11:current-background 
#:display:x11:red-component #:display:x11:green-component #:display:x11:
blue-component #:display:x11:create-bitmap #:display:x11:create-window-bitmap 
#:display:x11:kill-bitmap #:display:x11:get-bit-line #:display:x11:
set-bit-line #:display:x11:bmref #:display:x11:bmset #:display:x11:bitblit #:
image:rectangle:window:menu-window:set-window-hints #:display:x11:create-menu 
#:display:x11:kill-menu #:display:x11:activate-menu #:display:x11:
menu-insert-item #:display:x11:menu-insert-item-list #:display:x11:
menu-delete-item-list #:display:x11:menu-delete-item #:display:x11:
menu-modify-item-list #:display:x11:menu-modify-item)

;;; Added automatically, don't type beyond this line.
cpexport
((#:display:x11:make subr0 ()) (#:x11:extend:make subr0 ()) (#:x11:bitmap:make
subr0 ()) (#:x11:menu:make subr0 ()) (#:display:x11:bitprologue subr1 ()) (#:
display:x11:make-named-color subr3 ()) (#:display:x11:load-font subr3 ()) (#:
display:x11:create-bitmap subr2 ()) (#:display:x11:make-pattern subr3 ()) (#:
display:x11:bitepilogue subr1 ()) (#:display:x11:bitmap-save subr1 ()) (#:
display:x11:bitmap-restore subr1 ()) (#:display:x11:bitmap-refresh subr1 ()) (
#:display:x11:bitmap-flush subr1 ()) (#:display:x11:bitmap-sync subr1 ()) (#:
display:x11:standard-roman-font subr1 ()) (#:display:x11:standard-bold-font 
subr1 ()) (#:display:x11:large-roman-font subr1 ()) (#:display:x11:
small-roman-font subr1 ()) (#:display:x11:standard-background-pattern subr1 ()
) (#:display:x11:standard-foreground-pattern subr1 ()) (#:display:x11:
standard-medium-gray-pattern subr1 ()) (#:display:x11:
standard-light-gray-pattern subr1 ()) (#:display:x11:
standard-dark-gray-pattern subr1 ()) (#:display:x11:standard-lelisp-cursor 
subr1 ()) (#:display:x11:standard-gc-cursor subr1 ()) (#:display:x11:
standard-busy-cursor subr1 ()) (#:display:x11:create-window subr2 ()) (#:
display:x11:create-subwindow subr2 ()) (#:display:x11:current-window subr2 ())
(#:display:x11:uncurrent-window subr2 ()) (#:display:x11:modify-window nsubr (
)) (#:display:x11:update-window nsubr ()) (#:display:x11:kill-window subr2 ())
(#:display:x11:pop-window subr2 ()) (#:display:x11:move-behind-window subr3 ()
) (#:display:x11:current-keyboard-focus-window subr2 ()) (#:display:x11:
uncurrent-keyboard-focus-window subr2 ()) (#:display:x11:find-window subr3 ())
(#:display:x11:map-window nsubr ()) (#:image:rectangle:window:set-window-hints
subr1 ()) (#:image:rectangle:window:modify-window-hints subr1 ()) (#:display:
x11:event-mode subr2 ()) (#:display:x11:flush-event subr1 ()) (#:display:x11:
eventp subr1 ()) (#:display:x11:read-event subr2 ()) (#:display:x11:peek-event
subr2 ()) (#:display:x11:read-mouse subr2 ()) (#:display:x11:add-event subr2 (
)) (#:display:x11:grab-event subr2 ()) (#:display:x11:ungrab-event subr1 ()) (
#:display:x11:itsoft-event subr1 ()) (#:display:x11:clear-graph-env subr2 ()) 
(#:display:x11:current-clip nsubr ()) (#:display:x11:font-max subr2 ()) (#:
display:x11:current-font subr3 ()) (#:display:x11:width-substring nsubr ()) (
#:display:x11:height-substring nsubr ()) (#:display:x11:x-base-substring nsubr
()) (#:display:x11:y-base-substring nsubr ()) (#:display:x11:x-inc-substring 
nsubr ()) (#:display:x11:y-inc-substring nsubr ()) (#:display:x11:
line-style-max subr2 ()) (#:display:x11:current-line-style subr3 ()) (#:
display:x11:pattern-max subr2 ()) (#:display:x11:current-pattern subr3 ()) (#:
display:x11:current-mode subr3 ()) (#:display:x11:draw-cn nsubr ()) (#:
display:x11:draw-substring nsubr ()) (#:display:x11:draw-point nsubr ()) (#:
display:x11:draw-polymarker nsubr ()) (#:display:x11:draw-line nsubr ()) (#:
display:x11:draw-rectangle nsubr ()) (#:display:x11:draw-polyline nsubr ()) (
#:display:x11:draw-ellipse nsubr ()) (#:display:x11:draw-circle nsubr ()) (#:
display:x11:fill-rectangle nsubr ()) (#:display:x11:fill-area nsubr ()) (#:
display:x11:fill-ellipse nsubr ()) (#:display:x11:fill-circle nsubr ()) (#:
display:x11:cursor-max subr1 ()) (#:display:x11:make-cursor nsubr ()) (#:
display:x11:current-cursor subr2 ()) (#:display:x11:move-cursor subr3 ()) (#:
display:x11:draw-cursor nsubr ()) (#:display:x11:make-color nsubr ()) (#:
display:x11:make-mutable-color nsubr ()) (#:display:x11:kill-color subr2 ()) (
#:display:x11:current-foreground subr3 ()) (#:display:x11:current-background 
subr3 ()) (#:display:x11:red-component subr3 ()) (#:display:x11:
green-component subr3 ()) (#:display:x11:blue-component subr3 ()) (#:display:
x11:create-window-bitmap subr3 ()) (#:display:x11:kill-bitmap subr2 ()) (#:
display:x11:get-bit-line nsubr ()) (#:display:x11:set-bit-line nsubr ()) (#:
display:x11:bmref nsubr ()) (#:display:x11:bmset nsubr ()) (#:display:x11:
bitblit nsubr ()) (#:image:rectangle:window:menu-window:set-window-hints subr1
()) (#:display:x11:create-menu subr2 ()) (#:display:x11:kill-menu subr2 ()) (
#:display:x11:activate-menu nsubr ()) (#:display:x11:menu-insert-item nsubr ()
) (#:display:x11:menu-insert-item-list nsubr ()) (#:display:x11:
menu-delete-item-list subr3 ()) (#:display:x11:menu-delete-item nsubr ()) (#:
display:x11:menu-modify-item-list nsubr ()) (#:display:x11:menu-modify-item 
nsubr ()))
cpfunctions
((#:display:x11:initialise subr1) (_initialise subr3) (_bitprologue nsubr) (#:
display:x11:event-mask subr1) (#:display:x11:init-color subr1) (_get_default 
subr3) (_make_named_color subr3) (#:display:x11:do-color nsubr) (#:display:
x11:compute-mask subr3) (_init_pixels nsubr) (#:display:x11:init-cursor subr1)
(_create_cursor subr2) (#:display:x11:init-font subr1) (#:display:x11:
add-a-font subr3) (_load_font subr2) (#:display:x11:init-line-style subr1) (#:
display:x11:init-pattern subr1) (#:display:x11:add-a-pattern nsubr) (
_create_bitmap subr3) (#:display:x11:init-window subr1) (_root_window subr1) (
#:display:x11:create-graph-env subr2) (_create_graph_env nsubr) (#:display:
x11:top-window subr1) (#:display:x11:set-clip-for-window subr2) (#:display:
x11:set-offsets subr1) (#:display:x11:set-view-rectangle subr1) (#:display:
x11:intersect nsubr) (#:display:x11:set-visibility subr1) (_current_clip nsubr
) (#:display:x11:init-file-descriptor subr2) (_bitepilogue subr1) (
_bitmap_refresh subr2) (_bitmap_flush subr1) (_bitmap_sync subr1) (
_create_window nsubr) (_activate_window subr2) (_create_subwindow nsubr) (
_current_window nsubr) (_modify_window nsubr) (#:display:x11:
set-clip-for-subwindows subr2) (_kill_window subr3) (_pop_window subr2) (
_move_behind_window subr2) (_find_window subr3) (_map_window nsubr) (
_flush_event subr1) (_eventp subr1) (_read_event subr2) (#:display:x11:
parse-event subr3) (_peek_event subr2) (_read_mouse subr2) (_grab_event subr2)
(_ungrab_event subr1) (_clear_graph_env nsubr) (_current_font subr2) (
_width_string nsubr) (_height_string nsubr) (_x_base_string nsubr) (
_y_base_string nsubr) (_current_line_style subr3) (_current_pattern subr2) (
_current_mode subr2) (_draw_cn nsubr) (_draw_string nsubr) (_draw_point subr3)
(_draw_polymarker nsubr) (_draw_line nsubr) (_draw_rectangle nsubr) (
_draw_polyline nsubr) (_draw_ellipse nsubr) (_fill_rectangle nsubr) (
_fill_area nsubr) (_fill_ellipse nsubr) (_pixmap_to_bitmap nsubr) (
_make_cursor nsubr) (_current_cursor subr2) (_move_cursor subr3) (
_current_foreground subr2) (_make_color nsubr) (_make_mutable_color nsubr) (
_kill_color subr2) (_current_background subr2) (_color_component nsubr) (
_kill_bitmap subr2) (_get_bit_line nsubr) (_set_bit_line nsubr) (_bmref nsubr)
(_bmset nsubr) (_bitblit nsubr) (_default_gc subr1) (_set_menu_attributes 
subr2) (#:display:x11:draw-menu subr3) (#:display:x11:width subr1) (#:display:
x11:itemlist:width subr1) (width-string subr1) (#:display:x11:height subr1) (
menuwindow nsubr) (#:image:rectangle:window:menu-window:make subr0) (#:
display:x11:follow-mouse subr1) (#:display:x11:next-position subr2) (#:
display:x11:redraw-menu subr2) (#:display:x11:invert-item subr3) (#:display:
x11:itemlist-x subr2) (#:display:x11:itemlist-x1 subr2) (#:display:x11:
find-list subr2) (#:display:x11:find-list1 subr3))
cpimport
((virbitmap (#:color:make . subr0) (#:bitmap:make . subr0) (#:bitmap:bits . 
nsubr) (#:image:rectangle:window:make . subr0) (#:graph-env:make . subr0) (#:
image:rectangle:make . subr0) (windowp . subr1) (current-mode . nsubr) (
current-pattern . nsubr) (current-foreground . nsubr) (current-background . 
nsubr) (current-display . nsubr) (width-substring . subr3) (bitxmax . nsubr) (
bitymax . nsubr) (height-space . subr0) (make-window . subr1) (grab-event . 
subr1) (bitmap-sync . nsubr) (current-window . nsubr) (read-event . nsubr) (
x-base-space . subr0) (y-base-space . subr0) (current-clip . nsubr) (
clear-graph-env . subr0) (draw-substring . nsubr) (fill-rectangle . nsubr) (
ungrab-event . subr0) (kill-window . subr1)))