defmodule
#:menu:llmenu
import
(virbitmap)
files
(llmenu)
export
(#:bitmap:create-menu #:menu:llmenu:kill-menu #:menu:llmenu:activate-menu #:
menu:llmenu:menu-insert-item #:menu:llmenu:menu-insert-item-list #:menu:
llmenu:menu-delete-item #:menu:llmenu:menu-delete-item-list #:menu:llmenu:
menu-modify-item #:menu:llmenu:menu-modify-item-list)

;;; Added automatically, don't type beyond this line.
cpexport
((#:bitmap:create-menu subr1 ()) (#:menu:llmenu:kill-menu subr1 ()) (#:menu:llmenu:activate-menu subr3 ()) (#:menu:llmenu:menu-insert-item nsubr ()) (#:menu:llmenu:menu-insert-item-list nsubr () (active)) (#:menu:llmenu:menu-delete-item subr3 ()) (#:menu:llmenu:menu-delete-item-list subr2 ()) (#:menu:llmenu:menu-modify-item nsubr ()) (#:menu:llmenu:menu-modify-item-list nsubr ()))
cpfunctions
((#:menu:llmenu:make subr0) (#:menu:llmenu:draw-menu subr3) (#:menu:llmenu:width subr1) (#:itemlist:width subr1) (width-string subr1) (#:menu:llmenu:height subr1) (#:menu:llmenu:follow-mouse subr1) (#:menu:llmenu:local-read-mouse subr0) (#:menu:llmenu:find-list subr2) (#:menu:llmenu:find-list1 subr3) (#:menu:llmenu:invert-item subr3) (#:menu:llmenu:itemlist-x subr2) (#:menu:llmenu:itemlist-x1 subr2) (insertnth subr3) (item subr3) (#:item:make subr0) (itemlist subr2) (#:itemlist:make subr0) (deletenth subr2))
cpimport
((virbitmap (width-substring . subr3) (height-space . subr0) (create-window . nsubr) (x-base-space . subr0) (y-base-space . subr0) (current-window . nsubr) (draw-substring . nsubr) (current-mode . nsubr) (current-pattern . nsubr) (ungrab-event . subr0) (read-mouse . nsubr) (map-window . nsubr) (fill-rectangle . nsubr) (kill-window . subr1)))