From 23ed8de042c402456d9feeae33e794db4fc5702b Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 14 Jul 2008 20:04:53 -0500
Subject: [PATCH] ui.gadgets.packs: remove make-filled-pile

---
 extra/ui/gadgets/packs/packs-docs.factor | 6 ------
 extra/ui/gadgets/packs/packs.factor      | 3 ---
 2 files changed, 9 deletions(-)

diff --git a/extra/ui/gadgets/packs/packs-docs.factor b/extra/ui/gadgets/packs/packs-docs.factor
index b3dcf736e0..5f7b57d22c 100755
--- a/extra/ui/gadgets/packs/packs-docs.factor
+++ b/extra/ui/gadgets/packs/packs-docs.factor
@@ -10,7 +10,6 @@ ARTICLE: "ui-pack-layout" "Pack layouts"
 { $subsection <pile> }
 { $subsection <shelf> }
 "Creating packs using a combinator:"
-{ $subsection make-filled-pile }
 { $subsection make-shelf }
 
 "For more control, custom layouts can reuse portions of pack layout logic:"
@@ -23,7 +22,6 @@ HELP: pack
     { $link <pack> }
     { $link <pile> }
     { $link <shelf> }
-    { $link make-filled-pile }
     { $link make-shelf }
 }
 "Packs have the following slots:"
@@ -62,10 +60,6 @@ HELP: pack-pref-dim
     "This word is useful if you are writing your own layout gadget which inherits from " { $link pack } ". This allows you to reuse layout logic while computing gadget sizes using a custom procedure."
 } ;
 
-HELP: make-filled-pile
-{ $values { "quot" quotation } { "pack" "a new " { $link pack } } }
-{ $description "Creates a new " { $link pack } " which lays out a sequence of gadgets vertically, such that all gadgets have the same width. The quotation can add children by calling the gadget, word." } ;
-
 HELP: make-shelf
 { $values { "quot" quotation } { "pack" "a new " { $link pack } } }
 { $description "Creates a new " { $link pack } " which lays out a sequence of gadgets horizontally. The quotation can add children by calling the gadget, word." } ;
diff --git a/extra/ui/gadgets/packs/packs.factor b/extra/ui/gadgets/packs/packs.factor
index bc07deb55d..86bb5f1883 100755
--- a/extra/ui/gadgets/packs/packs.factor
+++ b/extra/ui/gadgets/packs/packs.factor
@@ -61,8 +61,5 @@ M: pack children-on ( rect gadget -- seq )
     dup gadget-orientation swap gadget-children
     [ fast-children-on ] keep <slice> ;
 
-: make-filled-pile ( quot -- pack )
-    <filled-pile> swap make-gadget ; inline
-
 : make-shelf ( quot -- pack )
     <shelf> swap make-gadget ; inline