From 201a3e711275bc609d53ba74ef11015601f4de9e Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 14 Jul 2008 20:06:59 -0500
Subject: [PATCH] ui.gadgets.packs: remove make-shelf
---
extra/ui/gadgets/packs/packs-docs.factor | 7 -------
extra/ui/gadgets/packs/packs.factor | 3 ---
2 files changed, 10 deletions(-)
diff --git a/extra/ui/gadgets/packs/packs-docs.factor b/extra/ui/gadgets/packs/packs-docs.factor
index 5f7b57d22c..7d28e84e88 100755
--- a/extra/ui/gadgets/packs/packs-docs.factor
+++ b/extra/ui/gadgets/packs/packs-docs.factor
@@ -9,8 +9,6 @@ ARTICLE: "ui-pack-layout" "Pack layouts"
{ $subsection <pack> }
{ $subsection <pile> }
{ $subsection <shelf> }
-"Creating packs using a combinator:"
-{ $subsection make-shelf }
"For more control, custom layouts can reuse portions of pack layout logic:"
{ $subsection pack-pref-dim }
@@ -22,7 +20,6 @@ HELP: pack
{ $link <pack> }
{ $link <pile> }
{ $link <shelf> }
- { $link make-shelf }
}
"Packs have the following slots:"
{ $list
@@ -60,8 +57,4 @@ 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-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." } ;
-
ABOUT: "ui-pack-layout"
diff --git a/extra/ui/gadgets/packs/packs.factor b/extra/ui/gadgets/packs/packs.factor
index 86bb5f1883..c33217a494 100755
--- a/extra/ui/gadgets/packs/packs.factor
+++ b/extra/ui/gadgets/packs/packs.factor
@@ -60,6 +60,3 @@ M: pack layout*
M: pack children-on ( rect gadget -- seq )
dup gadget-orientation swap gadget-children
[ fast-children-on ] keep <slice> ;
-
-: make-shelf ( quot -- pack )
- <shelf> swap make-gadget ; inline