Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-libraries
Commits
d0f03e1a
Commit
d0f03e1a
authored
May 18, 2008
by
Bas Lijnse
Browse files
Added rinus's fixes for button store lifespans on the client
parent
7f4fd9d5
Changes
2
Hide whitespace changes
Inline
Side-by-side
libraries/iData/iDataButtons.icl
View file @
d0f03e1a
...
...
@@ -337,8 +337,9 @@ getTimeAndDate hst
=
((
Time
time
.
hours
time
.
minutes
time
.
seconds
,
Date
date
.
day
date
.
month
date
.
year
),
hst
)
gForm
{|
HtmlTime
|}
(
init
,
formid
)
hst
=
specialize
(
flip
mkBimapEditor
{
map_to
=
toPullDown
,
map_from
=
fromPullDown
})
(
init
,
formid
<@
Page
)
hst
=
specialize
(
flip
mkBimapEditor
{
map_to
=
toPullDown
,
map_from
=
fromPullDown
})
(
init
,
formid
<@
n
Page
)
hst
where
nPage
=
if
(
formid
.
lifespan
==
Client
)
Client
Page
toPullDown
(
Time
h
m
s
)
=
(
hv
,
mv
,
sv
)
where
hv
=
PullDown
(
1
,
defpixel
/
2
)
(
h
,[
toString
i
\\
i
<-
[
0
..
23
]])
...
...
@@ -350,8 +351,9 @@ where
convert
x
=
toInt
(
toString
x
)
gForm
{|
HtmlDate
|}
(
init
,
formid
)
hst
=
specialize
(
flip
mkBimapEditor
{
map_to
=
toPullDown
,
map_from
=
fromPullDown
})
(
init
,
formid
<@
Page
)
hst
=
specialize
(
flip
mkBimapEditor
{
map_to
=
toPullDown
,
map_from
=
fromPullDown
})
(
init
,
formid
<@
n
Page
)
hst
where
nPage
=
if
(
formid
.
lifespan
==
Client
)
Client
Page
toPullDown
(
Date
d
m
y
)
=
(
dv
,
mv
,
yv
)
where
dv
=
PullDown
(
1
,
defpixel
/
2
)
(
md
-1
,
[
toString
i
\\
i
<-
[
1
..
31
]])
...
...
libraries/iTasks/iTasksEditors.icl
View file @
d0f03e1a
...
...
@@ -11,7 +11,9 @@ import iTasksHandler, InternaliTasksCommon, iTasksBasicCombinators
import
iDataSettings
,
iDataHandler
,
iDataTrivial
,
iDataButtons
,
iDataFormlib
,
iDataStylelib
editTaskLabel
::
!
String
!
String
!
a
->
(
Task
a
)
|
iData
a
editTaskLabel
tracename
prompt
task
=
\
tst
->
mkTask
tracename
((
editTask`
prompt
task
<<@
Page
)
<<@
Edit
)
tst
editTaskLabel
tracename
prompt
task
=
\
tst
=:{
options
}
->
mkTask
tracename
((
editTask`
prompt
task
<<@
(
nPage
options
))
<<@
Edit
)
tst
where
nPage
options
=
if
(
options
.
tasklife
==
Client
)
Client
Page
editTask
::
!
String
!
a
->
(
Task
a
)
|
iData
a
editTask
prompt
a
=
mkTask
"editTask"
(
editTask`
prompt
a
)
...
...
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