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