From a0aabffb31212383fe234fe7ad1cef91e9622414 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 12 Feb 2009 01:39:38 -0600
Subject: [PATCH] Remove unused closable gadgets support

---
 basis/ui/gadgets/labelled/labelled.factor | 36 ++---------------------
 1 file changed, 2 insertions(+), 34 deletions(-)

diff --git a/basis/ui/gadgets/labelled/labelled.factor b/basis/ui/gadgets/labelled/labelled.factor
index 8e59c132c9..dea3ec0ec0 100644
--- a/basis/ui/gadgets/labelled/labelled.factor
+++ b/basis/ui/gadgets/labelled/labelled.factor
@@ -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>> ;