From 58a58c693f0c90b4786e541da683cf461c32daff Mon Sep 17 00:00:00 2001 From: Craig Everett Date: Fri, 25 Apr 2025 22:52:25 +0900 Subject: [PATCH] Minor usability tweaks --- ebin/gajudesk.app | 2 +- src/gajudesk.erl | 2 +- src/gd_con.erl | 8 +++++--- src/gd_grids.erl | 2 +- src/gd_gui.erl | 17 +++++++++-------- src/gd_jt.erl | 2 +- src/gd_sophia_editor.erl | 2 +- src/gd_sup.erl | 2 +- src/gd_v.erl | 2 +- src/gd_v_devman.erl | 2 +- src/gd_v_netman.erl | 2 +- src/gd_v_wallman.erl | 2 +- zomp.meta | 4 ++-- 13 files changed, 26 insertions(+), 23 deletions(-) diff --git a/ebin/gajudesk.app b/ebin/gajudesk.app index 0dfe980..5a8b222 100644 --- a/ebin/gajudesk.app +++ b/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,[]}}]}. diff --git a/src/gajudesk.erl b/src/gajudesk.erl index 2a30c55..1fc1fb0 100644 --- a/src/gajudesk.erl +++ b/src/gajudesk.erl @@ -3,7 +3,7 @@ %%% @end -module(gajudesk). --vsn("0.5.5"). +-vsn("0.5.6"). -behavior(application). -author("Craig Everett "). -copyright("QPQ AG "). diff --git a/src/gd_con.erl b/src/gd_con.erl index 57307c3..4d16b4d 100644 --- a/src/gd_con.erl +++ b/src/gd_con.erl @@ -3,7 +3,7 @@ %%% @end -module(gd_con). --vsn("0.5.5"). +-vsn("0.5.6"). -author("Craig Everett "). -copyright("QPQ AG "). -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. diff --git a/src/gd_grids.erl b/src/gd_grids.erl index f45bfaa..2d6e5c9 100644 --- a/src/gd_grids.erl +++ b/src/gd_grids.erl @@ -37,7 +37,7 @@ %%% @end -module(gd_grids). --vsn("0.5.5"). +-vsn("0.5.6"). -author("Craig Everett "). -copyright("QPQ AG "). -license("GPL-3.0-or-later"). diff --git a/src/gd_gui.erl b/src/gd_gui.erl index 1190712..fb6cd94 100644 --- a/src/gd_gui.erl +++ b/src/gd_gui.erl @@ -3,7 +3,7 @@ %%% @end -module(gd_gui). --vsn("0.5.5"). +-vsn("0.5.6"). -author("Craig Everett "). -copyright("QPQ AG "). -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}. diff --git a/src/gd_jt.erl b/src/gd_jt.erl index f63e423..99e7e61 100644 --- a/src/gd_jt.erl +++ b/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]). diff --git a/src/gd_sophia_editor.erl b/src/gd_sophia_editor.erl index d8b9eea..dccb793 100644 --- a/src/gd_sophia_editor.erl +++ b/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]). diff --git a/src/gd_sup.erl b/src/gd_sup.erl index 917214f..d6b3db4 100644 --- a/src/gd_sup.erl +++ b/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 "). -copyright("QPQ AG "). diff --git a/src/gd_v.erl b/src/gd_v.erl index fcef748..9621803 100644 --- a/src/gd_v.erl +++ b/src/gd_v.erl @@ -1,5 +1,5 @@ -module(gd_v). --vsn("0.5.5"). +-vsn("0.5.6"). -author("Craig Everett "). -copyright("QPQ AG "). -license("GPL-3.0-or-later"). diff --git a/src/gd_v_devman.erl b/src/gd_v_devman.erl index 45c4f22..6c9f87a 100644 --- a/src/gd_v_devman.erl +++ b/src/gd_v_devman.erl @@ -1,5 +1,5 @@ -module(gd_v_devman). --vsn("0.5.5"). +-vsn("0.5.6"). -author("Craig Everett "). -copyright("QPQ AG "). -license("GPL-3.0-or-later"). diff --git a/src/gd_v_netman.erl b/src/gd_v_netman.erl index bd15248..7acae44 100644 --- a/src/gd_v_netman.erl +++ b/src/gd_v_netman.erl @@ -1,5 +1,5 @@ -module(gd_v_netman). --vsn("0.5.5"). +-vsn("0.5.6"). -author("Craig Everett "). -copyright("QPQ AG "). -license("GPL-3.0-or-later"). diff --git a/src/gd_v_wallman.erl b/src/gd_v_wallman.erl index 6cd7aca..7289785 100644 --- a/src/gd_v_wallman.erl +++ b/src/gd_v_wallman.erl @@ -1,5 +1,5 @@ -module(gd_v_wallman). --vsn("0.5.5"). +-vsn("0.5.6"). -author("Craig Everett "). -copyright("QPQ AG "). -license("GPL-3.0-or-later"). diff --git a/zomp.meta b/zomp.meta index 5a171c4..9fcd49a 100644 --- a/zomp.meta +++ b/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}},