Skip to content
GitLab
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-ide
Commits
0c063c67
Commit
0c063c67
authored
Feb 21, 2003
by
Diederik van Arkel
Browse files
changed labels in dialog
parent
eb84251e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Ide/targetui.icl
View file @
0c063c67
...
...
@@ -137,30 +137,37 @@ where
,
ControlWidth
(
ContentWidth
"Move Down"
)
,
ControlPos
(
BelowPrev
,
zero
)
]
:+:
ButtonControl
"Up"
[
ControlFunction
(
lbUp
lbId
)
,
Control
Pos
(
BelowPrev
,
zero
)
]
:+:
ButtonControl
"
D
n"
[
ControlFunction
(
lbD
n
lbId
)
,
Control
Pos
(
BelowPrev
,
zero
)
]
:+:
ButtonControl
"
Move
Up"
[
ControlFunction
(
upfun
lbId
)
,
Control
Width
(
ContentWidth
"Move Down"
)
,
ControlPos
(
BelowPrev
,
zero
)
]
:+:
ButtonControl
"
Move Dow
n"
[
ControlFunction
(
dnfu
n
lbId
)
,
Control
Width
(
ContentWidth
"Move Down"
)
,
ControlPos
(
BelowPrev
,
zero
)
]
:+:
ButtonControl
"OK"
[
ControlPos
(
Right
,
zero
)
,
ControlFunction
(
okfun
lbId
dId
(
length
targets
))
,
ControlWidth
(
ContentWidth
"Cancel"
)
,
ControlId
okId
]
#
datt
=
[
WindowId
dId
,
WindowOk
okId
,
WindowClose
(
(
okfun
lbId
dId
(
length
targets
)))]
:+:
ButtonControl
"Cancel"
[
ControlPos
(
LeftOfPrev
,
zero
)
,
ControlFunction
(
noLS
(
cancelfun
dId
))
,
ControlId
cancelId
]
#
datt
=
[
WindowId
dId
,
WindowOk
okId
,
WindowCancel
cancelId
,
WindowClose
(
noLS
(
cancelfun
dId
))]
#
(_,
ps
)
=
openModalDialog
targets
(
Dialog
"Edit Environments List"
ddef
datt
)
ps
=
ps
where
lbUp
lbId
(
ls
,
ps
)
#
(_,(
ls
,
ps
))
=
upSelItem
lbId
(
ls
,
ps
)
=
(
ls
,
ps
)
lbDn
lbId
(
ls
,
ps
)
#
(_,(
ls
,
ps
))
=
dnSelItem
lbId
(
ls
,
ps
)
=
(
ls
,
ps
)
upfun
lbId
(
targets
,
ps
)
#
(_,(
targets
,
ps
))
=
upSelItem
lbId
(
targets
,
ps
)
// adjust radio menu...
=
(
targets
,
ps
)
dnfun
lbId
(
targets
,
ps
)
#
(_,(
targets
,
ps
))
=
dnSelItem
lbId
(
targets
,
ps
)
// adjust radio menu...
=
(
targets
,
ps
)
toItem
{
target_name
}
=
(
target_name
,
id
,
id
)
editfun`
lbId
dId
(
targets
,
ps
)
#
((
ok
,
sel
),
ps
)
=
getExtListBoxSelection
lbId
ps
...
...
@@ -239,6 +246,8 @@ where
#
ps
=
setTargets
targets
ps
#
ps
=
closeWindow
dId
ps
=
(
targets
,
ps
)
cancelfun
dId
ps
=
closeWindow
dId
ps
addtfun
(
ls
,
ps
)
=
newNameDialog
"new environment"
cont
(
ls
,
ps
)
where
...
...
@@ -352,7 +361,7 @@ where
cancelfun
windId
(_,
ps
)
// #! ps = trace_n` ("cancel") ps
=
(
Nothing
,
closeWindow
windId
ps
)
//import dodebug
//--
setCurrentTarget`
t
ps
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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