Merge pull request 'iface' (#32) from iface into master

Reviewed-on: #32

ebin/gajudesk.app

@@ -3,8 +3,8 @@
               {registered,[]},
               {included_applications,[]},
               {applications,[stdlib,kernel,sasl,ssl]},
-              {vsn,"0.8.0"},
+              {vsn,"0.8.1"},
-              {modules,[gajudesk,gd_con,gd_grids,gd_gui,gd_jt,
+              {modules,[gajudesk,gd_con,gd_grids,gd_gui,gd_jt,gd_lib,
-                        gd_sophia_editor,gd_sup,gd_v,gd_v_devman,gd_v_netman,
+                        gd_m_spend,gd_m_wallet_importer,gd_sophia_editor,
-                        gd_v_wallman]},
+                        gd_sup,gd_v,gd_v_devman,gd_v_netman,gd_v_wallman]},
               {mod,{gajudesk,[]}}]}.

src/gajudesk.erl

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

src/gd_con.erl

@@ -3,7 +3,7 @@
 %%% @end
 
 -module(gd_con).
--vsn("0.8.0").
+-vsn("0.8.1").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").
@@ -356,6 +356,7 @@ init(none) ->
     GUI_Prefs = maps:get(gd_gui, Prefs, #{}),
     Window = gd_gui:start_link(GUI_Prefs),
     Wallets = get_prefs(wallets, Prefs, []),
+    ok = hz:timeout(default_tic()),
     MS = default_tic(),
     T = erlang:send_after(MS, self(), tic),
     State = #s{window = Window, timer = {T, MS}, wallets = Wallets, prefs = Prefs},
@@ -376,7 +377,7 @@ read_prefs() ->
 
 
 default_tic() ->
-    6000.
+    10_000.
 
 
 

src/gd_grids.erl

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

src/gd_gui.erl

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

src/gd_jt.erl

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

src/gd_lib.erl

@@ -3,6 +3,7 @@
 %%% @end
 
 -module(gd_lib).
+-vsn("0.8.1").
 
 -export([is_int/1]).
 

src/gd_m_spend.erl

@@ -3,12 +3,12 @@
 %%% @end
 
 -module(gd_m_spend).
--vsn("0.8.0").
+-vsn("0.8.1").
 -author("Craig Everett <zxq9@zxq9.com>").
 -copyright("Craig Everett <zxq9@zxq9.com>").
 -license("GPL-3.0-or-later").
 
--behavior(zxw_modal).
+%-behavior(zxw_modal).
 
 -export([show/2]).
 -export([init/1, handle_info/2, handle_event/2]).

src/gd_m_wallet_importer.erl

@@ -5,7 +5,7 @@
 %%% @end
 
 -module(gd_m_wallet_importer).
--vsn("0.8.0").
+-vsn("0.8.1").
 -author("Craig Everett <zxq9@zxq9.com>").
 -copyright("Craig Everett <zxq9@zxq9.com>").
 -license("GPL-3.0-or-later").

src/gd_sophia_editor.erl

@@ -1,5 +1,5 @@
 -module(gd_sophia_editor).
--vsn("0.8.0").
+-vsn("0.8.1").
 -export([new/1, update/1, update/2,
          get_text/1, set_text/2]).
 

src/gd_sup.erl

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

src/gd_v.erl

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

src/gd_v_devman.erl

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

src/gd_v_netman.erl

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

src/gd_v_wallman.erl

@@ -13,7 +13,7 @@
 
 
 -module(gd_v_wallman).
--vsn("0.8.0").
+-vsn("0.8.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,"gd"}.
 {author,"Craig Everett"}.
 {desc,"A desktop client for the Gajumaru network of blockchain networks"}.
-{package_id,{"otpr","gajudesk",{0,8,0}}}.
+{package_id,{"otpr","gajudesk",{0,8,1}}}.
 {deps,[{"otpr","hakuzaru",{0,8,2}},
        {"otpr","zxwidgets",{1,1,0}},
        {"otpr","eblake2",{1,0,1}},