defmodule
window
files
(virbitmap display)
import
(defstruct)
export
(#:display:check-display #:window:check-window #:window:check-windows #:
bitmap:check-bitmap #:bitmap:check-bitmaps #:menu:check-menu #:color:
check-color #:display:make #:display:name #:display:package #:display:device 
#:display:xmax #:display:ymax #:display:eventmode #:display:prologuep #:
display:keyboard-focus-window #:display:window #:display:graph-env #:display:
root-window #:display:main-graph-env #:display:background #:display:foreground
#:display:windows #:display:bitmaps #:display:menus #:display:colors #:
display:font-names #:display:pattern-bitmaps #:display:cursor-bitmaps #:
display:extend #:image:rectangle:make #:image:rectangle:x #:image:rectangle:y 
#:image:rectangle:w #:image:rectangle:h #:image:rectangle:window:make #:image:
rectangle:window:title #:image:rectangle:window:hilited #:image:rectangle:
window:visible #:image:rectangle:window:graph-env #:image:rectangle:window:
extend #:image:rectangle:window:father #:image:rectangle:window:properties #:
image:rectangle:window:cursor #:image:rectangle:window:display #:image:
rectangle:window:subwindows #:color:make #:color:name #:color:red #:color:
green #:color:blue #:color:mutable #:color:display #:color:extend #:graph-env:
make #:graph-env:font #:graph-env:line-style #:graph-env:pattern #:graph-env:
mode #:graph-env:foreground #:graph-env:background #:graph-env:clip-x #:
graph-env:clip-y #:graph-env:clip-w #:graph-env:clip-h #:graph-env:bitmap #:
graph-env:display #:graph-env:extend #:event:make #:event:code #:event:window 
#:event:detail #:event:gx #:event:gy #:event:x #:event:y #:event:w #:event:h 
#:menu:make #:menu:name #:menu:itemlists #:menu:display #:menu:extend #:menu:
itemlist:make #:menu:itemlist:name #:menu:itemlist:active #:menu:itemlist:
items #:menu:item:make #:menu:item:name #:menu:item:active #:menu:item:value 
#:bitmap:make #:bitmap:w #:bitmap:h #:bitmap:extend #:bitmap:display inibitmap
bitprologue bitmap-save bitmap-restore bitepilogue current-display bitxmax 
bitymax root-window bitmap-refresh bitmap-flush bitmap-sync 
standard-roman-font standard-bold-font large-roman-font small-roman-font 
standard-foreground-pattern standard-background-pattern 
standard-medium-gray-pattern standard-light-gray-pattern 
standard-dark-gray-pattern standard-lelisp-cursor standard-gc-cursor 
standard-busy-cursor create-window create-subwindow make-window current-window
modify-window update-window kill-window pop-window move-behind-window 
current-keyboard-focus-window find-window map-window windowp subwindowp 
which-window check-window-position define-window-property-accessor #:image:
rectangle:window:set-property #:image:rectangle:window:create #:image:
rectangle:window:prin #:window:make #:window:left #:window:top #:window:width 
#:window:height #:window:title #:window:hilited #:window:visible #:window:
graph-env #:window:extend #:window:father #:window:properties #:window:cursor 
#:window:display #:window:subwindows #:window:create #:window:prin #:image:
rectangle:window:make-window #: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 
#:image:rectangle:window:current-keyboard-focus-window #:image:rectangle:
window:uncurrent-keyboard-focus-window #:image:rectangle:window:map-window #:
color:prin standard-foreground standard-background make-color 
make-mutable-color make-named-color kill-color red-component blue-component 
green-component all-colors current-foreground current-background #:graph-env:
current-foreground #:graph-env:current-background clear-graph-env current-clip
draw-cursor current-font font-max load-font font-name draw-substring draw-cn 
width-substring height-substring x-base-substring y-base-substring 
x-inc-substring y-inc-substring current-line-style line-style-max 
current-pattern pattern-max make-pattern current-mode draw-point 
draw-polymarker draw-line draw-polyline draw-rectangle fill-rectangle 
fill-area draw-ellipse fill-ellipse draw-circle fill-circle #:graph-env:
clear-graph-env #:graph-env:current-clip #:graph-env:draw-cursor #:graph-env:
current-font #:graph-env:font-max #:graph-env:load-font #:graph-env:font-name 
#:graph-env:draw-cn #:graph-env:draw-substring #:graph-env:width-substring #:
graph-env:height-substring #:graph-env:x-base-substring #:graph-env:
y-base-substring #:graph-env:x-inc-substring #:graph-env:y-inc-substring #:
graph-env:line-style-max #:graph-env:current-line-style #:graph-env:
pattern-max #:graph-env:current-pattern #:graph-env:make-pattern #:graph-env:
current-mode #:graph-env:draw-point #:graph-env:draw-polymarker #:graph-env:
draw-line #:graph-env:draw-polyline #:graph-env:draw-rectangle #:graph-env:
fill-area #:graph-env:fill-rectangle #:graph-env:draw-ellipse #:graph-env:
fill-ellipse #:graph-env:fill-circle #:graph-env:draw-circle draw-string 
width-space height-space x-base-space y-base-space cursor-max make-cursor 
current-cursor move-cursor event-mode eventp read-event peek-event 
local-read-event flush-event add-event grab-event ungrab-event itsoft-event 
read-mouse create-menu kill-menu activate-menu menu-insert-item-list 
menu-insert-item menu-delete-item-list menu-delete-item menu-modify-item-list 
menu-modify-item create-bitmap window-bitmap kill-bitmap bmref bmset bitblit 
#:sharp:* #:sharp:B #:bitmap:bits #:bitvector:read #:bitvector:prin #:bitmap:
prin to-display to-bitmap get-bitmap #:display:bitprologue #:display:
bitepilogue #:display:bitmap-save #:display:bitmap-restore #:display:
bitmap-refresh #:display:bitmap-flush #:display:bitmap-sync #:display:
current-display #:display:prin #:display:standard-roman-font #:display:
standard-bold-font #:display:large-roman-font #:display:small-roman-font #:
display:standard-background-pattern #:display:standard-foreground-pattern #:
display:standard-medium-gray-pattern #:display:standard-light-gray-pattern #:
display:standard-dark-gray-pattern #:display:standard-lelisp-cursor #:display:
standard-gc-cursor #:display:standard-busy-cursor #:display:create-window #:
display:create-subwindow #:display:current-window #:display:uncurrent-window 
#:display:modify-window #:display:update-window #:display:kill-window #:
display:pop-window #:display:move-behind-window #:display:
current-keyboard-focus-window #:display:uncurrent-keyboard-focus-window #:
display:find-window #:display:map-window #:display:event-mode #:display:
flush-event #:display:eventp #:display:read-event #:display:peek-event #:
display:read-mouse #:display:add-event #:display:grab-event #:display:
ungrab-event #:display:itsoft-event #:display:clear-graph-env #:display:
current-clip #:display:font-max #:display:load-font #:display:current-font #:
display:width-substring #:display:height-substring #:display:x-base-string #:
display:y-base-string #:display:x-inc-string #:display:y-inc-string #:display:
current-line-style #:display:line-style-max #:display:current-pattern #:
display:pattern-max #:display:current-mode #:display:draw-cn #:display:
draw-substring #:display:draw-point #:display:draw-polymarker #:display:
draw-line #:display:draw-rectangle #:display:draw-polyline #:display:
draw-ellipse #:display:draw-circle #:display:fill-rectangle #:display:
fill-area #:display:fill-ellipse #:display:fill-circle #:display:cursor-max #:
display:make-cursor #:display:current-cursor #:display:move-cursor #:display:
draw-cursor #:display:make-color #:display:make-mutable-color #:display:
make-name-color #:display:kill-color #:display:make-color #:display:
current-foreground #:display:current-background #:display:red-component #:
display:green-component #:display:blue-component #:display:create-bitmap #:
display:create-window-bitmap #:display:kill-bitmap #:display:get-bit-line #:
display:set-bit-line #:display:bmref #:display:bmset #:display:bitblit #:
display:create-menu #:display:kill-menu #:display:activate-menu #:display:
menu-insert-item-list #:display:menu-insert-item #:display:
menu-delete-item-list #:display:menu-delete-item #:display:
menu-modify-item-list #:display:menu-modify-item #:bitmap:bitprologue #:
bitmap:bitepilogue #:bitmap:bitmap-refresh #:bitmap:bitmap-flush #:bitmap:
draw-cn #:bitmap:draw-line #:bitmap:draw-point #:bitmap:draw-rectangle #:
bitmap:fill-rectangle)
cpexport
((#:display:check-display subr2 ()) (#:window:check-window subr3 ()) (#:
window:check-windows subr3 ()) (#:bitmap:check-bitmap subr3 ()) (#:bitmap:
check-bitmaps subr3 ()) (#:menu:check-menu subr3 ()) (#:color:check-color 
subr3 ()) (#:display:make subr0 ()) (#:display:name nsubr ()) (#:display:
package nsubr ()) (#:display:device nsubr ()) (#:display:xmax nsubr ()) (#:
display:ymax nsubr ()) (#:display:eventmode nsubr ()) (#:display:prologuep 
nsubr ()) (#:display:keyboard-focus-window nsubr ()) (#:display:window nsubr (
)) (#:display:graph-env nsubr ()) (#:display:root-window nsubr ()) (#:display:
main-graph-env nsubr ()) (#:display:background nsubr ()) (#:display:foreground
nsubr ()) (#:display:windows nsubr ()) (#:display:bitmaps nsubr ()) (#:
display:menus nsubr ()) (#:display:colors nsubr ()) (#:display:font-names 
nsubr ()) (#:display:pattern-bitmaps nsubr ()) (#:display:cursor-bitmaps nsubr
()) (#:display:extend nsubr ()) (#:image:rectangle:make subr0 ()) (#:image:
rectangle:x nsubr ()) (#:image:rectangle:y nsubr ()) (#:image:rectangle:w 
nsubr ()) (#:image:rectangle:h nsubr ()) (#:image:rectangle:window:make subr0 
()) (#:image:rectangle:window:title nsubr ()) (#:image:rectangle:window:
hilited nsubr ()) (#:image:rectangle:window:visible nsubr ()) (#:image:
rectangle:window:graph-env nsubr ()) (#:image:rectangle:window:extend nsubr ()
) (#:image:rectangle:window:father nsubr ()) (#:image:rectangle:window:
properties nsubr ()) (#:image:rectangle:window:cursor nsubr ()) (#:image:
rectangle:window:display nsubr ()) (#:image:rectangle:window:subwindows nsubr 
()) (#:color:make subr0 ()) (#:color:name nsubr ()) (#:color:red nsubr ()) (#:
color:green nsubr ()) (#:color:blue nsubr ()) (#:color:mutable nsubr ()) (#:
color:display nsubr ()) (#:color:extend nsubr ()) (#:graph-env:make subr0 ()) 
(#:graph-env:font nsubr ()) (#:graph-env:line-style nsubr ()) (#:graph-env:
pattern nsubr ()) (#:graph-env:mode nsubr ()) (#:graph-env:foreground nsubr ()
) (#:graph-env:background nsubr ()) (#:graph-env:clip-x nsubr ()) (#:
graph-env:clip-y nsubr ()) (#:graph-env:clip-w nsubr ()) (#:graph-env:clip-h 
nsubr ()) (#:graph-env:bitmap nsubr ()) (#:graph-env:display nsubr ()) (#:
graph-env:extend nsubr ()) (#:event:make subr0 ()) (#:event:code nsubr ()) (#:
event:window nsubr ()) (#:event:detail nsubr ()) (#:event:gx nsubr ()) (#:
event:gy nsubr ()) (#:event:x nsubr ()) (#:event:y nsubr ()) (#:event:w nsubr 
()) (#:event:h nsubr ()) (#:menu:make subr0 ()) (#:menu:name nsubr ()) (#:
menu:itemlists nsubr ()) (#:menu:display nsubr ()) (#:menu:extend nsubr ()) (
#:menu:itemlist:make subr0 ()) (#:menu:itemlist:name nsubr ()) (#:menu:
itemlist:active nsubr ()) (#:menu:itemlist:items nsubr ()) (#:menu:item:make 
subr0 ()) (#:menu:item:name nsubr ()) (#:menu:item:active nsubr ()) (#:menu:
item:value nsubr ()) (#:bitmap:make subr0 ()) (#:bitmap:w nsubr ()) (#:bitmap:
h nsubr ()) (#:bitmap:extend nsubr ()) (#:bitmap:display nsubr ()) (inibitmap 
nsubr ()) (bitprologue nsubr ()) (current-display nsubr ()) (bitmap-save nsubr
()) (#:bitmap:bits nsubr ()) (check-window-position subr1 ()) (map-window 
nsubr ()) (root-window nsubr ()) (update-window nsubr ()) (font-name subr1 ())
(standard-roman-font nsubr ()) (standard-bold-font nsubr ()) (large-roman-font
nsubr ()) (small-roman-font nsubr ()) (flush-event subr0 ()) (bitmap-restore 
subr1 ()) (standard-foreground subr0 ()) (standard-background subr0 ()) (
create-bitmap nsubr ()) (make-named-color subr1 ()) (make-mutable-color subr3 
()) (make-color subr3 ()) (load-font subr1 ()) (make-pattern subr1 ()) (
make-cursor nsubr ()) (windowp subr1 ()) (make-window subr1 ()) (
current-window nsubr ()) (current-font nsubr ()) (font-max subr0 ()) (
current-line-style nsubr ()) (line-style-max subr0 ()) (current-pattern nsubr 
()) (pattern-max subr0 ()) (current-mode nsubr ()) (current-foreground nsubr (
)) (current-background nsubr ()) (current-clip nsubr ()) (current-cursor nsubr
()) (cursor-max subr0 ()) (window-bitmap subr1 ()) (create-menu nsubr ()) (
menu-insert-item-list nsubr ()) (menu-insert-item nsubr ()) (
current-keyboard-focus-window nsubr ()) (event-mode nsubr ()) (bitepilogue 
nsubr ()) (bitxmax nsubr ()) (bitymax nsubr ()) (bitmap-refresh nsubr ()) (
bitmap-flush nsubr ()) (bitmap-sync nsubr ()) (standard-foreground-pattern 
nsubr ()) (standard-background-pattern nsubr ()) (standard-medium-gray-pattern
nsubr ()) (standard-light-gray-pattern nsubr ()) (standard-dark-gray-pattern 
nsubr ()) (standard-lelisp-cursor nsubr ()) (standard-gc-cursor nsubr ()) (
standard-busy-cursor nsubr ()) (create-window nsubr ()) (create-subwindow 
nsubr ()) (modify-window nsubr ()) (kill-window subr1 ()) (pop-window subr1 ()
) (move-behind-window subr2 ()) (find-window subr2 ()) (subwindowp subr2 ()) (
which-window subr0 ()) (read-mouse nsubr ()) (define-window-property-accessor 
dmsubr ()) (#:image:rectangle:window:set-property subr3 ()) (#:image:
rectangle:window:create nsubr ()) (#:image:rectangle:window:prin subr1 ()) (#:
window:make dmsubr ()) (#:window:left dmsubr ()) (#:window:top dmsubr ()) (#:
window:width dmsubr ()) (#:window:height dmsubr ()) (#:window:title dmsubr ())
(#:window:hilited dmsubr ()) (#:window:visible dmsubr ()) (#:window:graph-env 
dmsubr ()) (#:window:extend dmsubr ()) (#:window:father dmsubr ()) (#:window:
properties dmsubr ()) (#:window:cursor dmsubr ()) (#:window:display dmsubr ())
(#:window:subwindows dmsubr ()) (#:window:create nsubr ()) (#:window:prin 
subr1 ()) (#:image:rectangle:window:make-window 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 ()) (#:image:rectangle:window:
current-keyboard-focus-window subr1 ()) (#:image:rectangle:window:
uncurrent-keyboard-focus-window subr1 ()) (#:image:rectangle:window:map-window
nsubr ()) (#:color:prin subr1 ()) (kill-color subr1 ()) (red-component nsubr (
)) (blue-component nsubr ()) (green-component nsubr ()) (all-colors nsubr ()) 
(#:graph-env:current-foreground subr2 ()) (#:graph-env:current-background 
subr2 ()) (clear-graph-env subr0 ()) (draw-cursor subr3 ()) (draw-substring 
nsubr ()) (draw-cn subr3 ()) (width-substring subr3 ()) (height-substring 
subr3 ()) (x-base-substring subr3 ()) (y-base-substring subr3 ()) (
x-inc-substring subr3 ()) (y-inc-substring subr3 ()) (draw-point subr2 ()) (
draw-polymarker subr3 ()) (draw-line nsubr ()) (draw-polyline subr3 ()) (
draw-rectangle nsubr ()) (fill-rectangle nsubr ()) (fill-area subr3 ()) (
draw-ellipse nsubr ()) (fill-ellipse nsubr ()) (draw-circle subr3 ()) (
fill-circle subr3 ()) (#:graph-env:clear-graph-env subr1 ()) (#:graph-env:
current-clip nsubr ()) (#:graph-env:draw-cursor nsubr ()) (#:graph-env:
current-font subr2 ()) (#:graph-env:font-max subr1 ()) (#:graph-env:load-font 
subr2 ()) (#:graph-env:font-name subr2 ()) (#:graph-env:draw-cn nsubr ()) (#:
graph-env:draw-substring nsubr ()) (#:graph-env:width-substring nsubr ()) (#:
graph-env:height-substring nsubr ()) (#:graph-env:x-base-substring nsubr ()) (
#:graph-env:y-base-substring nsubr ()) (#:graph-env:x-inc-substring nsubr ()) 
(#:graph-env:y-inc-substring nsubr ()) (#:graph-env:line-style-max subr1 ()) (
#:graph-env:current-line-style subr2 ()) (#:graph-env:pattern-max subr1 ()) (
#:graph-env:current-pattern subr2 ()) (#:graph-env:make-pattern subr2 ()) (#:
graph-env:current-mode subr2 ()) (#:graph-env:draw-point subr3 ()) (#:
graph-env:draw-polymarker nsubr ()) (#:graph-env:draw-line nsubr ()) (#:
graph-env:draw-polyline nsubr ()) (#:graph-env:draw-rectangle nsubr ()) (#:
graph-env:fill-area nsubr ()) (#:graph-env:fill-rectangle nsubr ()) (#:
graph-env:draw-ellipse nsubr ()) (#:graph-env:fill-ellipse nsubr ()) (#:
graph-env:fill-circle nsubr ()) (#:graph-env:draw-circle nsubr ()) (
draw-string dmsubr ()) (width-space subr0 ()) (height-space subr0 ()) (
x-base-space subr0 ()) (y-base-space subr0 ()) (move-cursor subr2 ()) (eventp 
subr0 ()) (read-event nsubr ()) (peek-event nsubr ()) (local-read-event subr0 
()) (add-event nsubr ()) (grab-event subr1 ()) (ungrab-event subr0 ()) (
itsoft-event subr0 ()) (kill-menu subr1 ()) (activate-menu subr3 ()) (
menu-delete-item-list subr2 ()) (menu-delete-item subr3 ()) (
menu-modify-item-list nsubr ()) (menu-modify-item nsubr ()) (kill-bitmap subr1
()) (bmref subr3 ()) (bmset nsubr ()) (bitblit nsubr ()) (#:sharp:* nsubr ()) 
(#:bitvector:read subr2 ()) (#:sharp:B subr0 ()) (#:bitvector:prin subr1 ()) (
#:bitmap:prin subr1 ()) (to-display dmsubr ()) (to-bitmap dmsubr ()) (
get-bitmap dmsubr ()) (#:display:bitprologue subr1 ()) (#:display:bitepilogue 
subr1 ()) (#:display:bitmap-save subr1 ()) (#:display:bitmap-restore subr1 ())
(#:display:bitmap-refresh subr1 ()) (#:display:bitmap-flush subr1 ()) (#:
display:bitmap-sync subr1 ()) (#:display:current-display subr1 ()) (#:display:
prin subr1 ()) (#:display:standard-roman-font subr1 ()) (#:display:
standard-bold-font subr1 ()) (#:display:large-roman-font subr1 ()) (#:display:
small-roman-font subr1 ()) (#:display:standard-background-pattern subr1 ()) (
#:display:standard-foreground-pattern subr1 ()) (#:display:
standard-medium-gray-pattern subr1 ()) (#:display:standard-light-gray-pattern 
subr1 ()) (#:display:standard-dark-gray-pattern subr1 ()) (#:display:
standard-lelisp-cursor subr1 ()) (#:display:standard-gc-cursor subr1 ()) (#:
display:standard-busy-cursor subr1 ()) (#:display:create-window subr2 ()) (#:
display:create-subwindow subr2 ()) (#:display:current-window subr2 ()) (#:
display:uncurrent-window subr2 ()) (#:display:modify-window nsubr ()) (#:
display:update-window nsubr ()) (#:display:kill-window subr2 ()) (#:display:
pop-window subr2 ()) (#:display:move-behind-window subr3 ()) (#:display:
current-keyboard-focus-window subr2 ()) (#:display:
uncurrent-keyboard-focus-window subr2 ()) (#:display:find-window subr3 ()) (#:
display:map-window nsubr ()) (#:display:event-mode subr2 ()) (#:display:
flush-event subr1 ()) (#:display:eventp subr1 ()) (#:display:read-event subr2 
()) (#:display:peek-event subr2 ()) (#:display:read-mouse subr2 ()) (#:
display:add-event subr2 ()) (#:display:grab-event subr2 ()) (#:display:
ungrab-event subr1 ()) (#:display:itsoft-event subr1 ()) (#:display:
clear-graph-env subr2 ()) (#:display:current-clip subr2 ()) (#:display:
font-max subr2 ()) (#:display:load-font subr3 ()) (#:display:current-font 
subr3 ()) (#:display:width-substring nsubr ()) (#:display:height-substring 
nsubr ()) (#:display:x-base-string nsubr ()) (#:display:y-base-string nsubr ()
) (#:display:x-inc-string nsubr ()) (#:display:y-inc-string nsubr ()) (#:
display:current-line-style subr3 ()) (#:display:line-style-max subr2 ()) (#:
display:current-pattern subr3 ()) (#:display:pattern-max subr2 ()) (#:display:
current-mode subr3 ()) (#:display:draw-cn nsubr ()) (#:display:draw-substring 
nsubr ()) (#:display:draw-point nsubr ()) (#:display:draw-polymarker nsubr ())
(#:display:draw-line nsubr ()) (#:display:draw-rectangle nsubr ()) (#:display:
draw-polyline nsubr ()) (#:display:draw-ellipse nsubr ()) (#:display:
draw-circle nsubr ()) (#:display:fill-rectangle nsubr ()) (#:display:fill-area
nsubr ()) (#:display:fill-ellipse nsubr ()) (#:display:fill-circle nsubr ()) (
#:display:cursor-max subr1 ()) (#:display:make-cursor nsubr ()) (#:display:
current-cursor subr1 ()) (#:display:move-cursor subr3 ()) (#:display:
draw-cursor nsubr ()) (#:display:make-color nsubr ()) (#:display:
make-mutable-color nsubr ()) (#:display:make-name-color subr3 ()) (#:display:
kill-color subr2 ()) (#:display:current-foreground subr2 ()) (#:display:
current-background subr2 ()) (#:display:red-component subr3 ()) (#:display:
green-component subr3 ()) (#:display:blue-component subr3 ()) (#:display:
create-bitmap subr2 ()) (#:display:create-window-bitmap subr3 ()) (#:display:
kill-bitmap subr2 ()) (#:display:get-bit-line nsubr ()) (#:display:
set-bit-line nsubr ()) (#:display:bmref nsubr ()) (#:display:bmset nsubr ()) (
#:display:bitblit nsubr ()) (#:display:create-menu subr2 ()) (#:display:
kill-menu subr2 ()) (#:display:activate-menu nsubr ()) (#:display:
menu-insert-item-list nsubr ()) (#:display:menu-insert-item nsubr ()) (#:
display:menu-delete-item-list subr3 ()) (#:display:menu-delete-item nsubr ()) 
(#:display:menu-modify-item-list nsubr ()) (#:display:menu-modify-item nsubr (
)) (#:bitmap:bitprologue subr0 ()) (#:bitmap:bitepilogue subr0 ()) (#:bitmap:
bitmap-refresh subr0 ()) (#:bitmap:bitmap-flush subr0 ()) (#:bitmap:draw-cn 
nsubr ()) (#:bitmap:draw-line nsubr ()) (#:bitmap:draw-point subr3 ()) (#:
bitmap:draw-rectangle nsubr ()) (#:bitmap:fill-rectangle nsubr ()))
cpfunctions
((#:user:save-a-display subr1) (#:user:do-close subr1) (#:user:
restore-a-display subr1) (#:user:exchange-and-subst subr3) (#:user:
recreate-windows subr2) (#:user:recreate-menus subr2) (insertnth subr3) (#:
menu:itemlist subr3) (#:menu:item subr3) (compat-type subr1) (subwindowp1 
subr2) (parse-mouse subr1) (parse-event subr1) (deletenth subr2) (#:bitmap:
ext->int-encode subr1) (#:bitmap:conv-to-hex subr1) (#:bitmap:prin-aux subr2))
cpimport
((defstruct (new . subr1)))