From 8bf0500b260754304794ecc591cccc3801cde2d4 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 21 Jul 2008 22:21:30 -0500
Subject: [PATCH] Remove 'set-gadget-dim'

---
 extra/ui/gadgets/gadgets-docs.factor | 4 ----
 extra/ui/gadgets/gadgets.factor      | 2 --
 extra/ui/ui-docs.factor              | 3 +--
 3 files changed, 1 insertion(+), 8 deletions(-)

diff --git a/extra/ui/gadgets/gadgets-docs.factor b/extra/ui/gadgets/gadgets-docs.factor
index 42b6d6a9cd..ddbfcfb400 100755
--- a/extra/ui/gadgets/gadgets-docs.factor
+++ b/extra/ui/gadgets/gadgets-docs.factor
@@ -65,10 +65,6 @@ HELP: relayout-1
 
 { relayout relayout-1 } related-words
 
-HELP: set-gadget-dim
-{ $values { "dim" "a pair of integers" } { "gadget" gadget } }
-{ $description "Resizes and relayouts a gadget before the next iteration of the event loop." } ;
-
 HELP: pref-dim*
 { $values { "gadget" gadget } { "dim" "a pair of integers" } }
 { $contract "Outputs the preferred dimensions of the gadget, possibly computing them from the preferred dimensions of the gadget's children." }
diff --git a/extra/ui/gadgets/gadgets.factor b/extra/ui/gadgets/gadgets.factor
index 3cd54fa843..90eea255e8 100755
--- a/extra/ui/gadgets/gadgets.factor
+++ b/extra/ui/gadgets/gadgets.factor
@@ -176,8 +176,6 @@ M: gadget (>>dim) ( dim gadget -- )
      [ tuck call-next-method do-invalidate drop ]
    if ;
 
-: set-gadget-dim ( dim gadget -- ) (>>dim) ;
-
 GENERIC: pref-dim* ( gadget -- dim )
 
 : ?set-gadget-pref-dim ( dim gadget -- )
diff --git a/extra/ui/ui-docs.factor b/extra/ui/ui-docs.factor
index e95109c667..1d409a48c7 100755
--- a/extra/ui/ui-docs.factor
+++ b/extra/ui/ui-docs.factor
@@ -236,8 +236,7 @@ $nl
 
 ARTICLE: "ui-null-layout" "Manual layouts"
 "When automatic layout is not appropriate, gadgets can be added to a parent with no layout policy, and then positioned and sized manually:"
-{ $subsection set-rect-loc }
-{ $subsection set-gadget-dim } ;
+{ $subsection set-rect-loc } ;
 
 ARTICLE: "ui-layout-impl" "Implementing layout gadgets"
 "The relayout process proceeds top-down, with parents laying out their children, which in turn lay out their children. Custom layout policy is implemented by defining a method on a generic word:"