Minor usability tweaks

ebin/gajudesk.app

@@ -3,7 +3,7 @@
               {registered,[]},
               {included_applications,[]},
               {applications,[stdlib,kernel,sasl,ssl]},
-              {vsn,"0.5.5"},
+              {vsn,"0.5.6"},
               {modules,[gajudesk,gd_con,gd_grids,gd_gui,gd_jt,gd_key_master,
                         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.5.5").
+-vsn("0.5.6").
 -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.5.5").
+-vsn("0.5.6").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").
@@ -323,8 +323,10 @@ init(none) ->
 
 read_prefs() ->
     case file:consult(prefs_path()) of
-        {ok, Prefs} -> proplists:to_map(Prefs);
-        _           -> #{}
+        {ok, Prefs} ->
+            proplists:to_map(Prefs);
+        _ ->
+            #{gd_v_wallman => #{geometry => {582,335,500,300}}}
     end.
 
 

src/gd_grids.erl

@@ -37,7 +37,7 @@
 %%% @end
 
 -module(gd_grids).
--vsn("0.5.5").
+-vsn("0.5.6").
 -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.5.5").
+-vsn("0.5.6").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").
@@ -96,6 +96,7 @@ init(Prefs) ->
     WallB  = wxButton:new(Frame, ?wxID_ANY, [{label, "[none]"}, {style, ?wxBORDER_NONE}]),
     WallW  = #w{name = wallet, id = wxButton:getId(WallB),  wx = WallB},
     ChainB = wxButton:new(Frame, ?wxID_ANY, [{label, "[ChainID]"}, {style, ?wxBORDER_NONE}]),
+    _ = wxButton:disable(ChainB),
     ChainW = #w{name = chain,  id = wxButton:getId(ChainB), wx = ChainB},
     NodeB  = wxButton:new(Frame, ?wxID_ANY, [{label, "[Node]"}, {style, ?wxBORDER_NONE}]),
     NodeW  = #w{name = node,   id = wxButton:getId(NodeB),  wx = NodeB},
@@ -181,10 +182,10 @@ init(Prefs) ->
 
     #w{wx = Refresh} = lists:keyfind(refresh, #w.name, Buttons),
 
-    HistoryWin = wxScrolledWindow:new(Frame),
-    HistorySz = wxBoxSizer:new(?wxVERTICAL),
-    ok = wxScrolledWindow:setSizerAndFit(HistoryWin, HistorySz),
-    ok = wxScrolledWindow:setScrollRate(HistoryWin, 5, 5),
+%   HistoryWin = wxScrolledWindow:new(Frame),
+%   HistorySz = wxBoxSizer:new(?wxVERTICAL),
+%   ok = wxScrolledWindow:setSizerAndFit(HistoryWin, HistorySz),
+%   ok = wxScrolledWindow:setScrollRate(HistoryWin, 5, 5),
 
     _ = wxSizer:add(MainSz, ChainSz, zxw:flags(base)),
     _ = wxSizer:add(MainSz, AccountSz, zxw:flags(base)),
@@ -192,7 +193,7 @@ init(Prefs) ->
     _ = wxSizer:add(MainSz, DetailsSz, zxw:flags(base)),
     _ = wxSizer:add(MainSz, ActionsSz, zxw:flags(base)),
     _ = wxSizer:add(MainSz, Refresh, zxw:flags(base)),
-    _ = wxSizer:add(MainSz, HistoryWin, zxw:flags(wide)),
+%   _ = wxSizer:add(MainSz, HistoryWin, zxw:flags(wide)),
     ok = wxFrame:setSizer(Frame, MainSz),
     ok = wxSizer:layout(MainSz),
 
@@ -207,8 +208,8 @@ init(Prefs) ->
                picker   = Picker,
                id       = ID_W,
                balance  = Balance,
-               buttons  = Buttons,
-               history  = #h{win = HistoryWin, sz = HistorySz}},
+               buttons  = Buttons},
+%              history  = #h{win = HistoryWin, sz = HistorySz}},
     {Frame, State}.
 
 

src/gd_jt.erl

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

src/gd_sophia_editor.erl

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

src/gd_sup.erl

@@ -12,7 +12,7 @@
 %%% @end
 
 -module(gd_sup).
--vsn("0.5.5").
+-vsn("0.5.6").
 -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.5.5").
+-vsn("0.5.6").
 -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.5.5").
+-vsn("0.5.6").
 -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.5.5").
+-vsn("0.5.6").
 -author("Craig Everett <zxq9@zxq9.com>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").

src/gd_v_wallman.erl

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

zomp.meta

@@ -1,10 +1,10 @@
 {name,"GajuDesk"}.
 {type,gui}.
 {modules,[]}.
+{author,"Craig Everett"}.
 {prefix,"gd"}.
 {desc,"A desktop client for the Gajumaru network of blockchain networks"}.
-{author,"Craig Everett"}.
-{package_id,{"otpr","gajudesk",{0,5,5}}}.
+{package_id,{"otpr","gajudesk",{0,5,6}}}.
 {deps,[{"otpr","hakuzaru",{0,6,1}},
        {"otpr","eblake2",{1,0,1}},
        {"otpr","base58",{0,1,1}},