Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
I
iTasks-SDK
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
74
Issues
74
List
Boards
Labels
Service Desk
Milestones
Merge Requests
7
Merge Requests
7
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clean-and-itasks
iTasks-SDK
Commits
8f64b616
Commit
8f64b616
authored
Jun 14, 2019
by
Tim Steenvoorden
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
add forever task
parent
64825291
Pipeline
#25358
failed with stage
in 59 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
1 deletion
+12
-1
Examples/DynamicEditor/DynEditorExample.icl
Examples/DynamicEditor/DynEditorExample.icl
+12
-1
No files found.
Examples/DynamicEditor/DynEditorExample.icl
View file @
8f64b616
...
...
@@ -61,6 +61,7 @@ where
// | Init Ty TaskExpr
|
Watch
String
// | Change String
|
Forever
TaskExpr
::
TaskFunc
=
ThenF
TaskFunc
TaskFunc
...
...
@@ -231,7 +232,7 @@ taskEditor = DynamicEditor
)
<<@@@
applyHorizontalBoxedLayout
]
//
Non-task functions:
//
Task expressions and functions on shares
,
DynamicConsGroup
"Shares"
// [ functionConsDyn "Init" "initialise"
// ( dynamic \(Typed sharedTy) (Typed taskExpr) -> Typed (Init sharedTy taskExpr) ::
...
...
@@ -262,6 +263,15 @@ taskEditor = DynamicEditor
<<@@@
applyHorizontalBoxedLayout
<<@@@
AddLabels
[
Just
"message"
]
]
,
DynamicConsGroup
"Special"
[
functionConsDyn
"Forever"
"repeat forever"
(
dynamic
\(
Typed
taskExpr
)
->
Typed
(
Forever
taskExpr
)
::
A
.
a
:
(
Typed
TaskExpr
(
Task
a
))
->
Typed
TaskExpr
(
Task
a
)
)
<<@@@
applyVerticalBoxedLayout
]
// Non-task functions:
,
DynamicConsGroup
"Basics"
[
functionConsDyn
"Identity"
"this value"
...
...
@@ -411,6 +421,7 @@ evalTaskExpr (One button1 task1 button2 task2) = viewInformation "Make a choice"
]
// evalTaskExpr (Init sharedTy task) = set ( sharedTy, [] ) globalValueShare >>| evalTaskExpr task
evalTaskExpr
(
Watch
msg
)
=
viewSharedInformation
msg
[]
globalValueShare
@
(
const
VUnit
)
evalTaskExpr
(
Forever
task
)
=
forever
(
evalTaskExpr
task
)
// evalTaskExpr (When task1 options) = evalTaskExpr task1
// >>* [ OnAction (Action name) (ifValue (test pred) (evalTaskFunc cont))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment