 math.vectors namespaces opengl sequences sorting ui.commands
 ui.gadgets ui.gadgets.borders ui.gadgets.buttons ui.gadgets.corners
 ui.gadgets.frames ui.gadgets.glass ui.gadgets.packs
-ui.gadgets.worlds ui.gestures ui.operations ui.pens
+ui.gadgets.worlds ui.tools.common ui.gestures ui.operations ui.pens
 ui.pens.solid ui.render ;
 IN: ui.gadgets.menus
 

    [ v>integer ] bi@ gl-line ;

: <menu-items> ( items -- gadget )
    [ <filled-pile> ] dip add-gadgets
    { 3 3 } <border>
    panel-background-color <solid> >>interior ;

PRIVATE>



<PRIVATE

CONSTANT: menu-background-color COLOR: grey95
CONSTANT: menu-border-color COLOR: grey75

TUPLE: separator-pen color ;

C: <separator-pen> separator-pen
