 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
 


<PRIVATE

TUPLE: separator-pen color ;

C: <separator-pen> separator-pen

    3drop
    <gadget>
        { 0 5 } >>dim
        menu-border-color <separator-pen> >>interior ;

: <menu> ( gadgets -- menu )
    <menu-items>
    { 0 3 } >>gap
    margins
    menu-border-color <solid> >>boundary 
    menu-background-color <solid> >>interior ;

: <commands-menu> ( target hook commands -- menu )
    [ <menu-item> ] 2with map <menu> ;
