From 34d9d12ddb25bc581a73110f6be8543e67b640ba Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 14 Mar 2009 00:01:18 -0500
Subject: [PATCH] Fix a bug in ui.gadgets.labeled and add a unit test

---
 basis/ui/gadgets/labeled/labeled-tests.factor | 4 ++++
 basis/ui/gadgets/labeled/labeled.factor       | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)
 create mode 100644 basis/ui/gadgets/labeled/labeled-tests.factor

diff --git a/basis/ui/gadgets/labeled/labeled-tests.factor b/basis/ui/gadgets/labeled/labeled-tests.factor
new file mode 100644
index 0000000000..ec232c32c4
--- /dev/null
+++ b/basis/ui/gadgets/labeled/labeled-tests.factor
@@ -0,0 +1,4 @@
+IN: ui.gadgets.labeled.tests
+USING: ui.gadgets ui.gadgets.labeled accessors tools.test ;
+
+[ t ] [ <gadget> "Hey" <labeled-gadget> content>> gadget? ] unit-test
\ No newline at end of file
diff --git a/basis/ui/gadgets/labeled/labeled.factor b/basis/ui/gadgets/labeled/labeled.factor
index 7f98e1170b..97d029fe81 100644
--- a/basis/ui/gadgets/labeled/labeled.factor
+++ b/basis/ui/gadgets/labeled/labeled.factor
@@ -27,7 +27,7 @@ PRIVATE>
 
 : <labeled-gadget> ( gadget title -- newgadget )
     labeled-gadget "labeled-block" [
-        over >>content
+        pick >>content
         /-FOO-\
         |-----|
         \-----/