ui.gadgets.labelled: Simplify '<title-bar>'

db4
Eduardo Cavazos 2008-11-10 03:35:21 -06:00
parent 359f177a98
commit 17be33fb01
1 changed files with 1 additions and 1 deletions

View File

@ -39,7 +39,7 @@ M: labelled-gadget focusable-child* content>> ;
: <title-bar> ( title quot -- gadget )
<frame>
swap dup [ <close-box> @left grid-add ] [ drop ] if
swap [ <close-box> @left grid-add ] when*
swap <title-label> @center grid-add ;
TUPLE: closable-gadget < frame content ;