Commit 3b7a6dc0 authored by John van Groningen's avatar John van Groningen

make the box with the paths of the environment larger

parent a6289042
......@@ -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_size.Size.h) lbpadId lbsll
lbsllId siz compId cgenId linkId dynlId versId methId c1id c2id c3id c4id
r1id r2id r3id r4id
) ps
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment