WIP

src/gd_con.erl

@@ -1349,11 +1349,14 @@ do_tic(MS, State = #s{timer = {T, _}}) ->
     T = erlang:send_after(MS, self(), tic),
     State#s{timer = {T, MS}}.
 
+handle_tic(State = #s{wallet = #wallet{poas = []}, timer = {T, MS}}) ->
+    ok = cancel_timer(T),
+    NewT = erlang:send_after(MS, self(), tic),
+    State#s{timer = {NewT, MS}};
 handle_tic(State = #s{wallet   = This = #wallet{poas = POAs, endpoint = Node},
                       timer    = {T, MS},
                       selected = Selected})
         when Selected > 0 ->
-    
     NewState =
         case ensure_hz_set(Node) of
             {ok, ChainID} ->

src/gd_v_devman.erl

@@ -8,7 +8,7 @@
 %-behavior(gd_v).
 -include_lib("wx/include/wx.hrl").
 -export([to_front/1]).
--export([set_manifest/1, open_contract/1, call_result/2, dryrun_result/2, trouble/1]).
+-export([set_manifest/1, open_contract/1, write_console/2, call_result/2, dryrun_result/2, trouble/1]).
 -export([start_link/1]).
 -export([init/1, terminate/2, code_change/3,
          handle_call/3, handle_cast/2, handle_info/2, handle_event/2]).
@@ -87,6 +87,14 @@ open_contract(Address) ->
     wx_object:cast(?MODULE, {open_contract, Address}).
 
 
+-spec write_console(ConID, Message) -> ok
+    when ConID   :: gajudesk:id(),
+         Message :: unicode:chardata().
+
+write_console(ConID, Message) ->
+    wx_object:cast(?MODULE, {write_console, ConID, Message}).
+
+
 -spec call_result(ConID, CallInfo) -> ok
     when ConID    :: gajudesk:id(),
          CallInfo :: map().
@@ -220,6 +228,9 @@ handle_cast(to_front, State = #s{frame = Frame}) ->
 handle_cast({open_contract, Address}, State) ->
     NewState = load2(State, Address),
     {noreply, NewState};
+handle_cast({write_console, ConID, Message}, State) ->
+    ok = do_write_console(State, ConID, Message),
+    {noreply, State};
 handle_cast({call_result, ConID, CallInfo}, State) ->
     ok = do_call_result(State, ConID, CallInfo),
     {noreply, State};
@@ -325,30 +336,39 @@ clicked2(State, Contract, Name) ->
             handle_troubling(State, "No wallet is selected!")
     end.
 
-clicked3(State = #s{frame = Frame, j = J}, Contract, Name, Selected, Keys) ->
-    Label =
-        case element(2, Name) of
-            call -> "Contract Call";
-            dryr -> "Dry Run"
+clicked3(State = #s{frame = Frame, j = J}, Contract, Name = {FunName, FunType}, Selected, Keys) ->
+    {FunName, FunType} = Name,
+    #c{id = ConID, build = #{aaci := AACI}} = Contract,
+    {aaci, ConName, FunSpecs, _} = AACI,
+    FunSpec = maps:get(FunName, FunSpecs),
+    tell("FunName: ~tp", [FunName]),
+    tell("FunSpec: ~tp", [FunSpec]),
+    CallType =
+        case FunType of
+            call -> J("Contract Call");
+            dryr -> J("Dry Run")
         end,
-    Dialog = wxDialog:new(Frame, ?wxID_ANY, J(Label)),
+    Label = [CallType, ": ", ConName, ".", FunName, "/", integer_to_list(length(element(1, FunSpec)))],
+    Dialog = wxDialog:new(Frame, ?wxID_ANY, Label),
     Sizer = wxBoxSizer:new(?wxVERTICAL),
     KeySz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Signature Key")}]),
     KeyPicker = wxChoice:new(Dialog, ?wxID_ANY, [{choices, Keys}]),
     _ = wxStaticBoxSizer:add(KeySz, KeyPicker, zxw:flags(wide)),
     ok = wxChoice:setSelection(KeyPicker, Selected - 1),
+    {ArgSz, ArgControls, Dimensions} = call_arg_sizer(Dialog, J, FunSpec),
     {ParamSz, TTL_Tx, GasP_Tx, Gas_Tx, Amount_Tx} = call_param_sizer(Dialog, J),
     ButtSz = wxBoxSizer:new(?wxHORIZONTAL),
     Affirm = wxButton:new(Dialog, ?wxID_OK),
     Cancel = wxButton:new(Dialog, ?wxID_CANCEL),
-    _ = wxBoxSizer:add(ButtSz, Affirm, zxw:flags(wide)),
-    _ = wxBoxSizer:add(ButtSz, Cancel, zxw:flags(wide)),
-    _ = wxSizer:add(Sizer, KeySz,   zxw:flags(wide)),
-    _ = wxSizer:add(Sizer, ParamSz, zxw:flags(wide)),
-    _ = wxSizer:add(Sizer, ButtSz,  zxw:flags(wide)),
+    _ = wxBoxSizer:add(ButtSz, Affirm, zxw:flags({wide, 5})),
+    _ = wxBoxSizer:add(ButtSz, Cancel, zxw:flags({wide, 5})),
+    _ = wxSizer:add(Sizer, KeySz,   zxw:flags({base, 5})),
+    _ = wxSizer:add(Sizer, ArgSz,   zxw:flags({wide, 5})),
+    _ = wxSizer:add(Sizer, ParamSz, zxw:flags({base, 5})),
+    _ = wxSizer:add(Sizer, ButtSz,  zxw:flags({base, 5})),
     ok = wxDialog:setSizer(Dialog, Sizer),
     ok = wxBoxSizer:layout(Sizer),
-    ok = wxDialog:setSize(Dialog, {500, 300}),
+    ok = wxDialog:setSize(Dialog, Dimensions),
     ok = wxDialog:center(Dialog),
     Outcome =
         case wxDialog:showModal(Dialog) of
@@ -356,14 +376,17 @@ clicked3(State = #s{frame = Frame, j = J}, Contract, Name, Selected, Keys) ->
                 ID = wxChoice:getString(KeyPicker, wxChoice:getSelection(KeyPicker)),
                 PK = unicode:characters_to_binary(ID),
                 Controls =
-                    [{"TTL",       TTL_Tx},
-                     {"Gas Price", GasP_Tx},
-                     {"Gas",       Gas_Tx},
-                     {"Amount",    Amount_Tx}],
+                    [{{"TTL",       fun gt_0/1},  TTL_Tx},
+                     {{"Gas Price", fun gt_0/1},  GasP_Tx},
+                     {{"Gas",       fun gt_0/1},  Gas_Tx},
+                     {{"Amount",    fun gte_0/1}, Amount_Tx}],
                 case call_params(Controls) of
                     {ok, [TTL, GasP, Gas, Amount]} ->
+                        {Message, CArgs} = extract_args(ArgControls),
+                        ok = gd_v_devman:write_console(ConID, Message),
                         {ok, Nonce} = hz:next_nonce(PK),
-                        {ok, {PK, Nonce, TTL, GasP, Gas, Amount}};
+                        CallParams = {PK, Nonce, TTL, GasP, Gas, Amount},
+                        {ok, CallParams, CArgs};
                     E ->
                         E
                 end;
@@ -372,11 +395,80 @@ clicked3(State = #s{frame = Frame, j = J}, Contract, Name, Selected, Keys) ->
         end,
     ok = wxDialog:destroy(Dialog),
     case Outcome of
-        {ok, Params} -> clicked4(State, Contract, Name, Params);
-        cancel       -> State;
-        Error        -> handle_troubling(State, Error)
+        {ok, Params, Args} -> clicked4(State, Contract, Name, Params, Args);
+        cancel             -> State;
+        Error              -> handle_troubling(State, Error)
     end.
 
+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_arg_sizer(Dialog, J, {CallArgs, ReturnType}) ->
+    SpecSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Function Spec")}]),
+    {CallSz, CallControls, Dimensions} = call_sizer(Dialog, J, CallArgs),
+    ReturnSz = return_sizer(Dialog, J, ReturnType),
+    _ = wxStaticBoxSizer:add(SpecSz, CallSz,   zxw:flags({wide, 5})),
+    _ = wxStaticBoxSizer:add(SpecSz, ReturnSz, zxw:flags({base, 5})),
+    {SpecSz, CallControls, Dimensions}.
+
+call_sizer(Dialog, J, []) ->
+    CallSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Call Args")}]),
+    Args   = wxStaticText:new(Dialog, ?wxID_ANY, ["[", J("No Args"), "]"]),
+    _ = wxStaticBoxSizer:add(CallSz, Args, zxw:flags({wide, 5})),
+    {CallSz, [], {500, 500}};
+call_sizer(Dialog, J, CallArgs) ->
+    ScrollWin = wxScrolledWindow:new(Dialog),
+    ScrollSz = wxBoxSizer:new(?wxVERTICAL),
+    ok = wxScrolledWindow:setSizerAndFit(ScrollWin, ScrollSz),
+    ok = wxScrolledWindow:setScrollRate(ScrollWin, 5, 5),
+    CallSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Call Args")}]),
+    GridSz = wxFlexGridSizer:new(2, [{gap, {4, 4}}]),
+    ok = wxFlexGridSizer:setFlexibleDirection(GridSz, ?wxHORIZONTAL),
+    ok = wxFlexGridSizer:addGrowableCol(GridSz, 1),
+    AddArg =
+        fun({Name, Type}) ->
+            L = wxStaticText:new(ScrollWin, ?wxID_ANY, [Name, " : ", textify(Type)]),
+            C = wxTextCtrl:new(ScrollWin, ?wxID_ANY),
+            _ = wxFlexGridSizer:add(GridSz, L, zxw:flags({base, 5})),
+            _ = wxFlexGridSizer:add(GridSz, C, zxw:flags({wide, 5})),
+            {Name, C}
+        end,
+    _ = wxStaticBoxSizer:add(ScrollSz, GridSz, zxw:flags(wide)),
+    _ = wxStaticBoxSizer:add(CallSz, ScrollWin, zxw:flags(wide)),
+    Controls = lists:map(AddArg, CallArgs),
+    {CallSz, Controls, {600, 700}}.
+
+return_sizer(Dialog, J, ReturnType) ->
+    ReturnSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Return Type")}]),
+    Return  = wxStaticText:new(Dialog, ?wxID_ANY, textify(ReturnType)),
+    _ = wxStaticBoxSizer:add(ReturnSz, Return, zxw:flags({wide, 5})),
+    ReturnSz.
+
+textify({integer,      _, _})                 -> "int";
+textify({boolean,      _, _})                 -> "bool";
+textify({{bytes, [I]}, _, _})                 -> io_lib:format("bytes(~w)", [I]);
+textify({{bytes, any}, _, _})                 -> "bytes()";
+textify({T,            _, _}) when is_atom(T) -> atom_to_list(T);
+textify({T,            _, _}) when is_list(T) -> T;
+textify({T,            _, _})                 -> io_lib:format("~tp", [T]).
+
+
 call_param_sizer(Dialog, J) ->
     {ok, Height} = hz:top_height(),
     DefTTL = Height + 10000,
@@ -399,40 +491,64 @@ call_param_sizer(Dialog, J) ->
     Amount_L  = wxStaticText:new(Dialog, ?wxID_ANY, J("TX Amount")),
     Amount_Tx = wxTextCtrl:new(Dialog, ?wxID_ANY),
     ok        = wxTextCtrl:setValue(Amount_Tx, integer_to_list(DefAmount)),
-    _ = wxFlexGridSizer:add(GridSz, TTL_L, zxw:flags(base)),
-    _ = wxFlexGridSizer:add(GridSz, TTL_Tx, zxw:flags(wide)),
-    _ = wxFlexGridSizer:add(GridSz, GasP_L, zxw:flags(base)),
-    _ = wxFlexGridSizer:add(GridSz, GasP_Tx, zxw:flags(wide)),
-    _ = wxFlexGridSizer:add(GridSz, Gas_L, zxw:flags(base)),
-    _ = wxFlexGridSizer:add(GridSz, Gas_Tx, zxw:flags(wide)),
-    _ = wxFlexGridSizer:add(GridSz, Amount_L, zxw:flags(base)),
-    _ = wxFlexGridSizer:add(GridSz, Amount_Tx, zxw:flags(wide)),
+    _ = wxFlexGridSizer:add(GridSz, TTL_L, zxw:flags({base, 5})),
+    _ = wxFlexGridSizer:add(GridSz, TTL_Tx, zxw:flags({wide, 5})),
+    _ = wxFlexGridSizer:add(GridSz, GasP_L, zxw:flags({base, 5})),
+    _ = wxFlexGridSizer:add(GridSz, GasP_Tx, zxw:flags({wide, 5})),
+    _ = wxFlexGridSizer:add(GridSz, Gas_L, zxw:flags({base, 5})),
+    _ = wxFlexGridSizer:add(GridSz, Gas_Tx, zxw:flags({wide, 5})),
+    _ = wxFlexGridSizer:add(GridSz, Amount_L, zxw:flags({base, 5})),
+    _ = wxFlexGridSizer:add(GridSz, Amount_Tx, zxw:flags({wide, 5})),
     _ = wxSizer:add(ParamSz, GridSz, zxw:flags(wide)),
     {ParamSz, TTL_Tx, GasP_Tx, Gas_Tx, Amount_Tx}.
 
 call_params(Controls) ->
-    call_params(Controls, []).
+    call_params(Controls, {[], []}).
 
-call_params([], A) ->
-    {ok, lists:reverse(A)};
-call_params([{L, C} | T], A) ->
-    O =
+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 =
         try
-            {ok, list_to_integer(wxTextCtrl:getValue(C))}
+            {ok, list_to_integer(S)}
         catch
-            error:badarg -> {error, {L, not_an_integer}}
+            error:badarg -> {error, {S, C}}
         end,
-    case O of
-        {ok, N} -> call_params(T, [N | A]);
-        Error   -> Error
+    case R of
+        {ok, N} when N >  0 -> {ok, N};
+        {ok, N} when N =< 0 -> {error, {S, C}};
+        Error               -> Error
+    end.
+
+gte_0(S) ->
+    C = "Must be a non-negative integer.",
+    R =
+        try
+            {ok, list_to_integer(S)}
+        catch
+            error:badarg -> {error, {S, C}}
+        end,
+    case R of
+        {ok, N} when N >= 0 -> {ok, N};
+        {ok, N} when N  < 0 -> {error, {S, C}};
+        Error               -> Error
     end.
 
 clicked4(State,
-         #c{id = ConID, build = #{aaci := AACI}, funs = {_, Funs}},
+         #c{id = ConID, build = #{aaci := AACI}},
          {Name, Type},
-         {PK, Nonce, TTL, GasP, Gas, Amt}) ->
-    #f{args = ArgFields} = maps:get(Name, Funs),
-    Args = lists:map(fun get_arg/1, ArgFields),
+         {PK, Nonce, TTL, GasP, Gas, Amt},
+         Args) ->
     case hz:contract_call(PK, Nonce, Gas, GasP, Amt, TTL, AACI, ConID, Name, Args) of
         {ok, UnsignedTX} ->
             case Type of
@@ -453,28 +569,27 @@ do_dry_run(State, ConID, TX) ->
     State.
 
 
-do_call_result(#s{tabs = TopBook, cons = {Consbook, Contracts}}, ConID, CallInfo) ->
+do_write_console(#s{tabs = TopBook, cons = {Consbook, Contracts}}, ConID, Message) ->
     case lookup_contract(ConID, Contracts) of
         {#c{cons = Console}, ZeroIndex} ->
             _ = wxNotebook:changeSelection(TopBook, 1),
             _ = wxNotebook:changeSelection(Consbook, ZeroIndex),
-            Out = io_lib:format("Call Result:~n~p~n~n", [CallInfo]),
+            Out = [Message, "\n\n"],
             wxTextCtrl:appendText(Console, Out);
         error ->
-            tell(info, "Received result for ~p:~n~p ", [ConID, CallInfo])
+            tell(info, "Received result for ~p:~n~p ", [ConID, Message])
     end.
 
 
-do_dryrun_result(#s{tabs = TopBook, cons = {Consbook, Contracts}}, ConID, CallInfo) ->
-    case lookup_contract(ConID, Contracts) of
-        {#c{cons = Console}, ZeroIndex} ->
-            _ = wxNotebook:changeSelection(TopBook, 1),
-            _ = wxNotebook:changeSelection(Consbook, ZeroIndex),
-            Out = io_lib:format("Call Result:~n~p~n~n", [CallInfo]),
-            wxTextCtrl:appendText(Console, Out);
-        error ->
-            tell(info, "Received result for ~p:~n~p ", [ConID, CallInfo])
-    end.
+do_call_result(State, ConID, CallInfo) ->
+    Message = io_lib:format("Call Result:~n~p", [CallInfo]),
+    do_write_console(State, ConID, Message).
+
+
+do_dryrun_result(State, ConID, CallInfo) ->
+    Message = io_lib:format("Call Result:~n~p", [CallInfo]),
+    do_write_console(State, ConID, Message).
+
 
 lookup_contract(ConID, Contracts) ->
     lookup_contract(ConID, Contracts, 0).
@@ -618,55 +733,44 @@ deploy3(State, InitSpec, Build) ->
     end.
 
 deploy4(State = #s{frame = Frame, j = J}, InitSpec, Build, Selected, Keys) ->
-    InitArgs = element(1, InitSpec),
     Dialog = wxDialog:new(Frame, ?wxID_ANY, J("Deploy Contract")),
     Sizer = wxBoxSizer:new(?wxVERTICAL),
-    ScrollWin = wxScrolledWindow:new(Dialog),
-    ScrollSz = wxBoxSizer:new(?wxVERTICAL),
-    ok = wxScrolledWindow:setSizerAndFit(ScrollWin, ScrollSz),
-    ok = wxScrolledWindow:setScrollRate(ScrollWin, 5, 5),
-    FunName = unicode:characters_to_list(["init/", integer_to_list(length(InitArgs))]), 
-    FunSz = wxStaticBoxSizer:new(?wxVERTICAL, ScrollWin, [{label, FunName}]),
-    KeySz = wxStaticBoxSizer:new(?wxVERTICAL, ScrollWin, [{label, J("Signature Key")}]),
-    KeyPicker = wxChoice:new(ScrollWin, ?wxID_ANY, [{choices, Keys}]),
+    KeySz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Signature Key")}]),
+    KeyPicker = wxChoice:new(Dialog, ?wxID_ANY, [{choices, Keys}]),
     _ = wxStaticBoxSizer:add(KeySz, KeyPicker, zxw:flags(wide)),
     ok = wxChoice:setSelection(KeyPicker, Selected - 1),
-    {ParamSz, TTL_Tx, GasP_Tx, Gas_Tx, Amount_Tx} = call_param_sizer(ScrollWin, J),
+    {ArgSz, ArgControls, Dimensions} = call_arg_sizer(Dialog, J, InitSpec),
+    {ParamSz, TTL_Tx, GasP_Tx, Gas_Tx, Amount_Tx} = call_param_sizer(Dialog, J),
     ButtSz = wxBoxSizer:new(?wxHORIZONTAL),
     Affirm = wxButton:new(Dialog, ?wxID_OK),
     Cancel = wxButton:new(Dialog, ?wxID_CANCEL),
-    _ = wxBoxSizer:add(ButtSz, Affirm, zxw:flags(wide)),
-    _ = wxBoxSizer:add(ButtSz, Cancel, zxw:flags(wide)),
-    GridSz = wxFlexGridSizer:new(2, 4, 4),
-    ok = wxFlexGridSizer:setFlexibleDirection(GridSz, ?wxHORIZONTAL),
-    ok = wxFlexGridSizer:addGrowableCol(GridSz, 1),
-    ArgFields = make_arg_fields(ScrollWin, GridSz, InitArgs),
-    _ = wxStaticBoxSizer:add(FunSz, GridSz, zxw:flags(wide)),
-    _ = wxStaticBoxSizer:add(ScrollSz, FunSz,   [{proportion, 1}, {flag, ?wxEXPAND}]),
-    _ = wxStaticBoxSizer:add(ScrollSz, KeySz,   [{proportion, 0}, {flag, ?wxEXPAND}]),
-    _ = wxStaticBoxSizer:add(ScrollSz, ParamSz, [{proportion, 0}, {flag, ?wxEXPAND}]),
-    _ = wxSizer:add(Sizer, ScrollWin, [{proportion, 5}, {flag, ?wxEXPAND}]),
-    _ = wxSizer:add(Sizer, ButtSz,    [{proportion, 1}, {flag, ?wxEXPAND}]),
+    _ = wxBoxSizer:add(ButtSz, Affirm, zxw:flags({wide, 5})),
+    _ = wxBoxSizer:add(ButtSz, Cancel, zxw:flags({wide, 5})),
+    _ = wxSizer:add(Sizer, KeySz,   zxw:flags({base, 5})),
+    _ = wxSizer:add(Sizer, ArgSz,   zxw:flags({wide, 5})),
+    _ = wxSizer:add(Sizer, ParamSz, zxw:flags({base, 5})),
+    _ = wxSizer:add(Sizer, ButtSz,  zxw:flags({base, 5})),
     ok = wxDialog:setSizer(Dialog, Sizer),
     ok = wxBoxSizer:layout(Sizer),
-    ok = wxDialog:setSize(Dialog, {500, 500}),
+    ok = wxDialog:setSize(Dialog, Dimensions),
     ok = wxDialog:center(Dialog),
     Outcome =
         case wxDialog:showModal(Dialog) of
             ?wxID_OK ->
                 ID = wxChoice:getString(KeyPicker, wxChoice:getSelection(KeyPicker)),
                 PK = unicode:characters_to_binary(ID),
-                IArgs = lists:map(fun get_arg/1, ArgFields),
                 Controls =
-                    [{"TTL",       TTL_Tx},
-                     {"Gas Price", GasP_Tx},
-                     {"Gas",       Gas_Tx},
-                     {"Amount",    Amount_Tx}],
+                    [{{"TTL",       fun gt_0/1},  TTL_Tx},
+                     {{"Gas Price", fun gt_0/1},  GasP_Tx},
+                     {{"Gas",       fun gt_0/1},  Gas_Tx},
+                     {{"Amount",    fun gte_0/1}, Amount_Tx}],
                 case call_params(Controls) of
                     {ok, [TTL, GasP, Gas, Amount]} ->
+                        {Message, CArgs} = extract_args(ArgControls),
+                        ok = tell(Message),
                         {ok, Nonce} = hz:next_nonce(PK),
                         DeployParams = {PK, Nonce, TTL, GasP, Gas, Amount},
-                        {ok, DeployParams, IArgs};
+                        {ok, DeployParams, CArgs};
                     E ->
                         E
                 end;
@@ -686,19 +790,6 @@ deploy5(State, Build, Params, Args) ->
     State.
 
 
-make_arg_fields(ScrollWin, GridSz, Args) ->
-    MakeArgField =
-        fun({AN, T}) ->
-            tell(info, "~p: Arg: ~p, Type: ~p", [?LINE, AN, T]),
-            ANT = wxStaticText:new(ScrollWin, ?wxID_ANY, AN),
-            TCT = wxTextCtrl:new(ScrollWin, ?wxID_ANY),
-            _ = wxFlexGridSizer:add(GridSz, ANT, [{proportion, 0}, {flag, ?wxEXPAND}]),
-            _ = wxFlexGridSizer:add(GridSz, TCT, [{proportion, 0}, {flag, ?wxEXPAND}]),
-            {T, TCT}
-        end,
-    lists:map(MakeArgField, Args).
-
-
 open(State = #s{frame = Frame, j = J}) ->
     Dialog = wxDialog:new(Frame, ?wxID_ANY, J("Open Contract Source")),
     Sizer = wxBoxSizer:new(?wxVERTICAL),
@@ -1091,23 +1182,6 @@ load3(State = #s{tabs = TopBook, cons = {Consbook, Pages}, buttons = Buttons, j
     State#s{cons = {Consbook, NewPages}, buttons = NewButtons}.
 
 
-get_arg({list, AFs, _}) ->
-    lists:map(fun get_arg/1, AFs);
-get_arg({record, AFs}) ->
-    get_record(AFs);
-get_arg({tuple, AFs}) ->
-    list_to_tuple(lists:map(fun get_arg/1, AFs));
-get_arg({map, [Key, Value]}) ->
-    #{get_arg(Key) => get_arg(Value)};
-get_arg({variant, AFs, [VariantOne | _]}) ->
-    Elems = lists:map(fun get_arg/1, AFs),
-    list_to_tuple([VariantOne | Elems]);
-get_arg({_, TextCtrl}) ->
-    wxTextCtrl:getValue(TextCtrl).
-
-get_record([{L, A} | T]) ->
-    [{L, get_arg(A)} | get_record(T)].
-
 fun_interfaces(ScrollWin, FunSz, Buttons, Funs, J) ->
     MakeIface =
         fun(Name, {Args, _}) ->