Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
clean-and-itasks
iTasks-SDK
Commits
1ccbd831
Commit
1ccbd831
authored
Sep 07, 2017
by
Bas Lijnse
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Renamed UI Editor modules to be divided among Controls, Containers and Modifiers
parent
363a5662
Changes
29
Hide whitespace changes
Inline
Side-by-side
Showing
29 changed files
with
220 additions
and
34 deletions
+220
-34
Examples/BasicAPIExamples.icl
Examples/BasicAPIExamples.icl
+0
-1
Libraries/iTasks.dcl
Libraries/iTasks.dcl
+2
-2
Libraries/iTasks/Extensions/Admin/WorkflowAdmin.icl
Libraries/iTasks/Extensions/Admin/WorkflowAdmin.icl
+1
-1
Libraries/iTasks/Extensions/Currency.icl
Libraries/iTasks/Extensions/Currency.icl
+1
-1
Libraries/iTasks/Extensions/DateTime.icl
Libraries/iTasks/Extensions/DateTime.icl
+2
-2
Libraries/iTasks/Extensions/Development/Codebase.dcl
Libraries/iTasks/Extensions/Development/Codebase.dcl
+1
-1
Libraries/iTasks/Extensions/Development/Codebase.icl
Libraries/iTasks/Extensions/Development/Codebase.icl
+1
-1
Libraries/iTasks/Extensions/Document.icl
Libraries/iTasks/Extensions/Document.icl
+1
-1
Libraries/iTasks/Extensions/Editors/Ace.icl
Libraries/iTasks/Extensions/Editors/Ace.icl
+1
-1
Libraries/iTasks/Extensions/Form/Pikaday.icl
Libraries/iTasks/Extensions/Form/Pikaday.icl
+1
-1
Libraries/iTasks/Extensions/Image.icl
Libraries/iTasks/Extensions/Image.icl
+1
-1
Libraries/iTasks/Extensions/Process.icl
Libraries/iTasks/Extensions/Process.icl
+2
-2
Libraries/iTasks/Extensions/User.icl
Libraries/iTasks/Extensions/User.icl
+1
-1
Libraries/iTasks/Extensions/Web.icl
Libraries/iTasks/Extensions/Web.icl
+1
-1
Libraries/iTasks/Internal/Test/Definition.icl
Libraries/iTasks/Internal/Test/Definition.icl
+1
-1
Libraries/iTasks/UI/Editor/Containers.dcl
Libraries/iTasks/UI/Editor/Containers.dcl
+56
-1
Libraries/iTasks/UI/Editor/Containers.icl
Libraries/iTasks/UI/Editor/Containers.icl
+132
-0
Libraries/iTasks/UI/Editor/Controls.dcl
Libraries/iTasks/UI/Editor/Controls.dcl
+3
-3
Libraries/iTasks/UI/Editor/Controls.icl
Libraries/iTasks/UI/Editor/Controls.icl
+1
-1
Libraries/iTasks/UI/Editor/Generic.icl
Libraries/iTasks/UI/Editor/Generic.icl
+2
-2
Libraries/iTasks/UI/Editor/Modifiers.dcl
Libraries/iTasks/UI/Editor/Modifiers.dcl
+1
-1
Libraries/iTasks/UI/Editor/Modifiers.icl
Libraries/iTasks/UI/Editor/Modifiers.icl
+1
-1
Libraries/iTasks/WF/Tasks/Interaction.dcl
Libraries/iTasks/WF/Tasks/Interaction.dcl
+1
-1
Libraries/iTasks/WF/Tasks/Interaction.icl
Libraries/iTasks/WF/Tasks/Interaction.icl
+1
-1
Tests/Tests/Interactive/BuiltinContainers.icl
Tests/Tests/Interactive/BuiltinContainers.icl
+1
-1
Tests/Tests/Interactive/BuiltinEditors.icl
Tests/Tests/Interactive/BuiltinEditors.icl
+1
-1
Tests/Tests/Interactive/CustomEditors.icl
Tests/Tests/Interactive/CustomEditors.icl
+1
-1
Tests/Tests/Interactive/TaskPatterns.icl
Tests/Tests/Interactive/TaskPatterns.icl
+1
-1
Tools/CodeQualityMonitor.icl
Tools/CodeQualityMonitor.icl
+1
-1
No files found.
Examples/BasicAPIExamples.icl
View file @
1ccbd831
...
...
@@ -10,7 +10,6 @@ import iTasks.Extensions.Currency
import
iTasks
.
Extensions
.
Contact
import
iTasks
.
Extensions
.
DateTime
import
iTasks
.
Extensions
.
Clock
import
iTasks
.
UI
.
Definition
,
iTasks
.
UI
.
Editor
.
Builtin
import
Text
,
Text
.
HTML
,
StdArray
import
iTasks
.
Internal
.
Tonic
//import ligrettoTOP
...
...
Libraries/iTasks.dcl
View file @
1ccbd831
...
...
@@ -28,9 +28,9 @@ import
,
iTasks
.
WF
.
Combinators
.
Common
// Custom task GUI's
,
iTasks
.
UI
.
Editor
.
Builtin
,
iTasks
.
UI
.
Editor
.
Controls
,
iTasks
.
UI
.
Editor
.
Containers
,
iTasks
.
UI
.
Editor
.
Combinato
rs
,
iTasks
.
UI
.
Editor
.
Modifie
rs
// Miscellaneous machinery
,
Text
.
JSON
// JSON is used for serializing/deserializing strings
...
...
Libraries/iTasks/Extensions/Admin/WorkflowAdmin.icl
View file @
1ccbd831
...
...
@@ -8,7 +8,7 @@ import iTasks.Internal.Store
from
StdFunc
import
seq
import
qualified
Data
.
Map
as
DM
import
Data
.
List
,
Data
.
Tuple
import
iTasks
.
UI
.
Definition
,
iTasks
.
UI
.
Editor
,
iTasks
.
UI
.
Editor
.
Builtin
,
iTasks
.
UI
.
Editor
.
Common
,
iTasks
.
UI
.
Layout
.
Default
,
iTasks
.
UI
.
Layout
.
Common
import
iTasks
.
UI
.
Definition
,
iTasks
.
UI
.
Editor
,
iTasks
.
UI
.
Editor
.
Controls
,
iTasks
.
UI
.
Editor
.
Common
,
iTasks
.
UI
.
Layout
.
Default
,
iTasks
.
UI
.
Layout
.
Common
import
iTasks
.
Extensions
.
DateTime
// SPECIALIZATIONS
derive
class
iTask
Workflow
...
...
Libraries/iTasks/Extensions/Currency.icl
View file @
1ccbd831
implementation
module
iTasks
.
Extensions
.
Currency
import
iTasks
import
iTasks
.
UI
.
Editor
.
Builtin
,
iTasks
.
UI
.
Editor
.
Combinato
rs
import
iTasks
.
UI
.
Editor
.
Controls
,
iTasks
.
UI
.
Editor
.
Modifie
rs
import
Text
import
qualified
Data
.
Map
as
DM
...
...
Libraries/iTasks/Extensions/DateTime.icl
View file @
1ccbd831
...
...
@@ -11,8 +11,8 @@ import iTasks.SDS.Sources.System
import
iTasks
.
UI
.
Definition
import
iTasks
.
UI
.
Prompt
import
iTasks
.
UI
.
Editor
import
iTasks
.
UI
.
Editor
.
Builtin
import
iTasks
.
UI
.
Editor
.
Combinato
rs
import
iTasks
.
UI
.
Editor
.
Controls
import
iTasks
.
UI
.
Editor
.
Modifie
rs
import
StdBool
,
StdArray
,
StdEnum
,
StdList
...
...
Libraries/iTasks/Extensions/Development/Codebase.dcl
View file @
1ccbd831
definition
module
iTasks
.
Extensions
.
Development
.
Codebase
import
iTasks
import
iTasks
.
UI
.
Editor
.
Builtin
import
iTasks
.
UI
.
Editor
.
Controls
import
System
.
FilePath
::
CodeBase
:==
[
SourceTree
]
...
...
Libraries/iTasks/Extensions/Development/Codebase.icl
View file @
1ccbd831
implementation
module
iTasks
.
Extensions
.
Development
.
Codebase
import
iTasks
import
iTasks
.
UI
.
Editor
.
Builtin
import
iTasks
.
UI
.
Editor
.
Controls
import
StdArray
,
System
.
FilePath
,
System
.
File
,
System
.
Directory
,
Text
,
StdFile
,
Data
.
List
,
Data
.
Tree
,
Data
.
Error
derive
class
iTask
SourceTree
,
SourceTreeSelection
,
ModuleType
,
Extension
...
...
Libraries/iTasks/Extensions/Document.icl
View file @
1ccbd831
implementation
module
iTasks
.
Extensions
.
Document
import
iTasks
.
WF
.
Definition
import
iTasks
.
UI
.
Editor
.
Builtin
,
iTasks
.
UI
.
Editor
.
Combinato
rs
import
iTasks
.
UI
.
Editor
.
Controls
,
iTasks
.
UI
.
Editor
.
Modifie
rs
import
iTasks
.
Internal
.
Task
,
iTasks
.
Internal
.
IWorld
,
iTasks
.
Internal
.
TaskStore
import
StdBool
,
StdString
,
StdFile
,
StdArray
...
...
Libraries/iTasks/Extensions/Editors/Ace.icl
View file @
1ccbd831
implementation
module
iTasks
.
Extensions
.
Editors
.
Ace
import
iTasks
import
iTasks
.
UI
.
Editor
,
iTasks
.
UI
.
Editor
.
Combinato
rs
,
iTasks
.
UI
.
Definition
import
iTasks
.
UI
.
Editor
,
iTasks
.
UI
.
Editor
.
Modifie
rs
,
iTasks
.
UI
.
Definition
import
iTasks
.
UI
.
JS
.
Interface
import
qualified
Data
.
Map
as
DM
import
Text
...
...
Libraries/iTasks/Extensions/Form/Pikaday.icl
View file @
1ccbd831
implementation
module
iTasks
.
Extensions
.
Form
.
Pikaday
import
iTasks
import
iTasks
.
UI
.
Definition
,
iTasks
.
UI
.
Editor
,
iTasks
.
UI
.
JS
.
Interface
import
iTasks
.
UI
.
Editor
.
Combinato
rs
,
iTasks
.
UI
.
Editor
.
Builtin
import
iTasks
.
UI
.
Editor
.
Modifie
rs
,
iTasks
.
UI
.
Editor
.
Controls
import
iTasks
.
Extensions
.
DateTime
import
qualified
Data
.
Map
as
DM
...
...
Libraries/iTasks/Extensions/Image.icl
View file @
1ccbd831
implementation
module
iTasks
.
Extensions
.
Image
import
iTasks
import
iTasks
.
UI
.
Definition
,
iTasks
.
UI
.
Editor
.
Builtin
,
iTasks
.
UI
.
Editor
.
Combinato
rs
import
iTasks
.
UI
.
Definition
,
iTasks
.
UI
.
Editor
.
Controls
,
iTasks
.
UI
.
Editor
.
Modifie
rs
import
Text
.
HTML
gEditor
{|
WebImage
|}
=
liftEditor
(\{
WebImage
|
src
,
alt
,
width
,
height
}
->
ImgTag
[
SrcAttr
src
,
AltAttr
alt
,
WidthAttr
(
toString
width
),
HeightAttr
(
toString
height
)])
...
...
Libraries/iTasks/Extensions/Process.icl
View file @
1ccbd831
...
...
@@ -4,8 +4,8 @@ import iTasks.WF.Definition
import
iTasks
.
WF
.
Tasks
.
Interaction
import
iTasks
.
UI
.
Definition
import
iTasks
.
UI
.
Prompt
import
iTasks
.
UI
.
Editor
.
Builtin
import
iTasks
.
UI
.
Editor
.
Combinato
rs
import
iTasks
.
UI
.
Editor
.
Controls
import
iTasks
.
UI
.
Editor
.
Modifie
rs
import
iTasks
.
Internal
.
Task
import
iTasks
.
Internal
.
TaskEval
import
iTasks
.
Internal
.
TaskState
...
...
Libraries/iTasks/Extensions/User.icl
View file @
1ccbd831
...
...
@@ -3,7 +3,7 @@ import iTasks
import
Text
import
Data
.
Functor
,
Data
.
Either
import
qualified
Data
.
Map
as
DM
import
iTasks
.
UI
.
Definition
,
iTasks
.
UI
.
Editor
,
iTasks
.
UI
.
Editor
.
Builtin
,
iTasks
.
UI
.
Editor
.
Combinato
rs
import
iTasks
.
UI
.
Definition
,
iTasks
.
UI
.
Editor
,
iTasks
.
UI
.
Editor
.
Controls
,
iTasks
.
UI
.
Editor
.
Modifie
rs
import
iTasks
.
UI
.
Layout
.
Default
from
iTasks
.
WF
.
Definition
import
::
InstanceProgress
(..)
...
...
Libraries/iTasks/Extensions/Web.icl
View file @
1ccbd831
implementation
module
iTasks
.
Extensions
.
Web
import
iTasks
import
iTasks
.
UI
.
Editor
.
Builtin
,
iTasks
.
UI
.
Editor
.
Combinato
rs
import
iTasks
.
UI
.
Editor
.
Controls
,
iTasks
.
UI
.
Editor
.
Modifie
rs
import
Internet
.
HTTP
,
Text
,
Text
.
HTML
,
Text
.
URI
,
Text
.
Encodings
.
MIME
,
Text
.
Encodings
.
UrlEncoding
,
StdArray
,
Data
.
Either
import
System
.
Time
,
System
.
FilePath
...
...
Libraries/iTasks/Internal/Test/Definition.icl
View file @
1ccbd831
implementation
module
iTasks
.
Internal
.
Test
.
Definition
import
iTasks
,
StdFile
,
StdMisc
import
iTasks
.
Extensions
.
Image
import
iTasks
.
UI
.
Editor
,
iTasks
.
UI
.
Editor
.
Builtin
,
iTasks
.
UI
.
Editor
.
Common
,
iTasks
.
UI
.
Definition
import
iTasks
.
UI
.
Editor
,
iTasks
.
UI
.
Editor
.
Controls
,
iTasks
.
UI
.
Editor
.
Common
,
iTasks
.
UI
.
Definition
import
iTasks
.
Extensions
.
Editors
.
Ace
import
iTasks
.
Internal
.
Serialization
import
Text
,
Text
.
HTML
,
System
.
CommandLine
...
...
Libraries/iTasks/UI/Editor/Containers.dcl
View file @
1ccbd831
definition
module
iTasks
.
UI
.
Editor
.
Containers
/**
* Editor combinators for the builtin containers
* This module provides a set of editors for builtin controls
* of the client-side UI framework.
*
* To keep everything well-typed there are lots of boiler-plate versions to create the containers
*/
...
...
@@ -45,3 +46,57 @@ window3 :: UIAttributes (Editor a) (Editor b) (Editor c) -> Editor (a,b,c)
window4
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
->
Editor
(
a
,
b
,
c
,
d
)
window5
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
(
Editor
e
)
->
Editor
(
a
,
b
,
c
,
d
,
e
)
//# UIMenu
menu
::
UIAttributes
->
Editor
()
menul
::
UIAttributes
(
Editor
a
)
->
Editor
[
a
]
menu1
::
UIAttributes
(
Editor
a
)
->
Editor
a
menu2
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
->
Editor
(
a
,
b
)
menu3
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
->
Editor
(
a
,
b
,
c
)
menu4
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
->
Editor
(
a
,
b
,
c
,
d
)
menu5
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
(
Editor
e
)
->
Editor
(
a
,
b
,
c
,
d
,
e
)
//# UIToolBar
toolbar
::
UIAttributes
->
Editor
()
toolbarl
::
UIAttributes
(
Editor
a
)
->
Editor
[
a
]
toolbar1
::
UIAttributes
(
Editor
a
)
->
Editor
a
toolbar2
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
->
Editor
(
a
,
b
)
toolbar3
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
->
Editor
(
a
,
b
,
c
)
toolbar4
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
->
Editor
(
a
,
b
,
c
,
d
)
toolbar5
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
(
Editor
e
)
->
Editor
(
a
,
b
,
c
,
d
,
e
)
//# UIButtonBar
buttonbar
::
UIAttributes
->
Editor
()
buttonbarl
::
UIAttributes
(
Editor
a
)
->
Editor
[
a
]
buttonbar1
::
UIAttributes
(
Editor
a
)
->
Editor
a
buttonbar2
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
->
Editor
(
a
,
b
)
buttonbar3
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
->
Editor
(
a
,
b
,
c
)
buttonbar4
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
->
Editor
(
a
,
b
,
c
,
d
)
buttonbar5
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
(
Editor
e
)
->
Editor
(
a
,
b
,
c
,
d
,
e
)
//# UIList
list
::
UIAttributes
->
Editor
()
listl
::
UIAttributes
(
Editor
a
)
->
Editor
[
a
]
list1
::
UIAttributes
(
Editor
a
)
->
Editor
a
list2
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
->
Editor
(
a
,
b
)
list3
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
->
Editor
(
a
,
b
,
c
)
list4
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
->
Editor
(
a
,
b
,
c
,
d
)
list5
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
(
Editor
e
)
->
Editor
(
a
,
b
,
c
,
d
,
e
)
//# UIListItem
listitem
::
UIAttributes
->
Editor
()
listiteml
::
UIAttributes
(
Editor
a
)
->
Editor
[
a
]
listitem1
::
UIAttributes
(
Editor
a
)
->
Editor
a
listitem2
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
->
Editor
(
a
,
b
)
listitem3
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
->
Editor
(
a
,
b
,
c
)
listitem4
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
->
Editor
(
a
,
b
,
c
,
d
)
listitem5
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
(
Editor
e
)
->
Editor
(
a
,
b
,
c
,
d
,
e
)
//# UIDebug
debug
::
UIAttributes
->
Editor
()
debugl
::
UIAttributes
(
Editor
a
)
->
Editor
[
a
]
debug1
::
UIAttributes
(
Editor
a
)
->
Editor
a
debug2
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
->
Editor
(
a
,
b
)
debug3
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
->
Editor
(
a
,
b
,
c
)
debug4
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
->
Editor
(
a
,
b
,
c
,
d
)
debug5
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
(
Editor
e
)
->
Editor
(
a
,
b
,
c
,
d
,
e
)
Libraries/iTasks/UI/Editor/Containers.icl
View file @
1ccbd831
...
...
@@ -358,3 +358,135 @@ window4 a e1 e2 e3 e4 = group4 UIWindow a e1 e2 e3 e4
window5
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
(
Editor
e
)
->
Editor
(
a
,
b
,
c
,
d
,
e
)
window5
a
e1
e2
e3
e4
e5
=
group5
UIWindow
a
e1
e2
e3
e4
e5
//# UIMenu
menu
::
UIAttributes
->
Editor
()
menu
a
=
group
UIMenu
a
menul
::
UIAttributes
(
Editor
a
)
->
Editor
[
a
]
menul
a
e
=
groupl
UIMenu
a
e
menu1
::
UIAttributes
(
Editor
a
)
->
Editor
a
menu1
a
e1
=
group1
UIMenu
a
e1
menu2
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
->
Editor
(
a
,
b
)
menu2
a
e1
e2
=
group2
UIMenu
a
e1
e2
menu3
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
->
Editor
(
a
,
b
,
c
)
menu3
a
e1
e2
e3
=
group3
UIMenu
a
e1
e2
e3
menu4
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
->
Editor
(
a
,
b
,
c
,
d
)
menu4
a
e1
e2
e3
e4
=
group4
UIMenu
a
e1
e2
e3
e4
menu5
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
(
Editor
e
)
->
Editor
(
a
,
b
,
c
,
d
,
e
)
menu5
a
e1
e2
e3
e4
e5
=
group5
UIMenu
a
e1
e2
e3
e4
e5
//# UIToolBar
toolbar
::
UIAttributes
->
Editor
()
toolbar
a
=
group
UIToolBar
a
toolbarl
::
UIAttributes
(
Editor
a
)
->
Editor
[
a
]
toolbarl
a
e
=
groupl
UIToolBar
a
e
toolbar1
::
UIAttributes
(
Editor
a
)
->
Editor
a
toolbar1
a
e1
=
group1
UIToolBar
a
e1
toolbar2
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
->
Editor
(
a
,
b
)
toolbar2
a
e1
e2
=
group2
UIToolBar
a
e1
e2
toolbar3
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
->
Editor
(
a
,
b
,
c
)
toolbar3
a
e1
e2
e3
=
group3
UIToolBar
a
e1
e2
e3
toolbar4
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
->
Editor
(
a
,
b
,
c
,
d
)
toolbar4
a
e1
e2
e3
e4
=
group4
UIToolBar
a
e1
e2
e3
e4
toolbar5
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
(
Editor
e
)
->
Editor
(
a
,
b
,
c
,
d
,
e
)
toolbar5
a
e1
e2
e3
e4
e5
=
group5
UIToolBar
a
e1
e2
e3
e4
e5
//# UIButtonBar
buttonbar
::
UIAttributes
->
Editor
()
buttonbar
a
=
group
UIButtonBar
a
buttonbarl
::
UIAttributes
(
Editor
a
)
->
Editor
[
a
]
buttonbarl
a
e
=
groupl
UIButtonBar
a
e
buttonbar1
::
UIAttributes
(
Editor
a
)
->
Editor
a
buttonbar1
a
e1
=
group1
UIButtonBar
a
e1
buttonbar2
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
->
Editor
(
a
,
b
)
buttonbar2
a
e1
e2
=
group2
UIButtonBar
a
e1
e2
buttonbar3
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
->
Editor
(
a
,
b
,
c
)
buttonbar3
a
e1
e2
e3
=
group3
UIButtonBar
a
e1
e2
e3
buttonbar4
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
->
Editor
(
a
,
b
,
c
,
d
)
buttonbar4
a
e1
e2
e3
e4
=
group4
UIButtonBar
a
e1
e2
e3
e4
buttonbar5
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
(
Editor
e
)
->
Editor
(
a
,
b
,
c
,
d
,
e
)
buttonbar5
a
e1
e2
e3
e4
e5
=
group5
UIButtonBar
a
e1
e2
e3
e4
e5
//# UIList
list
::
UIAttributes
->
Editor
()
list
a
=
group
UIList
a
listl
::
UIAttributes
(
Editor
a
)
->
Editor
[
a
]
listl
a
e
=
groupl
UIList
a
e
list1
::
UIAttributes
(
Editor
a
)
->
Editor
a
list1
a
e1
=
group1
UIList
a
e1
list2
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
->
Editor
(
a
,
b
)
list2
a
e1
e2
=
group2
UIList
a
e1
e2
list3
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
->
Editor
(
a
,
b
,
c
)
list3
a
e1
e2
e3
=
group3
UIList
a
e1
e2
e3
list4
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
->
Editor
(
a
,
b
,
c
,
d
)
list4
a
e1
e2
e3
e4
=
group4
UIList
a
e1
e2
e3
e4
list5
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
(
Editor
e
)
->
Editor
(
a
,
b
,
c
,
d
,
e
)
list5
a
e1
e2
e3
e4
e5
=
group5
UIList
a
e1
e2
e3
e4
e5
//# UIListItem
listitem
::
UIAttributes
->
Editor
()
listitem
a
=
group
UIListItem
a
listiteml
::
UIAttributes
(
Editor
a
)
->
Editor
[
a
]
listiteml
a
e
=
groupl
UIListItem
a
e
listitem1
::
UIAttributes
(
Editor
a
)
->
Editor
a
listitem1
a
e1
=
group1
UIListItem
a
e1
listitem2
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
->
Editor
(
a
,
b
)
listitem2
a
e1
e2
=
group2
UIListItem
a
e1
e2
listitem3
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
->
Editor
(
a
,
b
,
c
)
listitem3
a
e1
e2
e3
=
group3
UIListItem
a
e1
e2
e3
listitem4
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
->
Editor
(
a
,
b
,
c
,
d
)
listitem4
a
e1
e2
e3
e4
=
group4
UIListItem
a
e1
e2
e3
e4
listitem5
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
(
Editor
e
)
->
Editor
(
a
,
b
,
c
,
d
,
e
)
listitem5
a
e1
e2
e3
e4
e5
=
group5
UIListItem
a
e1
e2
e3
e4
e5
//# UIDebug
debug
::
UIAttributes
->
Editor
()
debug
a
=
group
UIDebug
a
debugl
::
UIAttributes
(
Editor
a
)
->
Editor
[
a
]
debugl
a
e
=
groupl
UIDebug
a
e
debug1
::
UIAttributes
(
Editor
a
)
->
Editor
a
debug1
a
e1
=
group1
UIDebug
a
e1
debug2
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
->
Editor
(
a
,
b
)
debug2
a
e1
e2
=
group2
UIDebug
a
e1
e2
debug3
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
->
Editor
(
a
,
b
,
c
)
debug3
a
e1
e2
e3
=
group3
UIDebug
a
e1
e2
e3
debug4
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
->
Editor
(
a
,
b
,
c
,
d
)
debug4
a
e1
e2
e3
e4
=
group4
UIDebug
a
e1
e2
e3
e4
debug5
::
UIAttributes
(
Editor
a
)
(
Editor
b
)
(
Editor
c
)
(
Editor
d
)
(
Editor
e
)
->
Editor
(
a
,
b
,
c
,
d
,
e
)
debug5
a
e1
e2
e3
e4
e5
=
group5
UIDebug
a
e1
e2
e3
e4
e5
Libraries/iTasks/UI/Editor/
Builtin
.dcl
→
Libraries/iTasks/UI/Editor/
Controls
.dcl
View file @
1ccbd831
definition
module
iTasks
.
UI
.
Editor
.
Builtin
definition
module
iTasks
.
UI
.
Editor
.
Controls
/**
* This module provides a set of editors
that are standard available
*
in
the client-side UI framework.
* This module provides a set of editors
for builtin controls
*
of
the client-side UI framework.
*/
from
iTasks
.
UI
.
Editor
import
::
Editor
from
iTasks
.
UI
.
Definition
import
::
UIAttributes
...
...
Libraries/iTasks/UI/Editor/
Builtin
.icl
→
Libraries/iTasks/UI/Editor/
Controls
.icl
View file @
1ccbd831
implementation
module
iTasks
.
UI
.
Editor
.
Builtin
implementation
module
iTasks
.
UI
.
Editor
.
Controls
import
iTasks
.
UI
.
Definition
,
iTasks
.
UI
.
Editor
import
StdFunc
,
StdBool
,
GenEq
...
...
Libraries/iTasks/UI/Editor/Generic.icl
View file @
1ccbd831
...
...
@@ -2,8 +2,8 @@ implementation module iTasks.UI.Editor.Generic
import
iTasks
.
UI
.
Definition
import
iTasks
.
UI
.
Editor
import
iTasks
.
UI
.
Editor
.
Builtin
import
iTasks
.
UI
.
Editor
.
Combinato
rs
import
iTasks
.
UI
.
Editor
.
Controls
import
iTasks
.
UI
.
Editor
.
Modifie
rs
import
iTasks
.
UI
.
Editor
.
Common
import
iTasks
.
SDS
.
Definition
...
...
Libraries/iTasks/UI/Editor/
Combinato
rs.dcl
→
Libraries/iTasks/UI/Editor/
Modifie
rs.dcl
View file @
1ccbd831
definition
module
iTasks
.
UI
.
Editor
.
Combinato
rs
definition
module
iTasks
.
UI
.
Editor
.
Modifie
rs
/**
* This module provides combinator functions for combining editors
*/
...
...
Libraries/iTasks/UI/Editor/
Combinato
rs.icl
→
Libraries/iTasks/UI/Editor/
Modifie
rs.icl
View file @
1ccbd831
implementation
module
iTasks
.
UI
.
Editor
.
Combinato
rs
implementation
module
iTasks
.
UI
.
Editor
.
Modifie
rs
import
StdBool
import
iTasks
.
UI
.
Editor
,
iTasks
.
UI
.
Definition
...
...
Libraries/iTasks/WF/Tasks/Interaction.dcl
View file @
1ccbd831
...
...
@@ -3,7 +3,7 @@ definition module iTasks.WF.Tasks.Interaction
import
iTasks
.
WF
.
Definition
from
iTasks
.
WF
.
Combinators
.
Core
import
::
Action
from
iTasks
.
UI
.
Prompt
import
class
toPrompt
from
iTasks
.
UI
.
Editor
.
Builtin
import
::
ChoiceText
,
::
ChoiceGrid
,
::
ChoiceNode
from
iTasks
.
UI
.
Editor
.
Controls
import
::
ChoiceText
,
::
ChoiceGrid
,
::
ChoiceNode
from
iTasks
.
SDS
.
Definition
import
::
Shared
,
::
SDS
,
::
RWShared
,
::
ReadWriteShared
from
Data
.
Functor
import
class
Functor
...
...
Libraries/iTasks/WF/Tasks/Interaction.icl
View file @
1ccbd831
...
...
@@ -15,7 +15,7 @@ import iTasks.SDS.Sources.Core
import
iTasks
.
SDS
.
Sources
.
System
import
iTasks
.
SDS
.
Combinators
.
Common
import
iTasks
.
Internal
.
Util
import
iTasks
.
UI
.
Layout
,
iTasks
.
UI
.
Definition
,
iTasks
.
UI
.
Editor
,
iTasks
.
UI
.
Prompt
,
iTasks
.
UI
.
Editor
.
Builtin
import
iTasks
.
UI
.
Layout
,
iTasks
.
UI
.
Definition
,
iTasks
.
UI
.
Editor
,
iTasks
.
UI
.
Prompt
,
iTasks
.
UI
.
Editor
.
Controls
import
Text
.
HTML
derive
class
iTask
ChoiceText
,
ChoiceGrid
,
ChoiceRow
,
ChoiceNode
...
...
Tests/Tests/Interactive/BuiltinContainers.icl
View file @
1ccbd831
...
...
@@ -3,7 +3,7 @@ implementation module Tests.Interactive.BuiltinContainers
* Tests for the builtin containers in the client library
*/
import
iTasks
,
iTasks
.
Internal
.
Test
.
Definition
import
iTasks
.
UI
.
Definition
,
iTasks
.
UI
.
Layout
,
iTasks
.
UI
.
Editor
.
Builtin
,
iTasks
.
UI
.
Editor
.
Combinato
rs
import
iTasks
.
UI
.
Definition
,
iTasks
.
UI
.
Layout
,
iTasks
.
UI
.
Editor
.
Controls
,
iTasks
.
UI
.
Editor
.
Modifie
rs
import
Data
.
List
import
qualified
Data
.
Map
as
DM
...
...
Tests/Tests/Interactive/BuiltinEditors.icl
View file @
1ccbd831
implementation
module
Tests
.
Interactive
.
BuiltinEditors
import
iTasks
,
iTasks
.
Internal
.
Test
.
Definition
import
iTasks
.
UI
.
Editor
.
Builtin
,
iTasks
.
UI
.
Editor
.
Common
,
iTasks
.
UI
.
Definition
import
iTasks
.
UI
.
Editor
.
Controls
,
iTasks
.
UI
.
Editor
.
Common
,
iTasks
.
UI
.
Definition
import
qualified
Data
.
Map
as
DM
import
Text
.
HTML
...
...
Tests/Tests/Interactive/CustomEditors.icl
View file @
1ccbd831
implementation
module
Tests
.
Interactive
.
CustomEditors
import
iTasks
,
iTasks
.
Internal
.
Test
.
Definition
import
iTasks
.
UI
.
Definition
,
iTasks
.
UI
.
Editor
.
Builtin
,
iTasks
.
UI
.
Editor
.
Combinato
rs
import
iTasks
.
UI
.
Definition
,
iTasks
.
UI
.
Editor
.
Controls
,
iTasks
.
UI
.
Editor
.
Modifie
rs
import
iTasks
.
Extensions
.
DateTime
import
qualified
Data
.
Map
as
DM
...
...
Tests/Tests/Interactive/TaskPatterns.icl
View file @
1ccbd831
...
...
@@ -2,7 +2,7 @@ implementation module Tests.Interactive.TaskPatterns
import
iTasks
.
Internal
.
Test
.
Definition
import
Data
.
Maybe
,
Text
import
qualified
Data
.
Map
as
DM
import
iTasks
.
UI
.
Editor
.
Builtin
import
iTasks
.
UI
.
Editor
.
Controls
testTaskPatternsI
::
TestSuite
testTaskPatternsI
=
testsuite
"Task patterns"
"Tests for common task patterns"
...
...
Tools/CodeQualityMonitor.icl
View file @
1ccbd831
...
...
@@ -11,7 +11,7 @@ import qualified Data.Map as DM
import
iTasks
import
iTasks
.
Internal
.
Test
.
Definition
import
iTasks
.
UI
.
Definition
import
iTasks
.
UI
.
Editor
,
iTasks
.
UI
.
Editor
.
Builtin
,
iTasks
.
UI
.
Editor
.
Common
import
iTasks
.
UI
.
Editor
,
iTasks
.
UI
.
Editor
.
Controls
,
iTasks
.
UI
.
Editor
.
Modifiers
import
iTasks
.
Extensions
.
Editors
.
Ace
import
iTasks
.
Extensions
.
Development
.
Codebase
import
iTasks
.
Extensions
.
Development
.
Testing
...
...
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