Ajust spacing

This commit is contained in:
2026-05-06 13:10:38 +09:00
parent b071467faa
commit 41bd9eeacd
+11 -10
View File
@@ -759,11 +759,11 @@ load3(State = #s{tabs = TopBook, cons = {Consbook, Pages}, buttons = Buttons, j
ConsSz = wxStaticBoxSizer:new(?wxVERTICAL, Window, [{label, J("Console")}]), ConsSz = wxStaticBoxSizer:new(?wxVERTICAL, Window, [{label, J("Console")}]),
ConsTxStyle = {style, ?wxTE_MULTILINE bor ?wxTE_READONLY}, ConsTxStyle = {style, ?wxTE_MULTILINE bor ?wxTE_READONLY},
ConsTx = wxTextCtrl:new(Window, ?wxID_ANY, [ConsTxStyle]), ConsTx = wxTextCtrl:new(Window, ?wxID_ANY, [ConsTxStyle]),
_ = wxSizer:add(ConsSz, ConsTx, zxw:flags(wide)), _ = wxSizer:add(ConsSz, ConsTx, zxw:flags({wide, 5})),
_ = wxSizer:add(ProgSz, CodeSz, [{proportion, 3}, {flag, ?wxEXPAND}]), _ = wxSizer:add(ProgSz, CodeSz, [{proportion, 3}, {flag, ?wxEXPAND bor ?wxALL}, {border, 5}]),
_ = wxSizer:add(ProgSz, ScrollWin, [{proportion, 1}, {flag, ?wxEXPAND}]), _ = wxSizer:add(ProgSz, ScrollWin, [{proportion, 1}, {flag, ?wxEXPAND bor ?wxALL}, {border, 5}]),
_ = wxSizer:add(PageSz, ProgSz, [{proportion, 3}, {flag, ?wxEXPAND}]), _ = wxSizer:add(PageSz, ProgSz, [{proportion, 3}, {flag, ?wxEXPAND bor ?wxALL}, {border, 5}]),
_ = wxSizer:add(PageSz, ConsSz, [{proportion, 1}, {flag, ?wxEXPAND}]), _ = wxSizer:add(PageSz, ConsSz, [{proportion, 1}, {flag, ?wxEXPAND bor ?wxALL}, {border, 5}]),
{Out, IFaces, Build, NewButtons} = {Out, IFaces, Build, NewButtons} =
case compile(Source) of case compile(Source) of
{ok, Output} -> {ok, Output} ->
@@ -798,15 +798,16 @@ fun_interfaces(ScrollWin, FunSz, Buttons, Funs, J) ->
FLabel = wxStaticText:new(ScrollWin, ?wxID_ANY, FunName), FLabel = wxStaticText:new(ScrollWin, ?wxID_ANY, FunName),
CallBn = wxButton:new(ScrollWin, ?wxID_ANY, [{label, J("Call")}]), CallBn = wxButton:new(ScrollWin, ?wxID_ANY, [{label, J("Call")}]),
DryRBn = wxButton:new(ScrollWin, ?wxID_ANY, [{label, J("Dry Run")}]), DryRBn = wxButton:new(ScrollWin, ?wxID_ANY, [{label, J("Dry Run")}]),
_ = wxBoxSizer:add(FS, FLabel, [{proportion, 1}, {flag, ?wxEXPAND}]), _ = wxBoxSizer:add(FS, FLabel, zxw:flags(wide)),
_ = wxBoxSizer:add(FS, CallBn, [{proportion, 0}, {flag, ?wxEXPAND}]), _ = wxBoxSizer:add(FS, CallBn, zxw:flags(base)),
_ = wxBoxSizer:add(FS, DryRBn, [{proportion, 0}, {flag, ?wxEXPAND}]), _ = wxBoxSizer:add(FS, DryRBn, zxw:flags(base)),
CallButton = #w{name = {Name, call}, id = wxButton:getId(CallBn), wx = CallBn}, CallButton = #w{name = {Name, call}, id = wxButton:getId(CallBn), wx = CallBn},
DryRButton = #w{name = {Name, dryr}, id = wxButton:getId(DryRBn), wx = DryRBn}, DryRButton = #w{name = {Name, dryr}, id = wxButton:getId(DryRBn), wx = DryRBn},
_ = wxSizer:add(FunSz, FS, zxw:flags(base)), _ = wxSizer:add(FunSz, FS, zxw:flags({base, 5})),
#f{name = Name, call = CallButton, dryrun = DryRButton, args = Args} #f{name = Name, call = CallButton, dryrun = DryRButton, args = Args}
end, end,
IFaces = maps:map(MakeIface, Funs), Iterator = maps:iterator(Funs, ordered),
IFaces = maps:map(MakeIface, Iterator),
NewButtons = maps:fold(fun map_iface_buttons/3, Buttons, IFaces), NewButtons = maps:fold(fun map_iface_buttons/3, Buttons, IFaces),
{NewButtons, IFaces}. {NewButtons, IFaces}.