## 12 Data Types ¶

    (window (listobject  (parent          drawable)
                         (gcontext        anything)
                         (drawable-height integer)
                         (drawable-width  integer)
                         (label           string)
                         (font            anything) )

    (menu (listobject (menu-window     window)
                      (flat            boolean)
                      (parent-window   drawable)
                      (parent-offset-x integer)
                      (parent-offset-y integer)
                      (picture-width   integer)
                      (picture-height  integer)
                      (title           string)
                      (permanent       boolean)
                      (menu-font       symbol)
                      (item-width      integer)
                      (item-height     integer)
                      (items           (listof symbol)) )

    (picmenu (listobject (menu-window     window)
                         (flat            boolean)
                         (parent-window   drawable)
                         (parent-offset-x integer)
                         (parent-offset-y integer)
                         (picture-width   integer)
                         (picture-height  integer)
                         (title           string)
                         (permanent       boolean)
                         (spec            (transparent picmenu-spec))
                         (boxflg          boolean)
                         (deleted-buttons (listof symbol)) )

    (picmenu-spec (listobject (drawing-width   integer)
                              (drawing-height  integer)
                              (buttons         (listof picmenu-button))
                              (dotflg          boolean)
                              (drawfn          anything)
                              (menu-font       symbol) ))

    (picmenu-button (list (buttonname     symbol)
                          (offset         vector)
                          (size           vector)
                          (highlightfn    anything)
                          (unhighlightfn  anything))

    (barmenu (listobject (menu-window     window)
                         (flat            boolean)
                         (parent-window   drawable)
                         (parent-offset-x integer)
                         (parent-offset-y integer)
                         (picture-width   integer)
                         (picture-height  integer)
                         (title           string)
                         (permanent       boolean)
                         (color           rgb)
                         (value           integer)
                         (maxval          integer)
                         (barwidth        integer)
                         (horizontal      boolean)
                         (subtrackfn      anything)
                         (subtrackparms   (listof anything)))