Add clipboard and default browser interaction

src/clutch.erl

@@ -6,7 +6,7 @@
 -vsn("0.1.0").
 -behavior(application).
 -author("Craig Everett <craigeverett@qpq.swiss>").
--copyright("Craig Everett <craigeverett@qpq.swiss>").
+-copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").
 
 -export([ts/0]).

src/gmc_con.erl

@@ -7,7 +7,7 @@
 -module(gmc_con).
 -vsn("0.1.0").
 -author("Craig Everett <craigeverett@qpq.swiss>").
--copyright("Craig Everett <craigeverett@qpq.swiss>").
+-copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").
 
 -behavior(gen_server).
@@ -250,6 +250,8 @@ code_change(_, State, _) ->
     {ok, State}.
 
 
+terminate(normal, _) ->
+    zx:stop();
 terminate(Reason, State) ->
     ok = log(info, "Reason: ~tp, State: ~tp", [Reason, State]),
     zx:stop().

src/gmc_gui.erl

@@ -9,7 +9,7 @@
 -module(gmc_gui).
 -vsn("0.1.0").
 -author("Craig Everett <craigeverett@qpq.swiss>").
--copyright("Craig Everett <craigeverett@qpq.swiss>").
+-copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").
 
 -behavior(wx_object).
@@ -96,6 +96,10 @@ init(Prefs) ->
     _ = wxSizer:add(BalanceSz, BalanceL, zxw:flags(base)),
     _ = wxSizer:add(BalanceSz, BalanceT, zxw:flags(wide)),
 
+    NumbersSz = wxBoxSizer:new(?wxVERTICAL),
+    _ = wxSizer:add(NumbersSz, ID_Sz, zxw:flags(wide)),
+    _ = wxSizer:add(NumbersSz, BalanceSz, zxw:flags(wide)),
+
     ButtonTemplates =
         [{make_key, J("Create")},
          {recover,  J("Recover")},
@@ -105,6 +109,8 @@ init(Prefs) ->
          {send,     J("Send Money")},
          {recv,     J("Receive Money")},
          {grids,    J("GRIDS URL")},
+         {copy,     J("Copy")},
+         {www,      J("WWW")},
          {refresh,  J("Refresh")}],
 
     MakeButton =
@@ -116,9 +122,16 @@ init(Prefs) ->
     Buttons = lists:map(MakeButton, ButtonTemplates),
 
     AccountSz = wxBoxSizer:new(?wxHORIZONTAL),
+    DetailsSz = wxBoxSizer:new(?wxHORIZONTAL),
     ActionsSz = wxBoxSizer:new(?wxHORIZONTAL),
     HistorySz = wxBoxSizer:new(?wxVERTICAL),
 
+    #w{wx = CopyBn} = lists:keyfind(copy, #w.name, Buttons),
+    #w{wx = WWW_Bn} = lists:keyfind(www,  #w.name, Buttons),
+    _ = wxSizer:add(DetailsSz, NumbersSz, zxw:flags(wide)),
+    _ = wxSizer:add(DetailsSz, CopyBn, zxw:flags(base)),
+    _ = wxSizer:add(DetailsSz, WWW_Bn, zxw:flags(base)),
+
     #w{wx = MakeBn} = lists:keyfind(make_key, #w.name, Buttons),
     #w{wx = RecoBn} = lists:keyfind(recover,  #w.name, Buttons),
     #w{wx = MnemBn} = lists:keyfind(mnemonic, #w.name, Buttons),
@@ -139,12 +152,10 @@ init(Prefs) ->
 
     #w{wx = Refresh} = lists:keyfind(refresh, #w.name, Buttons),
     _ = wxSizer:add(HistorySz, Refresh, zxw:flags(base)),
-    
 
     _ = wxSizer:add(MainSz, AccountSz, zxw:flags(base)),
     _ = wxSizer:add(MainSz, Picker, zxw:flags(wide)),
-    _ = wxSizer:add(MainSz, ID_Sz, zxw:flags(base)),
-    _ = wxSizer:add(MainSz, BalanceSz, zxw:flags(base)),
+    _ = wxSizer:add(MainSz, DetailsSz, zxw:flags(base)),
     _ = wxSizer:add(MainSz, ActionsSz, zxw:flags(base)),
     _ = wxSizer:add(MainSz, HistorySz, [{proportion, 3}, {flag, ?wxEXPAND}]),
     ok = wxFrame:setSizer(Frame, MainSz),
@@ -267,6 +278,8 @@ handle_event(#wx{event = #wxCommand{type = command_button_clicked},
             #w{name = mnemonic} -> show_mnemonic(State);
             #w{name = rename}   -> rename_key(State);
             #w{name = drop_key} -> drop_key(State);
+            #w{name = copy}     -> copy(State);
+            #w{name = www}      -> www(State);
             #w{name = grids}    -> grids_dialogue(State);
             #w{name = Name}     -> handle_button(Name, State);
             false               -> State
@@ -302,6 +315,8 @@ code_change(_, State, _) ->
     {ok, State}.
 
 
+terminate(wx_deleted, _) ->
+    wx:destroy();
 terminate(Reason, State) ->
     ok = log(info, "Reason: ~tp, State: ~tp", [Reason, State]),
     wx:destroy().
@@ -516,6 +531,38 @@ drop_key(Selected, State = #s{frame = Frame, j = J, accounts = Accounts}) ->
     State.
 
 
+copy(State = #s{id = {_, #w{wx = ID_T}}}) ->
+    String = wxStaticText:getLabel(ID_T),
+    CB = wxClipboard:get(),
+    ok =
+        case wxClipboard:open(CB) of
+            true ->
+                Text = wxTextDataObject:new([{text, String}]),
+                case wxClipboard:setData(CB, Text) of
+                    true  ->
+                        R = wxClipboard:flush(CB),
+                        log(info, "Address copied to system clipboard. Flushed: ~p", [R]);
+                    false ->
+                        log(info, "Failed to copy to clipboard")
+                end,
+                ok = wxClipboard:close(CB);
+            false ->
+                log(info, "Failed to acquire the clipboard.")
+        end,
+    State.
+
+
+www(State = #s{id = {_, #w{wx = ID_T}}}) ->
+    String = wxStaticText:getLabel(ID_T),
+    URL = unicode:characters_to_list(["https://aescan.io/accounts/", String]),
+    ok =
+        case wx_misc:launchDefaultBrowser(URL) of
+            true  -> log(info, "Opened in browser: ~ts", [URL]);
+            false -> log(info, "Failed to open browser: ~ts", [URL])
+        end,
+    State.
+
+
 grids_dialogue(State = #s{frame = Frame, j = J}) ->
     tell("Handle GRIDS URL"),
 %   ok =

src/gmc_sup.erl

@@ -15,7 +15,7 @@
 -vsn("0.1.0").
 -behaviour(supervisor).
 -author("Craig Everett <craigeverett@qpq.swiss>").
--copyright("Craig Everett <craigeverett@qpq.swiss>").
+-copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").
 
 -export([start_link/0]).