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

ui.gadgets.panes.tests: better than hardcoding values

factor-shell
Björn Lindqvist 2018-01-16 21:32:17 +01:00
parent 3bf23d242d
commit 1c7c2a380c
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/ui/gadgets/panes/panes-tests.factor
View File

@ -1,7 +1,8 @@
USING: accessors colors fonts fry help help.markup help.stylesheet
help.syntax help.topics inspector io io.streams.string io.styles
kernel math models namespaces prettyprint see sequences tools.test
ui.gadgets ui.gadgets.debug ui.gadgets.panes ui.gadgets.panes.private ;
kernel literals math models namespaces prettyprint see sequences
tools.test ui.gadgets ui.gadgets.debug ui.gadgets.panes
ui.gadgets.panes.private ;
IN: ui.gadgets.panes.tests
: #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
! smash-line
{
${
""
T{ font
{ name "sans-serif" }
{ size 12 }
{ name $[ default-sans-serif-font-name ] }
{ size $[ default-font-size ] }
{ foreground
T{ rgba
{ red 0.0 }