Commit 65e21dc4 authored by Bas Lijnse's avatar Bas Lijnse

Added testcases for testing css styles

parent 7184cb3c
Pipeline #21195 passed with stage
in 5 minutes and 27 seconds
module TestChildSizing
import iTasks
test :: Task ()
test
= (testItem "A" -&&- testItem "B") <<@ ArrangeHorizontal <<@ CSSStyle "justify-content: center"
@! ()
testItem label = viewInformation () [] label <<@ ApplyLayout (setUIAttributes (sizeAttr (ExactSize 100) (ExactSize 300))) <<@ InPanel False
Start world = doTasks test world
module TestFrameCompact
import iTasks
test :: Task Int
test = viewInformation () [] 23 <<@ ApplyLayout frameCompact
Start world = doTasks test world
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment