factor/library/ui/presentations.factor

! Copyright (C) 2005 Slava Pestov.
! See http://factor.sf.net/license.txt for BSD license.
IN: gadgets
USING: hashtables io kernel lists namespaces parser prettyprint
sequences ;

: actions-menu ( -- )
    "actions" get [ uncons [ eval ] append cons ] map
    <menu> show-menu ;

: init-actions ( gadget -- )
    [ "actions" get actions-menu ] button-gestures ;

: <styled-label> ( style text -- label )
    <label> "actions" pick assoc [ dup init-actions ] when
    swap alist>hash over set-gadget-paint ;