QPQ-AG/GajuDesk
10
0
Fork 0
Code Issues 8 Pull Requests Actions Packages Projects Releases Wiki Activity

WIP

Browse Source
This commit is contained in:
Craig Everett
2026-04-28 14:15:28 +09:00
parent fadc252fb2
commit 24ce75f520
3 changed files with 34 additions and 68 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/gd_v_call.erl
+12 -41
View File
@@ -100,14 +100,17 @@ init({Prefs, {FunName, FunType}, ConID, Build, Selected, Keys}) ->
Action = #w{wx = ActionBn} = gd_lib:button(Frame, ActionLabel),
TX_Sz = wxStaticBoxSizer:new(?wxVERTICAL, Frame, [{label, J("Transaction Info")}]),
TX_Data = #w{wx = HashT} = gd_lib:mono_text(TX_Sz, tx_hash),
TX_Hash = #w{wx = HashT} = gd_lib:mono_text(TX_Sz, tx_hash),
TX_Info = #w{wx = HashT} = gd_lib:mono_text(TX_Sz, tx_hash),
TX_Sz_Box = wxStaticBoxSizer:getStaticBox(TX_Sz),
TX_Data = #w{wx = DataT} = gd_lib:mono_text(TX_Sz_Box, tx_hash),
TX_Hash = #w{wx = HashT} = gd_lib:mono_text(TX_Sz_Box, tx_hash),
TX_Info = #w{wx = InfoT} = gd_lib:mono_text(TX_Sz_Box, tx_hash),
Line = wxStaticLine:new(TX_Sz, [{style, ?wxLI_HORIZONTAL}]),
Out = #w{wx = OutTxt} = gd_lib:mono_text(TX_Sz, out),
Out = #w{wx = OutTxt} = gd_lib:mono_text(TX_Sz_Box, out),
Copy = #w{wx = CopyBn} = gd_lib:button(Frame, J("Copy")),
_ = wxStaticBoxSizer:add(TX_Sz, DataT, zxw:flags({wide, 5})),
_ = wxStaticBoxSizer:add(TX_Sz, HashT, zxw:flags({wide, 5})),
_ = wxStaticBoxSizer:add(TX_Sz, InfoT, zxw:flags({wide, 5})),
_ = wxStaticBoxSizer:add(TX_Sz, Line, zxw:flags({wide, 5})),
_ = wxStaticBoxSizer:add(TX_Sz, OutTxt, zxw:flags({wide, 5})),
_ = wxStaticBoxSizer:add(TX_Sz, CopyBn, zxw:flags({wide, 5})),
@@ -282,7 +285,7 @@ engage4(State = #s{fundef = {"init", init}, build = Build}, ChainID, Params, Arg
{ok, CreateTX} -> deploy(State, ChainID, CallerID, CreateTX);
Error -> handle_troubling(State, Error)
end;
engage4(State = #s{con_id = ConID, build = Build, fundef = {Name, Type}}, ChainID, Params, Args) ->
engage4(State = #s{fundef = {Name, Type}, con_id = ConID, build = Build}, ChainID, Params, Args) ->
{CallerID, Nonce, TTL, GP, Gas, Amount} = Params,
AACI = maps:get(aaci, Build),
case hz:contract_call(CallerID, Nonce, Gas, GP, Amount, TTL, AACI, ConID, Name, Args) of
@@ -333,7 +336,7 @@ deploy(State, ChainID, CallerID, CreateTX) ->
deploy2(State, SignedTX) ->
case hz:post_tx(SignedTX) of
{ok, Data} -> check_tx(State#s{tx_data = Data});
{ok, WTF} -> handle_troubling(State, {error, WTF});
% {ok, WTF} -> handle_troubling(State, {error, WTF});
Error -> handle_troubling(State, Error)
end.
@@ -346,7 +349,7 @@ do_call(State, ChainID, CallerID, UnsignedTX) ->
do_call2(State, SignedTX) ->
case hz:post_tx(SignedTX) of
{ok, Data} -> check_tx(SDtate = #s{tx_data = Data});
{ok, Data} -> check_tx(State = #s{tx_data = Data});
Error -> handle_troubling(State, Error)
end.
@@ -382,9 +385,9 @@ update_info(State = #s{tx_info = TXInfo, out = #w{wx = Out}}) ->
State.
copy(State = #s{tx_info = none}) ->
copy(#s{tx_info = none}) ->
ok;
copy(State = #s{out = #w{wx = Out}}) ->
copy(#s{out = #w{wx = Out}}) ->
Output = wxStaticText:getLabel(Out),
gd_lib:copy_to_clipboard(Output).
@@ -399,38 +402,6 @@ textify({T, _, _}) when is_list(T) -> T;
textify({T, _, _}) -> io_lib:format("~tp", [T]).
extract_args(Controls) ->
extract_args(Controls, []).
extract_args([], Acc) ->
pack_args(Acc);
extract_args([{Name, Control} | T], Acc) ->
String = wxTextCtrl:getValue(Control),
extract_args(T, [{Name, String} | Acc]).
pack_args(Args) ->
pack_args(Args, [], []).
pack_args([], M, A) ->
Message = unicode:characters_to_list(["Call Args:\n", M]),
{Message, A};
pack_args([{N, S} | T], M, A) ->
pack_args(T, [[N, ": ", S, "\n"] | M], [S | A]).
call_params(Controls) ->
call_params(Controls, {[], []}).
call_params([], {Acc, []}) ->
{ok, lists:reverse(Acc)};
call_params([], {_, Errors}) ->
{error, lists:reverse(Errors)};
call_params([{{Label, Validate}, Control} | T], {Acc, Errors}) ->
String = wxTextCtrl:getValue(Control),
case Validate(String) of
{ok, Value} -> call_params(T, {[Value | Acc], Errors});
{error, Reason} -> call_params(T, {Acc, [{Label, Reason} | Errors]})
end.
gt_0(S) ->
C = "Must be an integer greater than 0",
R =