Merge branch 'master' of git://factorcode.org/git/factor

2008-11-10 05:08:39 -06:00 · 2008-11-10 05:08:39 -06:00 · 161c917748
parent d8a3439bc2 0b33c52886
commit 161c917748
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/gadgets/labelled/labelled.factor
+++ b/basis/ui/gadgets/labelled/labelled.factor
@ -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 ;