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)))