Fix a bug in ui.gadgets.labeled and add a unit test

2009-03-14 00:01:18 -05:00 · 2009-03-14 00:01:18 -05:00 · 34d9d12ddb
parent 3c29c92f5b
commit 34d9d12ddb
2 changed files with 5 additions and 1 deletions
--- a/basis/ui/gadgets/labeled/labeled-tests.factor
+++ 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
--- 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-\
        |-----|
        \-----/