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
#
(
r2id
,
ps
)
=
openId
ps
#
(
r3id
,
ps
)
=
openId
ps
#
(
r4id
,
ps
)
=
openId
ps
#
(
siz
,
ps
)
=
controlSize
(
LayoutControl
(
ButtonControl
"Append..."
[
ControlWidth
buttonWidth
]
:+:
ButtonControl
"Remove"
[
ControlPos
(
Left
,
zero
),
ControlWidth
buttonWidth
]
)
[
ControlPos
(
Left
,
zero
)
,
ControlHMargin
0
0
,
ControlVMargin
0
0
])
True
Nothing
Nothing
Nothing
ps
#
layout_control_attributes
=
[
ControlPos
(
Left
,
zero
),
ControlHMargin
0
0
,
ControlVMargin
0
0
]
#
append_button
=
ButtonControl
"Append..."
[
ControlWidth
buttonWidth
]
#
remove_button
=
ButtonControl
"Remove"
[
ControlPos
(
Left
,
zero
),
ControlWidth
buttonWidth
]
#
(
siz
,
ps
)
=
controlSize
(
LayoutControl
(
append_button
:+:
remove_button
)
layout_control_attributes
)
True
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
#
(
lbobj
)
=
ExtListBoxControl
(
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
,
lblibId
=
lblibId
}
#
(_,
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
r1id
r2id
r3id
r4id
)
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