Skip to content

GitLab

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

prune share after an evaluation

parent 6545e690
Pipeline #25364 failed with stage
    in 57 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 3 additions and 1 deletion
    Examples/DynamicEditor/DynEditorExample.icl
    View file @ 3cb094f8
    ......@@ -28,7 +28,9 @@ Start world = doTasks (editTaskExpr Nothing) world
    editTaskExpr :: (Maybe (DynamicEditorValue TaskExpr)) -> Task (Maybe (DynamicEditorValue TaskExpr))
    editTaskExpr mv =
    enterOrUpdateExpr ("Contruct a task", info1) mv >?>
    [ ( "Run", const True, \v -> viewInformation ("Evaluate the task", info2) [] () ||- (evalTaskExpr (toValue taskEditor v) <<@ ApplyLayout frameCompact) >>*
    [ ( "Run", const True, \v ->
    viewInformation ("Evaluate the task", info2) [] ()
    ||- (set [] globalValueShare >>| evalTaskExpr (toValue taskEditor v) <<@ ApplyLayout frameCompact) >>*
    [ 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