35 lines
986 B
Factor
35 lines
986 B
Factor
! 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 ;
|
|
|
|
<PRIVATE
|
|
|
|
: <labeled-title> ( gadget -- label )
|
|
>label
|
|
[ panel-background-color font-with-background ] change-font
|
|
{ 0 2 } <border>
|
|
"title-middle" corner-image
|
|
<image-pen> t >>fill? >>interior ;
|
|
|
|
: /-FOO-\ ( title labeled -- labeled )
|
|
"title-left" corner-icon @top-left grid-add
|
|
swap <labeled-title> @top grid-add
|
|
"title-right" corner-icon @top-right grid-add ;
|
|
|
|
M: labeled-gadget focusable-child* content>> ;
|
|
|
|
PRIVATE>
|
|
|
|
: <labeled-gadget> ( gadget title -- newgadget )
|
|
labeled-gadget "labeled-block" [
|
|
pick >>content
|
|
/-FOO-\
|
|
|-----|
|
|
\-----/
|
|
] make-corners ;
|