Fix a bug in ui.gadgets.labeled and add a unit test
parent
3c29c92f5b
commit
34d9d12ddb
|
@ -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
|
|
@ -27,7 +27,7 @@ PRIVATE>
|
|||
|
||||
: <labeled-gadget> ( gadget title -- newgadget )
|
||||
labeled-gadget "labeled-block" [
|
||||
over >>content
|
||||
pick >>content
|
||||
/-FOO-\
|
||||
|-----|
|
||||
\-----/
|
||||
|
|
Loading…
Reference in New Issue