ui.gadgets.panes.tests: better than hardcoding values
parent
3bf23d242d
commit
1c7c2a380c
|
@ -1,7 +1,8 @@
|
||||||
USING: accessors colors fonts fry help help.markup help.stylesheet
|
USING: accessors colors fonts fry help help.markup help.stylesheet
|
||||||
help.syntax help.topics inspector io io.streams.string io.styles
|
help.syntax help.topics inspector io io.streams.string io.styles
|
||||||
kernel math models namespaces prettyprint see sequences tools.test
|
kernel literals math models namespaces prettyprint see sequences
|
||||||
ui.gadgets ui.gadgets.debug ui.gadgets.panes ui.gadgets.panes.private ;
|
tools.test ui.gadgets ui.gadgets.debug ui.gadgets.panes
|
||||||
|
ui.gadgets.panes.private ;
|
||||||
IN: ui.gadgets.panes.tests
|
IN: ui.gadgets.panes.tests
|
||||||
|
|
||||||
: #children ( -- n ) "pane" get children>> length ;
|
: #children ( -- n ) "pane" get children>> length ;
|
||||||
|
@ -126,11 +127,11 @@ ARTICLE: "test-article-2" "This is a test article"
|
||||||
{ t } [ <test-pane> dup last-line>> child? ] unit-test
|
{ t } [ <test-pane> dup last-line>> child? ] unit-test
|
||||||
|
|
||||||
! smash-line
|
! smash-line
|
||||||
{
|
${
|
||||||
""
|
""
|
||||||
T{ font
|
T{ font
|
||||||
{ name "sans-serif" }
|
{ name $[ default-sans-serif-font-name ] }
|
||||||
{ size 12 }
|
{ size $[ default-font-size ] }
|
||||||
{ foreground
|
{ foreground
|
||||||
T{ rgba
|
T{ rgba
|
||||||
{ red 0.0 }
|
{ red 0.0 }
|
||||||
|
|
Loading…
Reference in New Issue