Fix call/dryrun label

ebin/clutch.app

@@ -3,7 +3,7 @@
               {registered,[]},
               {included_applications,[]},
               {applications,[stdlib,kernel,sasl,ssl]},
-              {vsn,"0.4.0"},
+              {vsn,"0.4.1"},
               {modules,[clutch,gmc_con,gmc_grids,gmc_gui,gmc_jt,
                         gmc_key_master,gmc_sup,gmc_v,gmc_v_devman,
                         gmc_v_netman,gmc_v_wallman]},

src/clutch.erl

@@ -3,7 +3,7 @@
 %%% @end
 
 -module(clutch).
--vsn("0.4.0").
+-vsn("0.4.1").
 -behavior(application).
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").

src/gmc_con.erl

@@ -3,7 +3,7 @@
 %%% @end
 
 -module(gmc_con).
--vsn("0.4.0").
+-vsn("0.4.1").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").

src/gmc_grids.erl

@@ -37,7 +37,7 @@
 %%% @end
 
 -module(gmc_grids).
--vsn("0.4.0").
+-vsn("0.4.1").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").

src/gmc_gui.erl

@@ -3,7 +3,7 @@
 %%% @end
 
 -module(gmc_gui).
--vsn("0.4.0").
+-vsn("0.4.1").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").

src/gmc_jt.erl

@@ -15,7 +15,7 @@
 %%% translation library is retained).
 
 -module(gmc_jt).
--vsn("0.4.0").
+-vsn("0.4.1").
 -export([read_translations/1, j/2, oneshot_j/2]).
 
 

src/gmc_key_master.erl

@@ -8,7 +8,7 @@
 %%% @end
 
 -module(gmc_key_master).
--vsn("0.4.0").
+-vsn("0.4.1").
 
 
 -export([make_key/2, encode/1, decode/1]).

src/gmc_sup.erl

@@ -12,7 +12,7 @@
 %%% @end
 
 -module(gmc_sup).
--vsn("0.4.0").
+-vsn("0.4.1").
 -behaviour(supervisor).
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").

src/gmc_v.erl

@@ -1,5 +1,5 @@
 -module(gmc_v).
--vsn("0.4.0").
+-vsn("0.4.1").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").

src/gmc_v_devman.erl

@@ -1,5 +1,5 @@
 -module(gmc_v_devman).
--vsn("0.4.0").
+-vsn("0.4.1").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").
@@ -317,7 +317,12 @@ clicked3(State = #s{frame = Frame, j = J}, Contract, Name, Selected, Keys) ->
     DefGasP = hz:min_gas_price(),
     DefGas = 5000000,
     DefAmount = 0,
-    Dialog = wxDialog:new(Frame, ?wxID_ANY, J("Deploy Contract")),
+    Label =
+        case element(2, Name) of
+            call -> "Contract Call";
+            dryr -> "Dry Run"
+        end,
+    Dialog = wxDialog:new(Frame, ?wxID_ANY, J(Label)),
     Sizer = wxBoxSizer:new(?wxVERTICAL),
     KeySz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Signature Key")}]),
     KeyPicker = wxChoice:new(Dialog, ?wxID_ANY, [{choices, Keys}]),

src/gmc_v_netman.erl

@@ -1,5 +1,5 @@
 -module(gmc_v_netman).
--vsn("0.4.0").
+-vsn("0.4.1").
 -author("Craig Everett <zxq9@zxq9.com>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").

src/gmc_v_wallman.erl

@@ -1,5 +1,5 @@
 -module(gmc_v_wallman).
--vsn("0.4.0").
+-vsn("0.4.1").
 -author("Craig Everett <zxq9@zxq9.com>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").

zomp.meta

@@ -4,7 +4,7 @@
 {prefix,"gmc"}.
 {desc,"A desktop client for the Gajumaru network of blockchain networks"}.
 {author,"Craig Everett"}.
-{package_id,{"otpr","clutch",{0,4,0}}}.
+{package_id,{"otpr","clutch",{0,4,1}}}.
 {deps,[{"otpr","gmserialization",{0,1,3}},
        {"otpr","sophia",{9,0,0}},
        {"otpr","hakuzaru",{0,3,0}},