WIP: Add gd_con:list_calls/0 and gd_v_call:tx_*/1

src/gd_con.erl

@@ -16,7 +16,7 @@
          refresh/0,
          nonce/1, spend/1, chain_id/0, grids/1,
          sign_mess/1, sign_binary/1, sign_tx/1, sign_call/3,
-         deploy/1, prompt_call/3,
+         deploy/1, prompt_call/3, list_calls/0,
          make_key/6, recover_key/1, mnemonic/1, rename_key/2, drop_key/1, list_keys/0,
          add_node/1, set_sole_node/1]).
 -export([tic/1, update_balance/2]).
@@ -217,6 +217,18 @@ prompt_call(FunDef, ConID, Build) ->
     gen_server:cast(?MODULE, {prompt_call, FunDef, ConID, Build}).
 
 
+-spec list_calls() -> Calls
+    when Calls   :: [{Name, Process}],
+         Name    :: term(),
+         Process :: wx:wx_object() | pid().
+
+%% @doc
+%% List any active contract call tasks.
+
+list_calls() ->
+    gen_server:call(?MODULE, list_calls).
+
+
 -spec make_key(Type, Size, Name, Seed, Encoding, Transform) -> ok
     when Type      :: {eddsa, ed25519},
          Size      :: 256,