WIP

src/gd_v_call.erl

@@ -33,10 +33,11 @@
          gasprice = #w{}   :: #w{},
          gas      = #w{}   :: #w{},
          amount   = #w{}   :: #w{},
+         status   = none   :: status(),
          action   = #w{}   :: #w{},
          tx_data  = none   :: none | map(),
-         tx_hash  = #w{}   :: #w{},
+         tx_hash  = #w{}   :: #w{}, % wxTextCtrl, single-line
-         tx_info  = none   :: none | hz:transaction(),
+         tx_info  = none   :: #w{}, % wxTextCtrl, multi-line
          out      = #w{}   :: #w{},
          copy     = #w{}   :: #w{}}).
 
@@ -45,6 +46,10 @@
 -type fun_type() :: call | dryr | init.
 -type fun_def()  :: {fun_name(), fun_type()}.
 -type param()    :: {Label :: string(), Check :: fun(), #w{}}.
+-type status()   :: none
+                  | {submitted, TX_Hash :: string()}
+                  | {rejected,  Reason  :: string()}
+                  | {included,  TX_Info :: map()}.
 
 
 %%% Interface