Skip to content

GitLab

I
iTasks-SDK
Commit d01b2680 authored by Tim Steenvoorden's avatar Tim Steenvoorden
Browse files
Options

try to tweak evaluator layout

parent 4b8b9001
Pipeline #31279 failed with stage
    in 59 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 5 additions and 1 deletion
    Examples/DynamicEditor/DynEditorExample.css
    View file @ d01b2680
    ...@@ -14,6 +14,10 @@ ...@@ -14,6 +14,10 @@
    align-self: auto; align-self: auto;
    } }
    .typedtasks-evaluator {
    align-self: unset;
    }
    /* Make generated labels flow on top */ /* Make generated labels flow on top */
    .itasks-container.itasks-form-item { .itasks-container.itasks-form-item {
    flex-direction: column; flex-direction: column;
    ......
    Examples/DynamicEditor/DynEditorExample.icl
    View file @ d01b2680
    ...@@ -31,7 +31,7 @@ editTaskExpr mv = ...@@ -31,7 +31,7 @@ editTaskExpr mv =
    enterOrUpdateExpr ("Contruct a task", info1) mv >?> enterOrUpdateExpr ("Contruct a task", info1) mv >?>
    [ ( "Run", const True, \v -> [ ( "Run", const True, \v ->
    viewInformation ("Evaluate the task", info2) [] () 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 "Back") (always (editTaskExpr (Just v)))
    , OnAction (Action "Finish") (ifValue (const True) (\r -> viewInformation ("Done!", info3) [] (toString r) >?> , OnAction (Action "Finish") (ifValue (const True) (\r -> viewInformation ("Done!", info3) [] (toString r) >?>
    [ ( "Back", const True, \_ -> editTaskExpr (Just v) ) ] [ ( "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