Commit d01b2680 authored by Tim Steenvoorden's avatar Tim Steenvoorden

try to tweak evaluator layout

parent 4b8b9001
Pipeline #31279 failed with stage
in 59 seconds
......@@ -14,6 +14,10 @@
align-self: auto;
}
.typedtasks-evaluator {
align-self: unset;
}
/* Make generated labels flow on top */
.itasks-container.itasks-form-item {
flex-direction: column;
......
......@@ -31,7 +31,7 @@ editTaskExpr mv =
enterOrUpdateExpr ("Contruct a task", info1) mv >?>
[ ( "Run", const True, \v ->
viewInformation ("Evaluate the task", info2) [] ()
||- (set [] globalValueShare >>| evalTaskExpr (toValue taskEditor v) <<@ ApplyLayout frameCompact) >>*
||- (set [] globalValueShare >>| evalTaskExpr (toValue taskEditor v)) >>*
[ OnAction (Action "Back") (always (editTaskExpr (Just v)))
, OnAction (Action "Finish") (ifValue (const True) (\r -> viewInformation ("Done!", info3) [] (toString r) >?>
[ ( "Back", const True, \_ -> editTaskExpr (Just v) ) ]
......
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