defmodule
#:bitmap:x
files
(x xicons xmenu)
import
(virbitmap defstruct cstruct)
export
(#:bitmap:x:bitprologue #:bitmap:x:bitepilogue #:bitmap:x:bitmap-refresh #:
bitmap:x:bitmap-flush #:tty:window:tycleol #:tty:window:tyback #:bitmap:x:
create-window #:bitmap:x:create-subwindow #:image:rectangle:window:
current-window #:image:rectangle:window:uncurrent-window #:image:rectangle:
window:modify-window #:image:rectangle:window:update-window #:image:rectangle:
window:kill-window #:image:rectangle:window:pop-window #:image:rectangle:
window:move-behind-window #:bitmap:x:find-window #:image:rectangle:window:
map-window #:image:rectangle:window:current-keyboard-focus-window #:image:
rectangle:window:uncurrent-keyboard-focus-window #:bitmap:x:parse-event #:
bitmap:x:event-mode #:bitmap:x:eventp #:bitmap:x:read-event #:bitmap:x:
peek-event #:bitmap:x:flush-event #:bitmap:x:add-event #:bitmap:x:grab-event 
#:bitmap:x:ungrab-event #:bitmap:x:itsoft-event #:bitmap:x:read-mouse #:
graph-env:x:font-max #:graph-env:x:init-fonts #:graph-env:x:current-font #:
graph-env:x:load-font #:graph-env:x:draw-substring #:graph-env:x:draw-cn #:
graph-env:x:clear-graph-env #:graph-env:x:width-substring #:graph-env:x:
height-substring #:graph-env:x:x-base-substring #:graph-env:x:y-base-substring
#:graph-env:x:x-inc-substring #:graph-env:x:y-inc-substring #:graph-env:x:
draw-cursor #:graph-env:x:current-clip #:graph-env:x:current-line-style #:
graph-env:x:line-style-max #:graph-env:x:current-pattern #:graph-env:x:
pattern-max #:graph-env:x:current-mode #:graph-env:x:draw-polyline #:
graph-env:x:draw-line #:graph-env:x:draw-point #:graph-env:x:draw-rectangle #:
graph-env:x:draw-polymarker #:graph-env:x:fill-area #:graph-env:x:
fill-rectangle #:graph-env:x:draw-ellipse #:graph-env:x:fill-ellipse #:
graph-env:x:fill-circle #:bitmap:x:create-menu #:menu:x:kill-menu #:menu:x:
activate-menu #:menu:x:menu-insert-item-list #:menu:x:menu-insert-item #:menu:
x:menu-delete-item-list #:menu:x:menu-delete-item #:menu:x:
menu-modify-item-list #:menu:x:menu-modify-item #:bitmap:create-bitmap #:
bitmap:create-window-bitmap #:bitmap:get-bit-line #:bitmap:set-bit-line #:
bitmap:bit-reverse #:bitmap:kill-bitmap #:bitmap:bmref #:bitmap:bmset #:
bitmap:bitblit save-core restore-core #:graph-env:x:draw-circle |←memcpy1| 
|←memcpy|)

;;; Added automatically, don't type beyond this line.
cpexport
((#:bitmap:x:bitprologue subr0 ()) (#:graph-env:x:init-fonts subr0 ()) (#:bitmap:x:bitepilogue subr0 ()) (#:bitmap:x:bitmap-refresh subr0 ()) (#:bitmap:x:bitmap-flush subr0 ()) (#:tty:window:tycleol subr0 ()) (#:tty:window:tyback subr1 ()) (#:bitmap:x:create-window subr1 ()) (#:bitmap:x:create-subwindow subr1 ()) (#:image:rectangle:window:current-window subr1 ()) (#:image:rectangle:window:uncurrent-window subr1 ()) (#:image:rectangle:window:modify-window nsubr ()) (#:image:rectangle:window:update-window nsubr ()) (#:image:rectangle:window:kill-window subr1 ()) (#:image:rectangle:window:pop-window subr1 ()) (#:image:rectangle:window:move-behind-window subr2 ()) (#:bitmap:x:find-window subr2 ()) (#:image:rectangle:window:map-window nsubr ()) (#:image:rectangle:window:current-keyboard-focus-window subr1 ()) (#:image:rectangle:window:uncurrent-keyboard-focus-window subr1 ()) (#:bitmap:x:parse-event subr1 ()) (#:bitmap:x:event-mode subr1 ()) (#:bitmap:x:eventp subr0 ()) (#:bitmap:x:read-event subr1 ()) (#:bitmap:x:peek-event subr1 ()) (#:bitmap:x:flush-event subr0 ()) (#:bitmap:x:add-event subr1 ()) (#:bitmap:x:grab-event subr1 ()) (#:bitmap:x:ungrab-event subr0 ()) (#:bitmap:x:itsoft-event subr1 ()) (#:bitmap:x:read-mouse subr1 ()) (#:graph-env:x:font-max subr1 ()) (#:graph-env:x:current-font subr2 ()) (#:graph-env:x:load-font subr2 ()) (#:graph-env:x:draw-substring nsubr ()) (#:graph-env:x:draw-cn nsubr ()) (#:graph-env:x:clear-graph-env subr1 ()) (#:graph-env:x:width-substring nsubr ()) (#:graph-env:x:height-substring nsubr ()) (#:graph-env:x:x-base-substring nsubr ()) (#:graph-env:x:y-base-substring nsubr ()) (#:graph-env:x:x-inc-substring nsubr ()) (#:graph-env:x:y-inc-substring nsubr ()) (#:graph-env:x:draw-cursor nsubr ()) (#:graph-env:x:current-clip nsubr ()) (#:graph-env:x:current-line-style subr2 ()) (#:graph-env:x:line-style-max subr1 ()) (#:graph-env:x:current-pattern subr2 ()) (#:graph-env:x:pattern-max subr1 ()) (#:graph-env:x:current-mode subr2 ()) (#:graph-env:x:draw-polyline nsubr ()) (#:graph-env:x:draw-line nsubr ()) (#:graph-env:x:draw-point subr3 ()) (#:graph-env:x:draw-rectangle nsubr ()) (#:graph-env:x:draw-polymarker nsubr ()) (#:graph-env:x:fill-area nsubr ()) (#:graph-env:x:fill-rectangle nsubr ()) (#:graph-env:x:draw-ellipse nsubr ()) (#:graph-env:x:fill-ellipse nsubr ()) (#:graph-env:x:fill-circle nsubr ()) (#:bitmap:x:create-menu subr1 ()) (#:menu:x:kill-menu subr1 ()) (#:menu:x:activate-menu subr3 ()) (#:menu:x:menu-insert-item-list nsubr ()) (#:menu:x:menu-insert-item nsubr ()) (#:menu:x:menu-delete-item-list subr2 ()) (#:menu:x:menu-delete-item subr3 ()) (#:menu:x:menu-modify-item-list nsubr ()) (#:menu:x:menu-modify-item nsubr ()) (#:bitmap:create-bitmap subr1 ()) (#:bitmap:create-window-bitmap subr2 ()) (#:bitmap:get-bit-line subr3 ()) (|←memcpy| subr3 ()) (#:bitmap:bit-reverse subr1 ()) (#:bitmap:set-bit-line subr3 ()) (|←memcpy1| subr3 ()) (#:bitmap:kill-bitmap subr1 ()) (#:bitmap:bmref subr3 ()) (#:bitmap:bmset nsubr ()) (#:bitmap:bitblit nsubr ()) (save-core subr1 ()) (restore-core subr1 ()) (#:graph-env:x:draw-circle nsubr ()))
cpfunctions
((|←bitprologue| nsubr) (#:graph-env:x:make subr0) (|←llreversevideo| subr0) (|←default←font1| subr0) (|←default←font2| subr0) (|←bitepilogue| subr0) (|←XFlush| subr0) (|←tycleol| subr3) (|←create←window| nsubr) (|←create←subwindow| nsubr) (|←modify←window| nsubr) (|←kill←window| subr1) (|←pop←window| subr1) (|←move←behind←window| subr2) (|←find←window| subr3) (|←map←window| nsubr) (|←grab←keyboard| subr2) (|←set←event←mode| subr1) (|←eventp| subr1) (|←i←read←mouse| subr1) (|←i←peek←mouse| subr1) (|←flush←event| subr0) (copyvector1 subr1) (|←grab←mouse| subr2) (|←read←mouse| subr1) (|←current←font| subr2) (|←load←font| subr1) (|←draw←substr| nsubr) (|←draw←cn| nsubr) (|←clear←ge| subr1) (|←width←substr| nsubr) (|←height←cn| subr2) (|←xinc←substr| nsubr) (|←draw←cursor| nsubr) (|←set←clip| nsubr) (|←set←line←style| subr2) (|←set←cur←pattern| subr2) (|←set←cur←mode| subr2) (|←draw←polyline| nsubr) (|←draw←line| nsubr) (|←draw←point| subr3) (|←draw←rectangle| nsubr) (|←draw←polymarker| nsubr) (|←fill←area| nsubr) (|←fill←rectangle| nsubr) (#:graph-env:x:defvectors subr0) (#:menu:x:make subr0) (|←XMenuCreate| subr2) (|←rootwindow| subr0) (|←XMenuDestroy| subr1) (|←XMenuLocate| nsubr) (|←XMenuActivate| nsubr) (|←XMenuInsertPane| nsubr) (|←XMenuAddPane| subr3) (|←XMenuInsertSelection| nsubr) (|←XMenuAddSelection| nsubr) (|←XMenuDeletePane| subr2) (|←XMenuDeleteSelection| subr3) (|←XMenuChangePane| subr3) (|←XMenuSetPane| subr3) (|←XMenuChangeSelection| nsubr) (|←XMenuSetSelection| nsubr) (#:bitmap:x:make subr0) (|←XPixmapSave| nsubr) (|←mmalloc| subr2) (|←big←malloc| subr1) (|←XPixmapGetXY| nsubr) (|←Xwindow| subr1) (#:bitmap:reverse-bit-vector subr1) (|←XUnmapTransparent| subr1) (|←XPixmapPut| nsubr) (|←XFreePixmap| subr1) (|←XPixmapBitsPutXY| nsubr) (|←XStoreBitmap| subr3) (|←XMakePixmap| subr3) (|←XFreeBitmap| subr1) (#:bitmap:window-from-window nsubr) (|←copyarea| nsubr) (#:bitmap:window-from-pixmap nsubr) (|←putpixmap| nsubr) (#:bitmap:pixmap-from-window nsubr) (#:bitmap:pixmap-from-pixmap nsubr) (recreate-windows subr1) (add-repaint-event subr1) (#:menu:x:rebuild-menu subr1))
cpimport
((cstruct (|←free| . subr1) (|←cstring| . subr2) (|←malloc| . subr1) (|←shortref| . subr2)) (defstruct (new . subr1)) (virbitmap (current-window . nsubr) (create-window . nsubr) (kill-window . subr1) (current-mode . nsubr) (draw-cn . subr3) (draw-polyline . subr3) (draw-polymarker . subr3) (fill-area . subr3) (bitxmax . nsubr) (bitymax . nsubr) (modify-window . nsubr) (bitblit . nsubr) (window-bitmap . subr1) (bitmap-flush . nsubr) (current-font . nsubr) (current-pattern . nsubr) (current-line-style . nsubr) (current-keyboard-focus-window . nsubr) (check-window-position . subr1) (#:bitmap:bits . nsubr) (bitepilogue . nsubr) (bitprologue . nsubr) (load-font . subr1) (windowp . subr1) (make-window . subr1) (add-event . nsubr) (menu-insert-item-list . nsubr) (menu-insert-item . nsubr)))