! Copyright (C) 2006, 2009 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: accessors kernel sequences colors fonts ui.gadgets ui.gadgets.frames ui.gadgets.grids ui.gadgets.icons ui.gadgets.labels ui.gadgets.borders ui.pens.image ui.gadgets.corners ui.render ; IN: ui.gadgets.labeled TUPLE: labeled-gadget < frame content ; ( gadget -- label ) >label [ panel-background-color font-with-background ] change-font { 0 2 } "title-middle" corner-image t >>fill? >>interior ; : /-FOO-\ ( title labeled -- labeled ) "title-left" corner-icon @top-left grid-add swap @top grid-add "title-right" corner-icon @top-right grid-add ; M: labeled-gadget focusable-child* content>> ; PRIVATE> : ( gadget title -- newgadget ) labeled-gadget "labeled-block" [ over >>content /-FOO-\ |-----| \-----/ ] make-corners ;