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

make the box with the paths of the environment larger

parent a6289042
...@@ -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
# 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 # (siz,ps) = controlSize (LayoutControl
( ButtonControl "Append..." [ControlWidth buttonWidth] ( append_button
:+: ButtonControl "Remove" [ControlPos (Left,zero),ControlWidth buttonWidth] :+: remove_button
) )
[ ControlPos (Left,zero) layout_control_attributes)
, ControlHMargin 0 0 True Nothing Nothing Nothing ps
, ControlVMargin 0 0 # (path_size,ps) = controlSize (LayoutControl
]) ( append_button
True :+: remove_button
Nothing Nothing Nothing ps :+: 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_size.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
......
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