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
3b7a6dc0
Commit
3b7a6dc0
authored
Feb 08, 2005
by
John van Groningen
Browse files
make the box with the paths of the environment larger
parent
a6289042
Changes
1
Hide whitespace changes
Inline
Side-by-side
Ide/targetui.icl
View file @
3b7a6dc0
...
@@ -421,16 +421,23 @@ envDialog ap pp ts ct getTs setTs ps
...
@@ -421,16 +421,23 @@ envDialog ap pp ts ct getTs setTs ps
#
(
r2id
,
ps
)
=
openId
ps
#
(
r2id
,
ps
)
=
openId
ps
#
(
r3id
,
ps
)
=
openId
ps
#
(
r3id
,
ps
)
=
openId
ps
#
(
r4id
,
ps
)
=
openId
ps
#
(
r4id
,
ps
)
=
openId
ps
#
(
siz
,
ps
)
=
controlSize
(
LayoutControl
#
layout_control_attributes
=
[
ControlPos
(
Left
,
zero
),
ControlHMargin
0
0
,
ControlVMargin
0
0
]
(
ButtonControl
"Append..."
[
ControlWidth
buttonWidth
]
#
append_button
=
ButtonControl
"Append..."
[
ControlWidth
buttonWidth
]
:+:
ButtonControl
"Remove"
[
ControlPos
(
Left
,
zero
),
ControlWidth
buttonWidth
]
#
remove_button
=
ButtonControl
"Remove"
[
ControlPos
(
Left
,
zero
),
ControlWidth
buttonWidth
]
)
#
(
siz
,
ps
)
=
controlSize
(
LayoutControl
[
ControlPos
(
Left
,
zero
)
(
append_button
,
ControlHMargin
0
0
:+:
remove_button
,
ControlVMargin
0
0
)
])
layout_control_attributes
)
True
True
Nothing
Nothing
Nothing
ps
Nothing
Nothing
Nothing
ps
#
(
path_size
,
ps
)
=
controlSize
(
LayoutControl
(
append_button
:+:
remove_button
:+:
ButtonControl
"Up"
[
ControlPos
(
Left
,
zero
)]
:+:
ButtonControl
"Dn"
[
ControlPos
(
Left
,
zero
)]
)
layout_control_attributes
)
True
Nothing
Nothing
Nothing
ps
#
(
lbobjId
,
ps
)
=
openExtListBoxId
ps
#
(
lbobjId
,
ps
)
=
openExtListBoxId
ps
#
(
lbobj
)
=
ExtListBoxControl
#
(
lbobj
)
=
ExtListBoxControl
(
zip3
(
StrictListToList
(
FullPaths
inifull
ap
pp
tg
.
target_objs
))(
repeat
id
)(
repeat
id
))
(
zip3
(
StrictListToList
(
FullPaths
inifull
ap
pp
tg
.
target_objs
))(
repeat
id
)(
repeat
id
))
...
@@ -487,7 +494,7 @@ envDialog ap pp ts ct getTs setTs ps
...
@@ -487,7 +494,7 @@ envDialog ap pp ts ct getTs setTs ps
,
lblibId
=
lblibId
,
lblibId
=
lblibId
}
}
#
(_,
ps
)
=
openModalDialog
iniLS
#
(_,
ps
)
=
openModalDialog
iniLS
(
ddef
wid
okId
cancelId
lbobj
lbobjId
lblib
lblibId
(
siz
.
Size
.
h
)
lbpadId
lbsll
(
ddef
wid
okId
cancelId
lbobj
lbobjId
lblib
lblibId
(
path_
siz
e
.
Size
.
h
)
lbpadId
lbsll
lbsllId
siz
compId
cgenId
linkId
dynlId
versId
methId
c1id
c2id
c3id
c4id
lbsllId
siz
compId
cgenId
linkId
dynlId
versId
methId
c1id
c2id
c3id
c4id
r1id
r2id
r3id
r4id
r1id
r2id
r3id
r4id
)
ps
)
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