Commit 9144e2f2 authored by Rinus Plasmeijer's avatar Rinus Plasmeijer

added form and flow editors to all examples

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@827 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 3ae243d4
......@@ -37,6 +37,13 @@ import AmbulanceDispatchMap
//Change examples
import SimpleChanges
//Dynamic Forms and Flows
import ShowFormFlow
import FormEditor
import FlowEditor
import LaunchFlow
Start :: *World -> *World
Start world = startEngine workflows world
where
......@@ -63,4 +70,9 @@ where
, ambulanceDispatchExamples
, ambulanceDispatchMapExamples
, changeExamples
, [ formEditor
, flowEditor
, showStoredDefinitions
, launchFlow
]
]
\ No newline at end of file
......@@ -4,7 +4,7 @@ import iTasks
import FlowData, FormFlowStorage, TaskContainer
flowEditor :: Workflow
flowEditor = workflow "Interactive Workflows/Flow Editor" handleMenu
flowEditor = workflow "Examples/Interactive Workflows/Flow Editor" handleMenu
emptyState = (("",emptyFlow),False)
......
......@@ -6,7 +6,7 @@ from StdFunc import o
import FormData, FormFlowStorage, TaskContainer, GenEq
formEditor :: Workflow
formEditor = workflow "Interactive Workflows/Form Editor" handleMenu
formEditor = workflow "Examples/Interactive Workflows/Form Editor" handleMenu
// ****************************
......
......@@ -4,15 +4,12 @@ import iTasks
import FormFlowStorage, TaskContainer, FlowEditor
launchFlow :: Workflow
launchFlow = workflow "Interactive Workflows/Run a stored workflow" handleMenu
launchFlow = workflow "Examples/Interactive Workflows/Run a stored workflow" handleMenu
// ****************************
ActionStartFlow :== ActionLabel "Start Flow"
showStoredDefinitions :: Workflow
showStoredDefinitions = workflow "Interactive Workflows/Show Stored Definitions" handleMenu
initMenu :: Task Void
initMenu
= setMenus
......
......@@ -8,7 +8,7 @@ ShowAll :== ActionLabel "Show All"
Refresh :== ActionLabel "Refresh"
showStoredDefinitions :: Workflow
showStoredDefinitions = workflow "Interactive Workflows/Show Stored Definitions" handleMenu
showStoredDefinitions = workflow "Examples/Interactive Workflows/Show Stored Definitions" handleMenu
initMenu :: Task Void
initMenu
......
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