steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove unused closable gadgets support

db4
Slava Pestov 2009-02-12 01:39:38 -06:00
parent db0c51a3bf
commit a0aabffb31
1 changed files with 2 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
basis/ui/gadgets/labelled/labelled.factor
View File

@ -1,9 +1,8 @@
! Copyright (C) 2006, 2008 Slava Pestov.
! Copyright (C) 2006, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: arrays ui.gadgets.buttons ui.gadgets.borders
ui.gadgets.labels ui.gadgets.panes ui.gadgets.scrollers
ui.gadgets.tracks ui.gadgets.theme ui.gadgets.frames
ui.gadgets.grids io kernel math models namespaces
ui.gadgets.tracks ui.gadgets.theme io kernel math models namespaces
sequences sequences words classes.tuple ui.gadgets ui.render
colors colors.constants accessors ;
IN: ui.gadgets.labelled
@ -24,34 +23,3 @@ M: labelled-gadget focusable-child* content>> ;
: <labelled-pane> ( model quot scrolls? title -- gadget )
[ [ <pane-control> ] dip >>scrolls? ] dip
<labelled-scroller> ;
: <close-box> ( quot -- button/f )
COLOR: gray close-box <polygon-gadget> swap <bevel-button> ;
: title-theme ( gadget -- gadget )
{ 1 0 } >>orientation
{
T{ rgba f 0.65 0.65 1.0 1.0 }
T{ rgba f 0.65 0.45 1.0 1.0 }
} <gradient> >>interior ;
: <title-label> ( text -- label ) <label> title-theme ;
: <title-bar> ( title quot -- gadget )
<frame>
swap [ <close-box> @left grid-add ] when*
swap <title-label> @center grid-add ;
TUPLE: closable-gadget < frame content ;
: find-closable-gadget ( parent -- child )
[ closable-gadget? ] find-parent ;
: <closable-gadget> ( gadget title quot -- gadget )
[
[ closable-gadget new-frame ] dip
[ >>content ] [ @center grid-add ] bi
] 2dip
<title-bar> @top grid-add ;
M: closable-gadget focusable-child* content>> ;