steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Slava Pestov 2009-03-14 00:01:18 -05:00
parent 3c29c92f5b
commit 34d9d12ddb
2 changed files with 5 additions and 1 deletions
basis/ui/gadgets/labeled

4
basis/ui/gadgets/labeled/labeled-tests.factor Normal file
View File

@ -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

2
basis/ui/gadgets/labeled/labeled.factor
View File

@ -27,7 +27,7 @@ PRIVATE>
: <labeled-gadget> ( gadget title -- newgadget ) : <labeled-gadget> ( gadget title -- newgadget )
labeled-gadget "labeled-block" [ labeled-gadget "labeled-block" [
over >>content pick >>content
/-FOO-\ /-FOO-\
|-----| |-----|
\-----/ \-----/