WIP

ebin/gajudesk.app

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

include/gd.hrl

@@ -1,7 +1,7 @@
 %% Node, Chain and Net represent the physical network.
 
 -record(node,
-        {ip       = "groot.testnet.gajumaru.io" :: string() | inet:ip_address(),
+        {ip       = {161,97,102,143} :: string() | inet:ip_address(),
          external = 3013             :: none | inet:port_number(),   % 3013
          internal = none             :: none | inet:port_number(),   % 3113
          rosetta  = none             :: none | inet:port_number(),   % 8080
@@ -10,13 +10,13 @@
 
 
 -record(chain,
-        {id    = <<"groot.testnet">> :: binary(),
+        {id    = <<"groot.devnet">> :: binary(),
          coins = ["gaju"]           :: [string()],
          nodes = [#node{}]          :: [#node{}]}).
 
 
 -record(net,
-        {id     = <<"testnet">> :: binary(),
+        {id     = <<"devnet">> :: binary(),
          chains = [#chain{}]   :: [#chain{}]}).
 
 
@@ -30,7 +30,7 @@
 
 -record(coin,
         {id   = "gaju"             :: string(),
-         mint = <<"groot.testnet">> :: binary(),
+         mint = <<"groot.devnet">> :: binary(),
          acs  = [#ac{}]            :: [#ac{}]}).
 
 
@@ -39,7 +39,7 @@
 -record(balance,
         {coin  = "gaju"                    :: string(),
          total = 0                         :: non_neg_integer(),
-         dist  = [{<<"groot.testnet">>, 0}] :: [{Chain :: binary(), non_neg_integer()}]}).
+         dist  = [{<<"groot.devnet">>, 0}] :: [{Chain :: binary(), non_neg_integer()}]}).
 
 
 -record(poa,
@@ -81,7 +81,7 @@
          name     = ""                 :: string(),
          poas     = []                 :: [#poa{}],
          keys     = []                 :: [#key{}],
-         chain_id = <<"groot.testnet">> :: binary(),
+         chain_id = <<"groot.devnet">> :: binary(),
          endpoint = #node{}            :: #node{},
          nets     = [#net{}]           :: [#net{}],
          txs      = #{}                :: gajudesk:key_txs()}).

include/gdl.hrl

@@ -1,5 +0,0 @@
-% Widgets
--record(w,
-        {name = none :: string() | atom() | {FunName :: binary(), call | dryr},
-         id   = 0    :: integer(),
-         wx   = none :: none | wx:wx_object()}).

src/gajudesk.erl

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

src/gd_grids.erl

@@ -37,7 +37,7 @@
 %%% @end
 
 -module(gd_grids).
--vsn("0.9.0").
+-vsn("0.5.4").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").
@@ -59,7 +59,7 @@
          Reason      :: bad_url.
 
 parse(URL) ->
-    case uri_string:parse(string:trim(URL)) of
+    case uri_string:parse(URL) of
         #{path := "/1/s/" ++ R, host := H, query := Q, scheme := "grids"} ->
             spend(R, chain, list_to_binary(H), Q);
         #{path := "/1/s/" ++ R, host := H, query := Q, scheme := "grid"} ->

src/gd_gui.erl

@@ -3,7 +3,7 @@
 %%% @end
 
 -module(gd_gui).
--vsn("0.9.0").
+-vsn("0.5.4").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").
@@ -17,9 +17,13 @@
          handle_call/3, handle_cast/2, handle_info/2, handle_event/2]).
 -include("$zx_include/zx_logger.hrl").
 -include("gd.hrl").
--include("gdl.hrl").
 
 
+-record(w,
+        {name = none :: atom(),
+         id   = 0    :: integer(),
+         wx   = none :: none | wx:wx_object()}).
+
 -record(h,
         {win = none :: none | wx:wx_object(),
          sz  = none :: none | wx:wx_object()}).
@@ -28,13 +32,13 @@
         {wx       = none         :: none | wx:wx_object(),
          frame    = none         :: none | wx:wx_object(),
          sizer    = none         :: none | wx:wx_object(),
-         lang     = en_US        :: en_US | ja_JP,
+         lang     = en           :: en | jp,
          j        = none         :: none | fun(),
          prefs    = #{}          :: #{atom() := term()},
          accounts = []           :: [gajudesk:poa()],
          picker   = none         :: none | wx:wx_object(),
          id       = {#w{}, #w{}} :: labeled(),
-         balance  = #w{}         :: #w{},
+         balance  = {#w{}, #w{}} :: labeled(),
          buttons  = []           :: [widget()],
          history  = #h{}         :: #h{}}).
 
@@ -80,32 +84,26 @@ start_link(Accounts) ->
 
 init(Prefs) ->
     ok = log(info, "GUI starting..."),
-    Lang = maps:get(lang, Prefs, en_US),
+    Lang = maps:get(lang, Prefs, en_us),
     Trans = gd_jt:read_translations(?MODULE),
     J = gd_jt:j(Lang, Trans),
 
-    AppName = J("GajuDesk"),
-    VSN = proplists:get_value(vsn, ?MODULE:module_info(attributes)),
     Wx = wx:new(),
-    Frame = wxFrame:new(Wx, ?wxID_ANY, AppName ++ " v" ++ VSN),
+    Frame = wxFrame:new(Wx, ?wxID_ANY, J("GajuDesk")),
-    Panel = wxWindow:new(Frame, ?wxID_ANY),
-    TopSz = wxBoxSizer:new(?wxVERTICAL),
-    _ = wxBoxSizer:add(TopSz, Panel, zxw:flags(wide)),
     MainSz = wxBoxSizer:new(?wxVERTICAL),
-    Picker = wxListBox:new(Panel, ?wxID_ANY, [{style, ?wxLC_SINGLE_SEL}]),
+    Picker = wxListBox:new(Frame, ?wxID_ANY, [{style, ?wxLC_SINGLE_SEL}]),
 
-    WallB  = wxButton:new(Panel, ?wxID_ANY, [{label, "[none]"}, {style, ?wxBORDER_NONE}]),
+    WallB  = wxButton:new(Frame, ?wxID_ANY, [{label, "[none]"}, {style, ?wxBORDER_NONE}]),
     WallW  = #w{name = wallet, id = wxButton:getId(WallB),  wx = WallB},
-    ChainB = wxButton:new(Panel, ?wxID_ANY, [{label, "[ChainID]"}, {style, ?wxBORDER_NONE}]),
+    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(Panel, ?wxID_ANY, [{label, "[Node]"}, {style, ?wxBORDER_NONE}]),
+    NodeB  = wxButton:new(Frame, ?wxID_ANY, [{label, "[Node]"}, {style, ?wxBORDER_NONE}]),
     NodeW  = #w{name = node,   id = wxButton:getId(NodeB),  wx = NodeB},
-    DevB   = wxButton:new(Panel, ?wxID_ANY, [{label, "𝑓 () →"}]),
+    DevB   = wxButton:new(Frame, ?wxID_ANY, [{label, "𝑓 () →"}]),
     DevW   = #w{name = dev,    id = wxButton:getId(DevB),   wx = DevB},
 
-    ID_L = wxStaticText:new(Panel, ?wxID_ANY, J("Account ID: ")),
+    ID_L = wxStaticText:new(Frame, ?wxID_ANY, J("Account ID: ")),
-    ID_T = wxStaticText:new(Panel, ?wxID_ANY, ""),
+    ID_T = wxStaticText:new(Frame, ?wxID_ANY, ""),
     ID_W =
         {#w{id = wxStaticText:getId(ID_L), wx = ID_L},
          #w{id = wxStaticText:getId(ID_T), wx = ID_T}},
@@ -113,9 +111,13 @@ init(Prefs) ->
     _ = wxSizer:add(ID_Sz, ID_L, zxw:flags(base)),
     _ = wxSizer:add(ID_Sz, ID_T, zxw:flags(wide)),
 
-    BalanceT = wxStaticText:new(Panel, ?wxID_ANY, hz_format:amount(0)),
+    BalanceL = wxStaticText:new(Frame, ?wxID_ANY, "木"),
-    Balance = #w{id = wxStaticText:getId(BalanceT), wx = BalanceT},
+    BalanceT = wxStaticText:new(Frame, ?wxID_ANY, price_to_string(0)),
+    Balance =
+        {#w{id = wxStaticText:getId(BalanceL), wx = BalanceL},
+         #w{id = wxStaticText:getId(BalanceT), wx = BalanceT}},
     BalanceSz = wxBoxSizer:new(?wxHORIZONTAL),
+    _ = wxSizer:add(BalanceSz, BalanceL, zxw:flags(base)),
     _ = wxSizer:add(BalanceSz, BalanceT, zxw:flags(wide)),
 
     NumbersSz = wxBoxSizer:new(?wxVERTICAL),
@@ -129,7 +131,7 @@ init(Prefs) ->
          {rename,   J("Rename")},
          {drop_key, J("Delete")},
          {send,     J("Send Money")},
-%        {recv,     J("Receive Money")},
+         {recv,     J("Receive Money")},
          {grids,    J("GRIDS URL")},
          {copy,     J("Copy")},
          {www,      J("WWW")},
@@ -137,17 +139,11 @@ init(Prefs) ->
 
     MakeButton =
         fun({Name, Label}) ->
-            B = wxButton:new(Panel, ?wxID_ANY, [{label, Label}]),
+            B = wxButton:new(Frame, ?wxID_ANY, [{label, Label}]),
             #w{name = Name, id = wxButton:getId(B), wx = B}
         end,
 
     Buttons = [WallW, ChainW, NodeW, DevW | lists:map(MakeButton, ButtonTemplates)],
-    Disable =
-        fun(Button) ->
-            #w{wx = W} = lists:keyfind(Button, #w.name, Buttons),
-            wxButton:disable(W)
-        end,
-    ok = lists:foreach(Disable, key_buttons()),
 
     ChainSz = wxBoxSizer:new(?wxHORIZONTAL),
     AccountSz = wxBoxSizer:new(?wxHORIZONTAL),
@@ -177,18 +173,18 @@ init(Prefs) ->
     _ = wxSizer:add(AccountSz, DropBn, zxw:flags(wide)),
 
     #w{wx = SendBn} = lists:keyfind(send, #w.name, Buttons),
-%   #w{wx = RecvBn} = lists:keyfind(recv, #w.name, Buttons),
+    #w{wx = RecvBn} = lists:keyfind(recv, #w.name, Buttons),
     #w{wx = GridsBn} = lists:keyfind(grids, #w.name, Buttons),
     _ = wxSizer:add(ActionsSz, SendBn, zxw:flags(wide)),
-%   _ = wxSizer:add(ActionsSz, RecvBn, zxw:flags(wide)),
+    _ = wxSizer:add(ActionsSz, RecvBn, zxw:flags(wide)),
     _ = wxSizer:add(ActionsSz, GridsBn, zxw:flags(wide)),
 
     #w{wx = Refresh} = lists:keyfind(refresh, #w.name, Buttons),
 
-%   HistoryWin = wxScrolledWindow:new(Panel),
+    HistoryWin = wxScrolledWindow:new(Frame),
-%   HistorySz = wxBoxSizer:new(?wxVERTICAL),
+    HistorySz = wxBoxSizer:new(?wxVERTICAL),
-%   ok = wxScrolledWindow:setSizerAndFit(HistoryWin, HistorySz),
+    ok = wxScrolledWindow:setSizerAndFit(HistoryWin, HistorySz),
-%   ok = wxScrolledWindow:setScrollRate(HistoryWin, 5, 5),
+    ok = wxScrolledWindow:setScrollRate(HistoryWin, 5, 5),
 
     _ = wxSizer:add(MainSz, ChainSz, zxw:flags(base)),
     _ = wxSizer:add(MainSz, AccountSz, zxw:flags(base)),
@@ -196,9 +192,8 @@ 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 = wxWindow:setSizer(Panel, MainSz),
+    ok = wxFrame:setSizer(Frame, MainSz),
-    ok = wxFrame:setSizer(Frame, TopSz),
     ok = wxSizer:layout(MainSz),
 
     ok = gd_v:safe_size(Frame, Prefs),
@@ -212,8 +207,8 @@ init(Prefs) ->
                picker   = Picker,
                id       = ID_W,
                balance  = Balance,
-               buttons  = Buttons},
+               buttons  = Buttons,
-%              history  = #h{win = HistoryWin, sz = HistorySz}},
+               history  = #h{win = HistoryWin, sz = HistorySz}},
     {Frame, State}.
 
 
@@ -298,7 +293,7 @@ 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_pk(State);
+            #w{name = copy}     -> copy(State);
             #w{name = www}      -> www(State);
             #w{name = send}     -> spend(State);
             #w{name = grids}    -> grids_dialogue(State);
@@ -333,7 +328,6 @@ handle_event(Event, State) ->
 
 
 handle_troubling(#s{frame = Frame}, Info) ->
-    ok = wxFrame:raise(Frame),
     zxw:show_message(Frame, Info).
 
 
@@ -358,7 +352,6 @@ refresh(State) ->
 
 wallman(State) ->
     ok = gd_con:show_ui(gd_v_wallman),
-    ok = gd_v_wallman:to_front(),
     State.
 
 
@@ -588,7 +581,7 @@ show_mnemonic(Selected, State = #s{frame = Frame, j = J, accounts = Accounts}) -
     ok =
         case wxDialog:showModal(Dialog) of
             ?wxID_CANCEL -> ok;
-            ?wxID_OK     -> gd_lib:copy_to_clipboard(Mnemonic)
+            ?wxID_OK     -> copy_to_clipboard(Mnemonic)
         end,
     ok = wxDialog:destroy(Dialog),
     State.
@@ -604,15 +597,33 @@ rename_key(State = #s{picker = Picker}) ->
 
 rename_key(Selected, State = #s{frame = Frame, j = J, accounts = Accounts}) ->
     #poa{id = ID, name = Name} = lists:nth(Selected, Accounts),
-    Title = J("Rename Key"),
+    Dialog = wxDialog:new(Frame, ?wxID_ANY, J("New Key")),
-    Label = J("New Name"),
+    Sizer = wxBoxSizer:new(?wxVERTICAL),
-    Options = [{label, Label}, {init, Name}, selected, empty],
+    NameSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Name (Optional)")}]),
+    NameTx = wxTextCtrl:new(Dialog, ?wxID_ANY),
+    ok = wxTextCtrl:setValue(NameTx, Name),
+    _ = wxStaticBoxSizer:add(NameSz, NameTx, zxw:flags(base)),
+    ButtSz = wxBoxSizer:new(?wxHORIZONTAL),
+    Affirm = wxButton:new(Dialog, ?wxID_OK),
+    Cancel = wxButton:new(Dialog, ?wxID_CANCEL),
+    _ = wxBoxSizer:add(ButtSz, Affirm, zxw:flags(wide)),
+    _ = wxBoxSizer:add(ButtSz, Cancel, zxw:flags(wide)),
+    _ = wxBoxSizer:add(Sizer, NameSz, zxw:flags(base)),
+    _ = wxBoxSizer:add(Sizer, ButtSz, zxw:flags(wide)),
+    ok = wxDialog:setSizer(Dialog, Sizer),
+    ok = wxBoxSizer:layout(Sizer),
+    ok = wxDialog:setSize(Dialog, {500, 130}),
+    ok = wxDialog:center(Dialog),
+    ok = wxStyledTextCtrl:setFocus(NameTx),
     ok =
-        case zxw_modal_text:show(Frame, Title, Options) of
+        case wxDialog:showModal(Dialog) of
-            {ok, ""}      -> gd_con:rename_key(ID, binary_to_list(ID));
+            ?wxID_OK ->
-            {ok, NewName} -> gd_con:rename_key(ID, NewName);
+                NewName = wxTextCtrl:getValue(NameTx),
-            cancel        -> ok
+                gd_con:rename_key(ID, NewName);
+            ?wxID_CANCEL ->
+                ok
         end,
+    ok = wxDialog:destroy(Dialog),
     State.
 
 
@@ -656,33 +667,38 @@ drop_key(Selected, State = #s{frame = Frame, j = J, accounts = Accounts, prefs =
     State#s{prefs = NewPrefs}.
 
 
-copy_pk(State = #s{id = {_, #w{wx = ID_T}}}) ->
+copy(State = #s{id = {_, #w{wx = ID_T}}}) ->
     String = wxStaticText:getLabel(ID_T),
-    ok = gd_lib:copy_to_clipboard(String),
+    ok = copy_to_clipboard(String),
     State.
 
-
+copy_to_clipboard(String) ->
-www(State = #s{id = {_, #w{wx = ID_T}}, j = J}) ->
+    CB = wxClipboard:get(),
-    case wxStaticText:getLabel(ID_T) of
+    case wxClipboard:open(CB) of
-        "" ->
+        true ->
-            ok = handle_troubling(State, J("No key selected.")),
+            Text = wxTextDataObject:new([{text, String}]),
-            State;
+            case wxClipboard:setData(CB, Text) of
-        ID ->
+                true  ->
-            ok = www2(State, ID),
+                    R = wxClipboard:flush(CB),
-            State
+                    log(info, "String 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.
 
-www2(State = #s{j = J}, AccountID) ->
+
-    case gd_con:network() of
+www(State = #s{id = {_, #w{wx = ID_T}}}) ->
-        {ok, ChainID} ->
+    String = wxStaticText:getLabel(ID_T),
-            URL = unicode:characters_to_list(["https://", ChainID, ".gajumaru.io/account/", AccountID]),
+    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;
+        end,
-        none ->
+    State.
-            handle_troubling(State, J("No chain assigned."))
-    end.
 
 
 spend(State = #s{accounts = []}) ->
@@ -705,29 +721,129 @@ spend(Selected, State = #s{accounts = Accounts}) ->
     end.
 
 spend2(#poa{id = ID, name = Name}, Nonce, Height, State = #s{frame = Frame, j = J}) ->
+    Dialog = wxDialog:new(Frame, ?wxID_ANY, J("Transfer"), [{size, {500, 400}}]),
+    Sizer = wxBoxSizer:new(?wxVERTICAL),
+
     Account = [Name, " (", ID, ")"],
-    Args    = {Account, J},
+    FromTx = wxStaticText:new(Dialog, ?wxID_ANY, Account),
+    FromSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("From")}]),
+    _ = wxStaticBoxSizer:add(FromSz, FromTx, zxw:flags(wide)),
+
+    ToTx = wxTextCtrl:new(Dialog, ?wxID_ANY),
+    ToSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("To")}]),
+    _ = wxStaticBoxSizer:add(ToSz, ToTx, zxw:flags(wide)),
+
+    AmtTx = wxTextCtrl:new(Dialog, ?wxID_ANY),
+    AmtSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Amount")}]),
+    _ = wxStaticBoxSizer:add(AmtSz, AmtTx, zxw:flags(wide)),
+
+    DataTx = wxTextCtrl:new(Dialog, ?wxID_ANY, [{style, ?wxTE_MULTILINE}]),
+    DataSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Message (optional)")}]),
+    _ = wxStaticBoxSizer:add(DataSz, DataTx, zxw:flags(wide)),
+
+    Style = [{style, ?wxSL_HORIZONTAL bor ?wxSL_LABELS}],
+
+    TTL_Sl = wxSlider:new(Dialog, ?wxID_ANY, 100, 10, 1000, Style),
+    TTL_Sz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("TTL")}]),
+    _ = wxStaticBoxSizer:add(TTL_Sz, TTL_Sl, zxw:flags(wide)),
+
+    Min = hz:min_gas_price(),
+    Max = Min * 2,
+    GasSl = wxSlider:new(Dialog, ?wxID_ANY, Min, Min, Max, Style),
+    GasSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Gas Price")}]),
+    _ = wxStaticBoxSizer:add(GasSz, GasSl, zxw:flags(wide)),
+
+    ButtSz = wxBoxSizer:new(?wxHORIZONTAL),
+    Affirm = wxButton:new(Dialog, ?wxID_OK),
+    Cancel = wxButton:new(Dialog, ?wxID_CANCEL),
+    _ = wxBoxSizer:add(ButtSz, Affirm, zxw:flags(wide)),
+    _ = wxBoxSizer:add(ButtSz, Cancel, zxw:flags(wide)),
+
+    _ = wxBoxSizer:add(Sizer, FromSz, zxw:flags(base)),
+    _ = wxBoxSizer:add(Sizer, ToSz, zxw:flags(base)),
+    _ = wxBoxSizer:add(Sizer, AmtSz, zxw:flags(base)),
+    _ = wxBoxSizer:add(Sizer, DataSz, zxw:flags(wide)),
+    _ = wxBoxSizer:add(Sizer, TTL_Sz, zxw:flags(wide)),
+    _ = wxBoxSizer:add(Sizer, GasSz, zxw:flags(base)),
+    _ = wxBoxSizer:add(Sizer, ButtSz, zxw:flags(base)),
+    ok = wxDialog:setSizer(Dialog, Sizer),
+    ok = wxBoxSizer:layout(Sizer),
+    ok = wxFrame:setSize(Dialog, {500, 450}),
+    ok = wxFrame:center(Dialog),
     ok =
-        case gd_m_spend:show(Frame, Args) of
+        case wxDialog:showModal(Dialog) of
-            {ok, Partial = #spend_tx{ttl = TTL}} ->
+            ?wxID_OK ->
                 TX =
-                    Partial#spend_tx{sender_id = ID,
+                    #spend_tx{sender_id    = ID,
+                              recipient_id = wxTextCtrl:getValue(ToTx),
+                              amount       = wxTextCtrl:getValue(AmtTx),
+                              gas_price    = wxSlider:getValue(GasSl),
                               gas          = 20000,
-                                     ttl       = Height + TTL,
+                              ttl          = Height + wxSlider:getValue(TTL_Sl),
-                                     nonce     = Nonce},
+                              nonce        = Nonce,
-                gd_con:spend(TX);
+                              payload      = wxTextCtrl:getValue(DataTx)},
-            cancel ->
+                clean_spend(TX);
+            ?wxID_CANCEL ->
                 ok
         end,
+    ok = wxDialog:destroy(Dialog),
     State.
 
+clean_spend(#spend_tx{recipient_id = ""}) ->
+    ok;
+clean_spend( TX = #spend_tx{amount = S}) when is_list(S) ->
+    case string_to_price(S) of
+        {ok, Amount} -> clean_spend(TX#spend_tx{amount = Amount});
+        {error, _}   -> ok
+    end;
+clean_spend(TX = #spend_tx{gas_price = S}) when is_list(S) ->
+    case is_int(S) of
+        true  -> clean_spend(TX#spend_tx{gas_price = list_to_integer(S)});
+        false -> ok
+    end;
+clean_spend(TX = #spend_tx{gas = S}) when is_list(S) ->
+    case is_int(S) of
+        true  -> clean_spend(TX#spend_tx{gas = list_to_integer(S)});
+        false -> ok
+    end;
+clean_spend(TX = #spend_tx{payload = S}) when is_list(S) ->
+    clean_spend(TX#spend_tx{payload = list_to_binary(S)});
+clean_spend(TX) ->
+    gd_con:spend(TX).
+
+
+is_int(S) ->
+    lists:all(fun(C) -> $0 =< C andalso C =< $9 end, S).
+
 
 grids_dialogue(State = #s{frame = Frame, j = J}) ->
-    Title = J("GRIDS URL"),
+    Dialog = wxDialog:new(Frame, ?wxID_ANY, J("GRIDS URL")),
+    Sizer = wxBoxSizer:new(?wxVERTICAL),
+    Label = J("GRIDS URL"),
+    URL_Sz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J(Label)}]),
+    URL_Tx = wxTextCtrl:new(Dialog, ?wxID_ANY),
+    _ = wxStaticBoxSizer:add(URL_Sz, URL_Tx, zxw:flags(wide)),
+    ButtSz = wxBoxSizer:new(?wxHORIZONTAL),
+    Affirm = wxButton:new(Dialog, ?wxID_OK),
+    Cancel = wxButton:new(Dialog, ?wxID_CANCEL),
+    _ = wxBoxSizer:add(ButtSz, Affirm, zxw:flags(wide)),
+    _ = wxBoxSizer:add(ButtSz, Cancel, zxw:flags(wide)),
+    _ = wxBoxSizer:add(Sizer, URL_Sz, zxw:flags(base)),
+    _ = wxBoxSizer:add(Sizer, ButtSz, zxw:flags(wide)),
+    ok = wxDialog:setSizer(Dialog, Sizer),
+    ok = wxBoxSizer:layout(Sizer),
+    ok = wxDialog:setSize(Dialog, {500, 130}),
+    ok = wxDialog:center(Dialog),
+    ok = wxStyledTextCtrl:setFocus(URL_Tx),
     ok =
-        case zxw_modal_text:show(Frame, Title) of
+        case wxDialog:showModal(Dialog) of
-            {ok, String} -> gd_con:grids(String);
+            ?wxID_OK ->
-            cancel       -> ok
+                case wxTextCtrl:getValue(URL_Tx) of
+                    ""     -> ok;
+                    String -> gd_con:grids(String)
+                end;
+            ?wxID_CANCEL ->
+                ok
         end,
     State.
 
@@ -740,13 +856,13 @@ handle_button(Name, State) ->
 
 do_selection(Selected,
              State = #s{prefs = Prefs, accounts = Accounts,
-                        balance = #w{wx = B}, id = {_, #w{wx = I}}})
+                        balance = {_, #w{wx = B}}, id = {_, #w{wx = I}}})
         when Selected < length(Accounts) ->
     OneBasedIndex = Selected + 1,
     #poa{id = ID, balances = Balances} = lists:nth(OneBasedIndex, Accounts),
     [#balance{total = Pucks}] = Balances,
     ok = wxStaticText:setLabel(I, ID),
-    ok = wxStaticText:setLabel(B, hz_format:amount(Pucks)),
+    ok = wxStaticText:setLabel(B, price_to_string(Pucks)),
     ok = gd_con:selected(OneBasedIndex),
     NewPrefs = maps:put(selected, Selected, Prefs),
     State#s{prefs = NewPrefs};
@@ -773,7 +889,7 @@ do_show(Accounts, State = #s{sizer = Sizer, prefs = Prefs, picker = Picker}) ->
     ok = wxSizer:layout(Sizer),
     NewState.
 
-clear_account(State = #s{balance = #w{wx = B}, id = {_, #w{wx = I}}}) ->
+clear_account(State = #s{balance = {_, #w{wx = B}}, id = {_, #w{wx = I}}}) ->
     ok = wxStaticText:setLabel(I, ""),
     ok = wxStaticText:setLabel(B, ""),
     State.
@@ -781,28 +897,12 @@ clear_account(State = #s{balance = #w{wx = B}, id = {_, #w{wx = I}}}) ->
 
 do_wallet(none, #s{buttons = Buttons}) ->
     #w{wx = WalletB} = lists:keyfind(wallet, #w.name, Buttons),
-    Disable =
-        fun(Button) ->
-            #w{wx = W} = lists:keyfind(Button, #w.name, Buttons),
-            wxButton:disable(W)
-        end,
-    ok = lists:foreach(Disable, key_buttons()),
     ok = wxButton:setLabel(WalletB, "[no wallet]");
 do_wallet(Name, #s{buttons = Buttons}) ->
     #w{wx = WalletB} = lists:keyfind(wallet, #w.name, Buttons),
-    Enable =
-        fun(Button) ->
-            #w{wx = W} = lists:keyfind(Button, #w.name, Buttons),
-            wxButton:enable(W)
-        end,
-    ok = lists:foreach(Enable, key_buttons()),
     ok = wxButton:setLabel(WalletB, Name).
 
 
-key_buttons() ->
-    [make_key, recover, mnemonic, rename, drop_key].
-
-
 do_chain(none, none, #s{buttons = Buttons}) ->
     #w{wx = ChainB} = lists:keyfind(chain, #w.name, Buttons),
     #w{wx = NodeB} = lists:keyfind(node, #w.name, Buttons),
@@ -918,48 +1018,6 @@ do_grids_mess_sig2(Request = #{"grids"     := 1,
             ?wxID_CANCEL -> ok
         end,
     wxDialog:destroy(Dialog);
-do_grids_mess_sig2(Request = #{"grids"     := 1,
-                               "type"      := "binary",
-                               "url"       := URL,
-                               "public_id" := ID,
-                               "payload"   := Base64},
-                   #s{frame = Frame, j = J}) ->
-    Dialog = wxDialog:new(Frame, ?wxID_ANY, J("Binary Data Signature Request")),
-    Sizer = wxBoxSizer:new(?wxVERTICAL),
-    Instruction =
-        J("The server at the URL below is requesting you sign the following binary data."),
-    InstTx = wxStaticText:new(Dialog, ?wxID_ANY, Instruction),
-    AcctSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Signature Account")}]),
-    AcctTx = wxStaticText:new(Dialog, ?wxID_ANY, ID),
-    _ = wxStaticBoxSizer:add(AcctSz, AcctTx, zxw:flags(wide)),
-    URL_Label = J("Originating URL"),
-    URL_Sz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, URL_Label}]),
-    URL_Tx = wxStaticText:new(Dialog, ?wxID_ANY, URL),
-    _ = wxStaticBoxSizer:add(URL_Sz, URL_Tx, zxw:flags(wide)),
-    MessSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Base-64 Data")}]),
-    MessStyle = ?wxTE_MULTILINE bor ?wxTE_READONLY,
-    MessTx = wxTextCtrl:new(Dialog, ?wxID_ANY, [{value, Base64}, {style, MessStyle}]),
-    _ = wxStaticBoxSizer:add(MessSz, MessTx, zxw:flags(wide)),
-    ButtSz = wxBoxSizer:new(?wxHORIZONTAL),
-    Affirm = wxButton:new(Dialog, ?wxID_OK),
-    Cancel = wxButton:new(Dialog, ?wxID_CANCEL),
-    _ = wxBoxSizer:add(ButtSz, Affirm, zxw:flags(wide)),
-    _ = wxBoxSizer:add(ButtSz, Cancel, zxw:flags(wide)),
-    _ = wxBoxSizer:add(Sizer, InstTx, zxw:flags(wide)),
-    _ = wxBoxSizer:add(Sizer, AcctSz, zxw:flags(wide)),
-    _ = wxBoxSizer:add(Sizer, URL_Sz, zxw:flags(wide)),
-    _ = wxBoxSizer:add(Sizer, MessSz, zxw:flags(wide)),
-    _ = wxBoxSizer:add(Sizer, ButtSz, zxw:flags(base)),
-    ok = wxDialog:setSizer(Dialog, Sizer),
-    ok = wxDialog:setSize(Dialog, {500, 500}),
-    ok = wxBoxSizer:layout(Sizer),
-    ok = wxFrame:center(Dialog),
-    ok =
-        case wxDialog:showModal(Dialog) of
-            ?wxID_OK     -> gd_con:sign_binary(Request);
-            ?wxID_CANCEL -> ok
-        end,
-    wxDialog:destroy(Dialog);
 do_grids_mess_sig2(Request = #{"grids"      := 1,
                                "type"       := "tx",
                                "url"        := URL,
@@ -1018,3 +1076,37 @@ do_grids_mess_sig2(Request = #{"grids"      := 1,
     wxDialog:destroy(Dialog);
 do_grids_mess_sig2(BadRequest, _) ->
     tell("Bad request: ~tp", [BadRequest]).
+    
+    
+
+
+%%% Helpers
+
+
+price_to_string(Pucks) ->
+    Gaju = 1_000_000_000_000_000_000,
+    H = integer_to_list(Pucks div Gaju),
+    R = Pucks rem Gaju,
+    case string:strip(lists:flatten(io_lib:format("~18..0w", [R])), right, $0) of
+        [] -> H;
+        T  -> string:join([H, T], ".")
+    end.
+
+string_to_price(String) ->
+    case string:split(String, ".") of
+        [H]    -> join_price(H, "0");
+        [H, T] -> join_price(H, T);
+        _      -> {error, bad_price}
+    end.
+
+join_price(H, T) ->
+    try
+        Parts = [H, string:pad(T, 18, trailing, $0)],
+        Price = list_to_integer(unicode:characters_to_list(Parts)),
+        case Price < 0 of
+            false -> {ok, Price};
+            true  -> {error, negative_price}
+        end
+    catch
+        error:R -> {error, R}
+    end.

src/gd_jt.erl

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

src/gd_key_master.erl

@@ -0,0 +1,164 @@
+%%% @doc
+%%% Key functions go here.
+%%%
+%%% The main reason this is a module of its own is that in the original architecture
+%%% it was a process rather than just a library of functions. Now that it exists, though,
+%%% there is little motivation to cram everything here into the controller process's
+%%% code.
+%%% @end
+
+-module(gd_key_master).
+-vsn("0.5.4").
+
+
+-export([make_key/2, encode/1, decode/1]).
+-export([lcg/1]).
+-include("gd.hrl").
+
+
+make_key("", <<>>) ->
+    Pair = #{public := Public} = ecu_eddsa:sign_keypair(),
+    ID = gmser_api_encoder:encode(account_pubkey, Public),
+    Name = binary_to_list(ID),
+    #key{name = Name, id = ID, pair = Pair};
+make_key("", Seed) ->
+    Pair = #{public := Public} = ecu_eddsa:sign_seed_keypair(Seed),
+    ID = gmser_api_encoder:encode(account_pubkey, Public),
+    Name = binary_to_list(ID),
+    #key{name = Name, id = ID, pair = Pair};
+make_key(Name, <<>>) ->
+    Pair = #{public := Public} = ecu_eddsa:sign_keypair(),
+    ID = gmser_api_encoder:encode(account_pubkey, Public),
+    #key{name = Name, id = ID, pair = Pair};
+make_key(Name, Seed) ->
+    Pair = #{public := Public} = ecu_eddsa:sign_seed_keypair(Seed),
+    ID = gmser_api_encoder:encode(account_pubkey, Public),
+    #key{name = Name, id = ID, pair = Pair}.
+
+
+-spec encode(Secret) -> Phrase
+    when Secret :: binary(),
+         Phrase :: string().
+%% @doc
+%% The encoding and decoding procesures are written to be able to handle any
+%% width of bitstring or binary and a variable size dictionary. The magic numbers
+%% 32, 4096 and 12 have been dropped in because currently these are known, but that
+%% will change in the future if the key size or type changes.
+
+encode(Bin) ->
+    <<Number:(32 * 8)>> = Bin,
+    DictSize = 4096,
+    Words = read_words(),
+%   Width = chunksize(DictSize - 1, 2),
+    Width = 12,
+    Chunks = chunksize(Number, DictSize),
+    Binary = <<Number:(Chunks * Width)>>,
+    encode(Width, Binary, Words).
+
+encode(Width, Bits, Words) ->
+    CheckSum = checksum(Width, Bits),
+    encode(Width, <<CheckSum:Width, Bits/bitstring>>, Words, []).
+
+encode(_, <<>>, _, Acc) ->
+    unicode:characters_to_list(lists:join(" ", lists:reverse(Acc)));
+encode(Width, Bits, Words, Acc) ->
+    <<I:Width, Rest/bitstring>> = Bits,
+    Word = lists:nth(I + 1, Words),
+    encode(Width, Rest, Words, [Word | Acc]).
+
+
+-spec decode(Phrase) -> {ok, Secret} | {error, Reason}
+    when Phrase :: string(),
+         Secret :: binary(),
+         Reason :: bad_phrase | bad_word.
+%% @doc
+%% Reverses the encoded secret string back into its binary representation.
+
+decode(Encoded) ->
+    DictSize = 4096,
+    Words = read_words(),
+    Width = chunksize(DictSize - 1, 2),
+    decode(Width, Words, Encoded).
+
+decode(Width, Words, Encoded) when is_list(Encoded) ->
+    decode(Width, Words, list_to_binary(Encoded));
+decode(Width, Words, Encoded) ->
+    Split = string:lexemes(Encoded, " "),
+    decode(Width, Words, Split, <<>>).
+
+decode(Width, Words, [Word | Rest], Acc) ->
+    case find(Word, Words) of
+        {ok, N} -> decode(Width, Words, Rest, <<Acc/bitstring, N:Width>>);
+        Error   -> Error
+    end;
+decode(Width, _, [], Acc) ->
+    sumcheck(Width, Acc).
+
+
+chunksize(N, C) ->
+    chunksize(N, C, 0).
+
+chunksize(0, _, A) -> A;
+chunksize(N, C, A) -> chunksize(N div C, C, A + 1).
+
+
+read_words() ->
+    Path = filename:join([zx:get_home(), "priv", "words4096.txt"]),
+    {ok, Bin} = file:read_file(Path),
+    string:lexemes(Bin, "\n").
+
+
+find(Word, Words) ->
+    find(Word, Words, 0).
+
+find(Word, [Word | _], N) -> {ok, N};
+find(Word, [_ | Rest], N) -> find(Word, Rest, N + 1);
+find(Word, [], _)         -> {error, {bad_word, Word}}.
+
+
+checksum(Width, Bits) ->
+    checksum(Width, Bits, 0).
+
+checksum(_, <<>>, Sum) ->
+    Sum;
+checksum(Width, Bits, Sum) ->
+    <<N:Width, Rest/bitstring>> = Bits,
+    checksum(Width, Rest, N bxor Sum).
+
+
+sumcheck(Width, Bits) ->
+    <<CheckSum:Width, Binary/bitstring>> = Bits,
+    case checksum(Width, Binary) =:= CheckSum of
+        true ->
+            <<N:(bit_size(Binary))>> = Binary,
+            {ok, <<N:(32 * 8)>>};
+        false ->
+            {error, bad_phrase}
+    end.
+
+
+
+-spec lcg(integer()) -> integer().
+%% A simple PRNG that fits into 32 bits and is easy to implement anywhere (Kotlin).
+%% Specifically, it is a "linear congruential generator" of the Lehmer variety.
+%% The constants used are based on recommendations from Park, Miller and Stockmeyer:
+%% https://www.firstpr.com.au/dsp/rand31/p105-crawford.pdf#page=4
+%%
+%% The input value should be between 1 and 2^31-1.
+%%
+%% The purpose of this PRNG is for password-based dictionary shuffling.
+
+lcg(N) ->
+    M = 16#7FFFFFFF,
+    A = 48271,
+    Q = 44488,  %  M div A
+    R = 3399,   %  M rem A
+    Div = N div Q,
+    Rem = N rem Q,
+    S = Rem * A,
+    T = Div * R,
+    Result = S - T,
+    case Result < 0 of
+        false -> Result;
+        true  -> Result + M
+    end.

src/gd_lib.erl

@@ -1,104 +0,0 @@
-%%% @doc
-%%% GajuDesk Helper Functions
-%%% @end
-
--module(gd_lib).
--vsn("0.9.0").
-
--include_lib("wx/include/wx.hrl").
--export([is_int/1,
-         mono_text/2, mono_text/3, mono_text/4,
-         button/2, button/3,
-         copy_to_clipboard/1]).
-
--include("$zx_include/zx_logger.hrl").
--include("gd.hrl").
--include("gdl.hrl").
-
-
-
--spec is_int(string()) -> boolean().
-%% @doc
-%% A simple boolean check over whether every character in a string is part of an integer value
-%% without the trashy `try .. catch' way.    
-
-is_int(S) ->
-    lists:all(fun(C) -> $0 =< C andalso C =< $9 end, S).
-
-
--spec mono_text(Parent, Name) -> StaticText
-    when Parent     :: wxWindow:wxWindow(),
-         Name       :: term(),
-         StaticText :: #wx{}.
-%% @doc
-%% Creates a blank monospace font static text field.
-%% @equiv mono_text(Parent, Name, "").
-
-mono_text(Parent, Name) ->
-    mono_text(Parent, Name, "").
-
-
--spec mono_text(Parent, Name, Value) -> StaticText
-    when Parent     :: wxWindow:wxWindow(),
-         Name       :: term(),
-         Value      :: string(),
-         StaticText :: #w{}.
-%% @doc
-%% Creats a monospace font static text field with the given value.
-%% This exists so that I don't have to remember the difference between how to create a styled
-%% wxStaticText vs wxTextCtrl (which has to do it in a weird way because it has a much richer
-%% notion of text styling).
-
-mono_text(Parent, Name, Value) ->
-    mono_text(Parent, Name, Value, []).
-
-mono_text(Parent, Name, Value, Options) ->
-    Text = wxTextCtrl:new(Parent, ?wxID_ANY, [{value, Value} | Options]),
-    Font = wxFont:new(10, ?wxFONTFAMILY_TELETYPE, ?wxFONTSTYLE_NORMAL, ?wxFONTWEIGHT_NORMAL),
-    ok =
-        case wxTextCtrl:setFont(Text, Font) of
-            true  -> ok;
-            false -> tell(info, "wxStaticText ~p is already monospace.", [Text])
-        end,
-    #w{name = Name, id = wxTextCtrl:getId(Text), wx = Text}.
-
-
--spec button(Parent, Label) -> Button
-    when Parent :: wxWindow:wxWindow(),
-         Label  :: string(),
-         Button :: #w{}.
-
-button(Parent, Label) ->
-    button(Parent, Label, Label).
-
-
--spec button(Parent, Name, Label) -> Button
-    when Parent :: wxWindow:wxWindow(),
-         Name   :: term(),
-         Label  :: string(),
-         Button :: #wx{}.
-
-button(Parent, Name, Label) ->
-    Button = wxButton:new(Parent, ?wxID_ANY, [{label, Label}]),
-    #w{name = Name, id = wxButton:getId(Button), wx = Button}.
-
-
--spec copy_to_clipboard(String) -> ok
-    when String :: unicode:charlist().
-
-copy_to_clipboard(String) ->
-    CB = wxClipboard:get(),
-    case wxClipboard:open(CB) of
-        true ->
-            Text = wxTextDataObject:new([{text, String}]),
-            case wxClipboard:setData(CB, Text) of
-                true  ->
-                    R = wxClipboard:flush(CB),
-                    log(info, "String 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.

src/gd_m_spend.erl

@@ -1,284 +0,0 @@
-%%% @doc
-%%% A live modal for creating a SpendTX
-%%% @end
-
--module(gd_m_spend).
--vsn("0.9.0").
--author("Craig Everett <zxq9@zxq9.com>").
--copyright("Craig Everett <zxq9@zxq9.com>").
--license("GPL-3.0-or-later").
-
-%-behavior(zxw_modal).
-
--export([show/2]).
--export([init/1, handle_info/2, handle_event/2]).
-
--include_lib("wx/include/wx.hrl").
--include("$zx_include/zx_logger.hrl").
--include("gd.hrl").
-
--record(s,
-        {frame      = none :: none | wx:wx_object(),
-         parent     = none :: none | wx:wx_object(),
-         caller     = none :: none | pid(),
-         j          = j()  :: fun(),
-         to_tx      = none :: none | wx:wx_object(),
-         amount_tx  = none :: none | wx:wx_object(),
-         payload_tx = none :: none | wx:wx_object(),
-         ttl_sl     = none :: none | wx:wx_object(),
-         gas_sl     = none :: none | wx:wx_object(),
-         affirm     = none :: none | wx:wx_object(),
-         cancel     = none :: none | wx:wx_object()}).
-
-j() ->
-    fun(X) -> X end.
-
-
-%%% Interface
-
--spec show(Parent, Args) -> {ok, #spend_tx{}} | cancel
-    when Parent     :: wxFrame:wxFrame(),
-         Args       :: {Account :: iolist(),
-                        Nonce   :: pos_integer(),
-                        Height  :: pos_integer(),
-                        J       :: fun()}.
-
-show(Parent, Args) ->
-    zxw_modal:show(Parent, ?MODULE, Args).
-
-
-
-%% Init
-
-init({Parent, Caller, {Account, J}}) ->
-    Frame = wxFrame:new(Parent, ?wxID_ANY, J("Transfer Gajus")),
-    Panel = wxWindow:new(Frame, ?wxID_ANY),
-    TopSz = wxBoxSizer:new(?wxVERTICAL),
-    _ = wxBoxSizer:add(TopSz, Panel, zxw:flags(wide)),
-    MainSz = wxBoxSizer:new(?wxVERTICAL),
-
-    FromTx = wxStaticText:new(Panel, ?wxID_ANY, Account),
-    FromSz = wxStaticBoxSizer:new(?wxVERTICAL, Panel, [{label, J("From")}]),
-    _ = wxStaticBoxSizer:add(FromSz, FromTx, zxw:flags({wide, 5})),
-    ToTx = wxTextCtrl:new(Panel, ?wxID_ANY),
-    ToSz = wxStaticBoxSizer:new(?wxVERTICAL, Panel, [{label, J("To")}]),
-    _ = wxStaticBoxSizer:add(ToSz, ToTx, zxw:flags({wide, 5})),
-    AmtTx = wxTextCtrl:new(Panel, ?wxID_ANY),
-    AmtSz = wxStaticBoxSizer:new(?wxVERTICAL, Panel, [{label, J("Amount")}]),
-    AmtInSz = wxBoxSizer:new(?wxHORIZONTAL),
-    _ = wxStaticBoxSizer:add(AmtInSz, AmtTx, zxw:flags({wide, 5})),
-    _ = wxStaticBoxSizer:add(AmtSz, AmtInSz, zxw:flags({wide, 5})),
-    PayloadTx = wxTextCtrl:new(Panel, ?wxID_ANY, [{style, ?wxTE_MULTILINE}]),
-    PayloadSz = wxStaticBoxSizer:new(?wxVERTICAL, Panel, [{label, J("Message")}]),
-    _ = wxStaticBoxSizer:add(PayloadSz, PayloadTx, zxw:flags({wide, 5})),
-    Style = [{style, ?wxSL_HORIZONTAL bor ?wxSL_LABELS}],
-    TTL_Sl = wxSlider:new(Panel, ?wxID_ANY, 100, 10, 1000, Style),
-    TTL_Sz = wxStaticBoxSizer:new(?wxVERTICAL, Panel, [{label, J("TTL")}]),
-    _ = wxStaticBoxSizer:add(TTL_Sz, TTL_Sl, zxw:flags({wide, 5})),
-    Min = hz:min_gas_price(),
-    Max = Min * 2,
-    GasSl = wxSlider:new(Panel, ?wxID_ANY, Min, Min, Max, Style),
-    GasSz = wxStaticBoxSizer:new(?wxVERTICAL, Panel, [{label, J("Gas Price")}]),
-    _ = wxStaticBoxSizer:add(GasSz, GasSl, zxw:flags({wide, 5})),
-    ButtSz = wxBoxSizer:new(?wxHORIZONTAL),
-    Affirm = wxButton:new(Panel, ?wxID_ANY, [{label, J("OK")}]),
-    Cancel = wxButton:new(Panel, ?wxID_ANY, [{label, J("Cancel")}]),
-    _ = wxBoxSizer:add(ButtSz, Affirm,    zxw:flags({wide, 5})),
-    _ = wxBoxSizer:add(ButtSz, Cancel,    zxw:flags({wide, 5})),
-    _ = wxBoxSizer:add(MainSz, FromSz,    zxw:flags({base, 5})),
-    _ = wxBoxSizer:add(MainSz, ToSz,      zxw:flags({base, 5})),
-    _ = wxBoxSizer:add(MainSz, AmtSz,     zxw:flags({base, 5})),
-    _ = wxBoxSizer:add(MainSz, PayloadSz, zxw:flags({wide, 5})),
-    _ = wxBoxSizer:add(MainSz, TTL_Sz,    zxw:flags({base, 5})),
-    _ = wxBoxSizer:add(MainSz, GasSz,     zxw:flags({base, 5})),
-    _ = wxBoxSizer:add(MainSz, ButtSz,    zxw:flags({base, 5})),
-    HandleKey = key_handler(ToTx, AmtTx, PayloadTx, TTL_Sl, GasSl, Affirm, Cancel),
-    ok = wxFrame:connect(Frame,        key_down, [{callback, HandleKey}]),
-    ok = wxTextCtrl:connect(ToTx,      key_down, [{callback, HandleKey}]),
-    ok = wxTextCtrl:connect(AmtTx,     key_down, [{callback, HandleKey}]),
-    ok = wxTextCtrl:connect(PayloadTx, key_down, [{callback, HandleKey}]),
-    ok = wxTextCtrl:connect(TTL_Sl,    key_down, [{callback, HandleKey}]),
-    ok = wxTextCtrl:connect(GasSl,     key_down, [{callback, HandleKey}]),
-    ok = wxTextCtrl:connect(Affirm,    key_down, [{callback, HandleKey}]),
-    ok = wxTextCtrl:connect(Cancel,    key_down, [{callback, HandleKey}]),
-    ok = wxFrame:connect(Frame, command_button_clicked),
-    ok = wxFrame:connect(Frame, close_window),
-    ok = wxFrame:setSize(Frame, {500, 650}),
-    ok = wxFrame:center(Frame),
-    ok = wxWindow:setSizer(Panel, MainSz),
-    ok = wxFrame:setSizer(Frame, TopSz),
-    ok = wxBoxSizer:layout(MainSz),
-    ok = wxFrame:centerOnParent(Frame),
-    true = wxFrame:show(Frame),
-    self() ! {focus, to_tx},
-    State =
-        #s{frame   = Frame,  parent    = Parent, caller     = Caller,
-           to_tx   = ToTx,   amount_tx = AmtTx,  payload_tx = PayloadTx,
-           ttl_sl  = TTL_Sl, gas_sl    = GasSl,
-           affirm  = Affirm, cancel    = Cancel},
-    {Frame, State}.
-
-
-key_handler(ToTx, AmtTx, PayloadTx, TTL_Sl, GasSl, Affirm, Cancel) ->
-    Me = self(),
-    ToID     = wxTextCtrl:getId(ToTx),
-    AmtID    = wxTextCtrl:getId(AmtTx),
-    PL_ID    = wxTextCtrl:getId(PayloadTx),
-    TTL_ID   = wxSlider:getId(TTL_Sl),
-    GasID    = wxSlider:getId(GasSl),
-    AffirmID = wxButton:getId(Affirm),
-    CancelID = wxButton:getId(Cancel),
-    fun(#wx{id = ID, event = #wxKey{type = key_down, keyCode = Code}}, KeyPress) ->
-        case {Code, wxKeyEvent:shiftDown(KeyPress)} of
-             {9, false} ->
-                case ID of
-                    ToID     -> Me ! {focus, amount_tx};
-                    AmtID    -> Me ! {focus, payload_tx};
-                    PL_ID    -> Me ! {focus, ttl_sl};
-                    TTL_ID   -> Me ! {focus, gas_sl};
-                    GasID    -> Me ! {focus, affirm};
-                    AffirmID -> Me ! {focus, cancel};
-                    CancelID -> Me ! {focus, to_tx};
-                    _        -> wxEvent:skip(KeyPress)
-                end;
-             {9, true} ->
-                case ID of
-                    ToID     -> Me ! {focus, cancel};
-                    AmtID    -> Me ! {focus, to_tx};
-                    PL_ID    -> Me ! {focus, amount_tx};
-                    TTL_ID   -> Me ! {focus, payload_tx};
-                    GasID    -> Me ! {focus, ttl_sl};
-                    AffirmID -> Me ! {focus, gas_sl};
-                    CancelID -> Me ! {focus, affirm};
-                    _        -> wxEvent:skip(KeyPress)
-                end;
-            {13, _} ->
-                case ID of
-                    ToID     -> Me ! {tab, to_tx};
-                    AmtID    -> Me ! {tab, amount_tx};
-                    PL_ID    -> Me ! {tab, payload_tx};
-                    TTL_ID   -> Me ! {tab, ttl_sl};
-                    GasID    -> Me ! {tab, gas_sl};
-                    AffirmID -> Me ! {enter, affirm};
-                    CancelID -> Me ! {enter, cancel};
-                    _        -> wxEvent:skip(KeyPress)
-                end;
-            {27, _} ->
-                Me ! esc;
-            {_, _} ->
-                wxEvent:skip(KeyPress)
-        end
-    end.
-
-
-
-handle_info({focus, Element}, State) ->
-    ok = focus(Element, State),
-    {noreply, State};
-handle_info({enter, affirm}, State) ->
-    check(State);
-handle_info({enter, cancel}, State) ->
-    cancel(State);
-handle_info(esc, State) ->
-    ok = cancel(State),
-    {noreply, State};
-handle_info(Message, State) ->
-    ok = log(warning, "Message: ~p~nState: ~p~n", [Message, State]),
-    {noreply, State}.
-
-
-handle_event(#wx{event = #wxCommand{type = command_button_clicked}, id = ID},
-             State = #s{affirm = Affirm, cancel = Cancel}) ->
-    AffirmID = wxButton:getId(Affirm),
-    CancelID = wxButton:getId(Cancel),
-    NewState =
-        case ID of
-            AffirmID -> check(State);
-            CancelID -> cancel(State)
-        end,
-    {noreply, NewState};
-handle_event(#wx{event = #wxClose{}}, State) ->
-    NewState = cancel(State),
-    {noreply, NewState};
-handle_event(Event, State) ->
-    ok = log(warning, "Unexpected event ~tp State: ~tp~n", [Event, State]),
-    {noreply, State}.
-
-
-%%% Doers
-
-focus(to_tx,      #s{to_tx = ToTX})           -> wxTextCtrl:setFocus(ToTX);
-focus(amount_tx,  #s{amount_tx = AmountTX})   -> wxTextCtrl:setFocus(AmountTX);
-focus(payload_tx, #s{payload_tx = PayloadTX}) -> wxTextCtrl:setFocus(PayloadTX);
-focus(ttl_sl,     #s{ttl_sl = TTL_SL})        -> wxSlider:setFocus(TTL_SL);
-focus(gas_sl,     #s{gas_sl = GasSL})         -> wxSlider:setFocus(GasSL);
-focus(affirm,     #s{affirm = Affirm})        -> wxButton:setFocus(Affirm);
-focus(cancel,     #s{cancel = Cancel})        -> wxButton:setFocus(Cancel).
-
-
-cancel(#s{frame = Frame, caller = Caller}) ->
-    ok = wxFrame:destroy(Frame),
-    zxw_modal:done(Caller, cancel).
-
-
-check(State =#s{frame  = Frame,  caller    = Caller,   j = J,
-                to_tx  = ToTx,   amount_tx = AmountTx, payload_tx = PayloadTx,
-                ttl_sl = TTL_Sl, gas_sl    = GasSl}) ->
-    DirtyTX =
-        [{recipient_id, wxTextCtrl:getValue(ToTx)},
-         {amount,       wxTextCtrl:getValue(AmountTx)},
-         {gas_price,    wxSlider:getValue(GasSl)},
-         {ttl,          wxSlider:getValue(TTL_Sl)},
-         {payload,      wxTextCtrl:getValue(PayloadTx)}],
-    ok =
-    case clean_spend(DirtyTX, #spend_tx{}, J, []) of
-        {ok, CleanTX} ->
-            ok = wxFrame:destroy(Frame),
-            zxw_modal:done(Caller, {ok, CleanTX});
-        {error, Errors} ->
-            DerpyDerpDerp = form_message(Errors, J),
-            ok = zxw:show_message(Frame, DerpyDerpDerp),
-            State
-    end.
-
-
-% TODO: There should be some suggestive logic around gas prices, both based on how large
-%       the payload and TTL are, but also the ingoing current common gas rate. This will require
-%       a "gas station" sort of analysis app to query, though.
-clean_spend([{recipient_id, ""} | Rest], TX, J, Errors) ->
-    NewErrors = [{recipient_id, J("Recipient field is empty.")} | Errors],
-    clean_spend(Rest, TX, J, NewErrors);
-clean_spend([{recipient_id, Recipient} | Rest], TX, J, Errors) ->
-    clean_spend(Rest, TX#spend_tx{recipient_id = list_to_binary(Recipient)}, J, Errors);
-clean_spend([{amount, ""} | Rest], TX, J, Errors) ->
-    clean_spend(Rest, TX#spend_tx{amount = 0}, J, Errors);
-clean_spend([{amount, S} | Rest], TX, J, Errors) ->
-    {NewTX, NewErrors} =
-        case hz_format:read(S) of
-            {ok, Amount} ->
-                {TX#spend_tx{amount = Amount}, Errors};
-            error ->
-                Derp = J("Amount field is not properly formatted."),
-                {TX, [{amount, Derp} | Errors]}
-        end,
-    clean_spend(Rest, NewTX, J, NewErrors);
-clean_spend([{gas_price, GasPrice} | Rest], TX, J, Errors) ->
-    clean_spend(Rest, TX#spend_tx{gas_price = GasPrice}, J, Errors);
-clean_spend([{ttl, TTL} | Rest], TX, J, Errors) ->
-    clean_spend(Rest, TX#spend_tx{ttl = TTL}, J, Errors);
-clean_spend([{payload, S} | Rest], TX, J, Errors) ->
-    clean_spend(Rest, TX#spend_tx{payload = list_to_binary(S)}, J, Errors);
-clean_spend([], TX, _, []) ->
-    {ok, TX};
-clean_spend([], _, _, Errors) ->
-    {error, Errors}.
-
-
-form_message(Errors, J) ->
-    Header = J("The following errors were encountered:"),
-    unicode:characters_to_list([Header, "\n", assemble(Errors)]).
-
-% TODO: Highlight the fields since we know them.
-assemble([{_, M} | T]) -> [M, "\n" | assemble(T)];
-assemble([])           -> [].
-    

src/gd_m_wallet_importer.erl

@@ -1,184 +0,0 @@
-%%% @doc
-%%% A live modal for importing a wallet.
-%%%
-%%% Interprets [ENTER] as an "OK" button click and [ESC] as a "Cancel" button click.
-%%% @end
-
--module(gd_m_wallet_importer).
--vsn("0.9.0").
--author("Craig Everett <zxq9@zxq9.com>").
--copyright("Craig Everett <zxq9@zxq9.com>").
--license("GPL-3.0-or-later").
-
--behavior(zxw_modal).
-
--export([show/6]).
--export([init/1, handle_info/2, handle_event/2]).
-
--include_lib("wx/include/wx.hrl").
--include("$zx_include/zx_logger.hrl").
-
--record(s,
-        {frame   = none :: none | wx:wx_object(),
-         parent  = none :: none | wx:wx_object(),
-         caller  = none :: none | pid(),
-         name_tx = none :: none | wx:wx_object(),
-         pass_tx = none :: none | wx:wx_object(),
-         ok      = none :: none | wx:wx_object(),
-         cancel  = none :: none | wx:wx_object()}).
-
-
-%%% Interface
-
--spec show(Parent, Title, NameLabel, PassLabel, OK_L, Cancel_L) -> {ok, Name, Pass} | cancel
-    when Parent    :: wxFrame:wxFrame(),
-         Title     :: string(),
-         NameLabel :: string(),
-         PassLabel :: string(),
-         OK_L      :: string(),
-         Cancel_L  :: string(),
-         Name      :: string(),
-         Pass      :: string() | none.
-
-show(Parent, Title, NameLabel, PassLabel, OK_L, Cancel_L) ->
-    zxw_modal:show(Parent, ?MODULE, {Title, NameLabel, PassLabel, OK_L, Cancel_L}).
-
-
-
-%% Init
-
-init({Parent, Caller, {Title, NameLabel, PassLabel, OK_L, Cancel_L}}) ->
-    Frame = wxFrame:new(Parent, ?wxID_ANY, Title),
-    Panel = wxWindow:new(Frame, ?wxID_ANY),
-    TopSz = wxBoxSizer:new(?wxVERTICAL),
-    _ = wxBoxSizer:add(TopSz, Panel, zxw:flags(wide)),
-    MainSz = wxBoxSizer:new(?wxVERTICAL),
-    NameSz = wxStaticBoxSizer:new(?wxVERTICAL, Panel, [{label, NameLabel}]),
-    NameTx = wxTextCtrl:new(Panel, ?wxID_ANY, [{style, ?wxTE_PROCESS_TAB}]),
-    _ = wxSizer:add(NameSz, NameTx, zxw:flags({wide, 5})),
-    PassSz = wxStaticBoxSizer:new(?wxVERTICAL, Panel, [{label, PassLabel}]),
-    PassTx = wxTextCtrl:new(Panel, ?wxID_ANY, [{style, ?wxTE_PROCESS_TAB bor ?wxTE_PASSWORD}]),
-    _ = wxSizer:add(PassSz, PassTx, zxw:flags({wide, 5})),
-    OK = wxButton:new(Panel, ?wxID_ANY, [{label, OK_L}]),
-    Cancel = wxButton:new(Panel, ?wxID_ANY, [{label, Cancel_L}]),
-    ButtSz = wxBoxSizer:new(?wxHORIZONTAL),
-    _ = wxBoxSizer:add(ButtSz, OK, zxw:flags({wide, 5})),
-    _ = wxBoxSizer:add(ButtSz, Cancel, zxw:flags({wide, 5})),
-    _ = wxBoxSizer:add(MainSz, NameSz, zxw:flags({wide, 5})),
-    _ = wxBoxSizer:add(MainSz, PassSz, zxw:flags({wide, 5})),
-    _ = wxBoxSizer:add(MainSz, ButtSz, zxw:flags({wide, 5})),
-    HandleKey = key_handler(NameTx, PassTx, OK, Cancel),
-    ok = wxFrame:connect(Frame,     key_down, [{callback, HandleKey}]),
-    ok = wxTextCtrl:connect(NameTx, key_down, [{callback, HandleKey}]),
-    ok = wxTextCtrl:connect(PassTx, key_down, [{callback, HandleKey}]),
-    ok = wxTextCtrl:connect(OK,     key_down, [{callback, HandleKey}]),
-    ok = wxTextCtrl:connect(Cancel, key_down, [{callback, HandleKey}]),
-    ok = wxFrame:connect(Frame, command_button_clicked),
-    ok = wxFrame:connect(Frame, close_window),
-    ok = wxFrame:setSize(Frame, {500, 220}),
-    ok = wxWindow:setSizer(Panel, MainSz),
-    ok = wxFrame:setSizer(Frame, TopSz),
-    ok = wxBoxSizer:layout(MainSz),
-    ok = wxFrame:centerOnParent(Frame),
-    ok = wxTextCtrl:setFocus(NameTx),
-    true = wxFrame:show(Frame),
-    State =
-        #s{frame    = Frame,  parent    = Parent, caller = Caller,
-           name_tx  = NameTx, pass_tx   = PassTx,
-           ok       = OK,     cancel    = Cancel},
-    {Frame, State}.
-
-
-key_handler(NameTx, PassTx, OK, Cancel) ->
-    Me = self(),
-    NameID   = wxTextCtrl:getId(NameTx),
-    PassID   = wxTextCtrl:getId(PassTx),
-    OK_ID    = wxButton:getId(OK),
-    CancelID = wxButton:getId(Cancel),
-    fun(#wx{id = ID, event = #wxKey{type = key_down, keyCode = Code}}, KeyPress) ->
-        case Code of
-             9 ->
-                case ID of
-                    NameID   -> Me ! {tab, name};
-                    PassID   -> Me ! {tab, pass};
-                    OK_ID    -> Me ! {tab, ok};
-                    CancelID -> Me ! {tab, cancel};
-                    _        -> wxEvent:skip(KeyPress)
-                end;
-            13 ->
-                case ID of
-                    NameID -> Me ! {enter, name};
-                    PassID -> Me ! {enter, pass};
-                    _      -> wxEvent:skip(KeyPress)
-                end;
-            27 ->
-                Me ! esc;
-            _ ->
-                wxEvent:skip(KeyPress)
-        end
-    end.
-
-
-
-handle_info({tab, Element}, State) ->
-    ok = tab_traverse(Element, State),
-    {noreply, State};
-handle_info({enter, name}, State = #s{pass_tx = PassTx}) ->
-    ok = wxTextCtrl:setFocus(PassTx),
-    {noreply, State};
-handle_info({enter, pass}, State) ->
-    done(State);
-handle_info(esc, State) ->
-    ok = cancel(State),
-    {noreply, State};
-handle_info(Message, State) ->
-    ok = log(warning, "Message: ~p~nState: ~p~n", [Message, State]),
-    {noreply, State}.
-
-
-handle_event(#wx{event = #wxCommand{type = command_button_clicked}, id = ID},
-             State = #s{ok = OK, cancel = Cancel}) ->
-    OK_ID    = wxButton:getId(OK),
-    CancelID = wxButton:getId(Cancel),
-    case ID of
-        OK_ID    -> done(State);
-        CancelID -> cancel(State)
-    end;
-handle_event(#wx{event = #wxClose{}}, State) ->
-    NewState = cancel(State),
-    {noreply, NewState};
-handle_event(Event, State) ->
-    ok = log(warning, "Unexpected event ~tp State: ~tp~n", [Event, State]),
-    {noreply, State}.
-
-
-%%% Doers
-
-tab_traverse(name, #s{pass_tx = PassTx}) ->
-    wxTextCtrl:setFocus(PassTx);
-tab_traverse(pass, #s{ok = OK}) ->
-    wxButton:setFocus(OK);
-tab_traverse(ok, #s{cancel = Cancel}) ->
-    wxButton:setFocus(Cancel);
-tab_traverse(cancel, #s{name_tx = NameTx}) ->
-    wxTextCtrl:setFocus(NameTx).
-
-
-cancel(#s{frame = Frame, caller = Caller}) ->
-    ok = wxFrame:destroy(Frame),
-    zxw_modal:done(Caller, cancel).
-
-
-done(#s{frame = Frame, caller = Caller, name_tx = NameTx, pass_tx = PassTx}) ->
-    Result =
-        case wxTextCtrl:getValue(NameTx) of
-            "" ->
-                cancel;
-            Name ->
-                case wxTextCtrl:getValue(PassTx) of
-                    ""   -> {ok, Name, none};
-                    Pass -> {ok, Name, Pass}
-                end
-        end,
-    ok = wxFrame:destroy(Frame),
-    zxw_modal:done(Caller, Result).

src/gd_sophia_editor.erl

@@ -1,211 +0,0 @@
--module(gd_sophia_editor).
--vsn("0.9.0").
--export([new/1, update/1, update/2,
-         get_text/1, set_text/2]).
-
--include("$zx_include/zx_logger.hrl").
--include_lib("wx/include/wx.hrl").
-
-
-%%% Formatting Constants
-
-%% Style labels
--define(DEFAULT,    0).
--define(KEYWORD,    1).
--define(IDENTIFIER, 2).
--define(COMMENT,    3).
--define(STRING,     4).
--define(NUMBER,     5).
--define(OPERATOR,   6).
-
-
-
-%% Color palette
-
-% Intensities:
--define(H, 255). % High
--define(M, 192). % Medium
--define(L, 128). % Low
--define(D,  64). % Deep-Low
--define(X,  32). % X-Low
--define(Z,   0). % Zilch
-
-
-% RGB values
-%                        R   G   B
--define(black,         {?Z, ?Z, ?Z}).
--define(light_red,     {?H, ?Z, ?Z}).
--define(light_green,   {?Z, ?H, ?Z}).
--define(light_blue,    {?Z, ?Z, ?H}).
--define(yellow,        {?H, ?H, ?Z}).
--define(light_magenta, {?H, ?Z, ?H}).
--define(light_cyan,    {?Z, ?H, ?H}).
--define(high_white,    {?H, ?H, ?H}).
--define(red,           {?L, ?Z, ?Z}).
--define(green,         {?Z, ?L, ?Z}).
--define(blue,          {?Z, ?Z, ?L}).
--define(brown,         {?L, ?L, ?Z}).
--define(magenta,       {?L, ?Z, ?L}).
--define(cyan,          {?Z, ?L, ?L}).
--define(grey,          {?L, ?L, ?L}).
--define(dark_grey,     {?D, ?D, ?D}).
--define(not_black,     {?X, ?X, ?X}).
--define(white,         {?M, ?M, ?M}).
-
-styles() ->
-    [?DEFAULT,
-     ?KEYWORD,
-     ?IDENTIFIER,
-     ?COMMENT,
-     ?STRING,
-     ?NUMBER,
-     ?OPERATOR].
-
-palette(light) ->
-    #{?DEFAULT    => ?black,
-      ?KEYWORD    => ?blue,
-      ?IDENTIFIER => ?cyan,
-      ?COMMENT    => ?grey,
-      ?STRING     => ?red,
-      ?NUMBER     => ?magenta,
-      ?OPERATOR   => ?brown,
-      sel_back    => ?grey,
-      line_num    => ?brown,
-      cursor      => ?black,
-      bg          => ?high_white};
-palette(dark) ->
-    #{?DEFAULT    => ?white,
-      ?KEYWORD    => ?light_cyan,
-      ?IDENTIFIER => ?green,
-      ?COMMENT    => ?grey,
-      ?STRING     => ?light_red,
-      ?NUMBER     => ?light_magenta,
-      ?OPERATOR   => ?yellow,
-      sel_back    => ?dark_grey,
-      line_num    => ?yellow,
-      cursor      => ?white,
-      bg          => ?not_black}.
-
-color_mode() ->
-    {R, G, B, _} = wxSystemSettings:getColour(?wxSYS_COLOUR_WINDOW),
-    case (lists:sum([R, G, B]) div 3) > 128 of
-        true  -> light;
-        false -> dark
-    end.
-
-
-new(Parent) ->
-    STC = wxStyledTextCtrl:new(Parent),
-    ok = wxStyledTextCtrl:setLexer(STC, ?wxSTC_LEX_CONTAINER),
-    FontSize = 13,
-    Mono = wxFont:new(FontSize,
-                      ?wxFONTFAMILY_TELETYPE,
-                      ?wxFONTSTYLE_NORMAL,
-                      ?wxFONTWEIGHT_NORMAL,
-                      [{face, "Monospace"}]),
-    SetMonospace = fun(Style) -> wxStyledTextCtrl:styleSetFont(STC, Style, Mono) end,
-    ok = lists:foreach(SetMonospace, styles()),
-    ok = wxStyledTextCtrl:setMarginType(STC, 0, ?wxSTC_MARGIN_NUMBER),
-    ok = wxStyledTextCtrl:setMarginWidth(STC, 0, 40),
-    ok = wxStyledTextCtrl:styleSetFont(STC, ?wxSTC_STYLE_DEFAULT, Mono),
-    ok = set_colors(STC),
-    STC.
-
-get_text(STC) ->
-    wxStyledTextCtrl:getText(STC).
-
-set_text(STC, Text) ->
-    ok = wxStyledTextCtrl:setText(STC, Text),
-    %% Force Scintilla to request styling for the entire text
-    wxStyledTextCtrl:colourise(STC, 0, -1).
-
-
-set_colors(STC) ->
-    ok = wxStyledTextCtrl:styleClearAll(STC),
-    Palette = palette(color_mode()),
-    #{bg := BGC, cursor := CC, line_num := LNC, sel_back := SFB} = Palette,
-    Colorize =
-        fun(Style) ->
-            Color = maps:get(Style, Palette),
-            ok = wxStyledTextCtrl:styleSetForeground(STC, Style, Color),
-            ok = wxStyledTextCtrl:styleSetBackground(STC, Style, BGC)
-        end,
-    ok = wxStyledTextCtrl:setCaretForeground(STC, CC),
-    ok = wxStyledTextCtrl:setSelBackground(STC, true, SFB),
-    ok = wxStyledTextCtrl:styleSetForeground(STC, ?wxSTC_STYLE_LINENUMBER, LNC),
-    ok = wxStyledTextCtrl:styleSetBackground(STC, ?wxSTC_STYLE_DEFAULT, BGC),
-    lists:foreach(Colorize, styles()).
-
-
-update(_Event, STC) ->
-    update(STC).
-
-update(STC) ->
-    Text = wxStyledTextCtrl:getText(STC),
-    case so_scan:scan(Text) of
-        {ok, Tokens} ->
-            ok = wxStyledTextCtrl:startStyling(STC, 0),
-            apply_styles(STC, Tokens);
-        {error, _Reason} ->
-            ok
-    end.
-
-
-apply_styles(STC, Tokens) ->
-    lists:foreach(fun(Token) -> style_token(STC, Token) end, Tokens).
-
-
-% FIXME: 'qid' is not properly handled. If there are multi-dot qids, they will break
-style_token(STC, Token) ->
-    {Type, Value} = type_and_value(Token),
-    {StartOffset, LengthOffset} = offset(Type),
-    {Line, Col} = element(2, Token),
-    Length = byte_size(to_binary(Value)) + LengthOffset,
-    Style = classify_style(Type, Value),
-    Start = wxStyledTextCtrl:positionFromLine(STC, Line - 1) + Col + StartOffset,
-    wxStyledTextCtrl:startStyling(STC, Start),
-    wxStyledTextCtrl:setStyling(STC, Length, Style).
-
-offset(string) -> { 0, 0};
-offset(qid)    -> {-1, 1};
-offset(_)      -> {-1, 0}.
-
-to_binary(S) when is_list(S) ->
-    unicode:characters_to_binary(S);
-to_binary(S) when is_binary(S) ->
-    S;
-to_binary(I) when is_integer(I) ->
-    integer_to_binary(I).
-
-
-classify_style(Type, Value) ->
-    case Type of
-        symbol ->
-            case lists:member(Value, keywords()) of
-                true  -> ?KEYWORD;
-                false -> ?OPERATOR
-            end;
-        id     -> ?IDENTIFIER;
-        qid    -> ?IDENTIFIER;
-        con    -> ?IDENTIFIER;
-        qcon   -> ?IDENTIFIER;
-        tvar   -> ?IDENTIFIER;
-        string -> ?STRING;
-        char   -> ?STRING;
-        int    -> ?NUMBER;
-        hex    -> ?NUMBER;
-        bytes  -> ?NUMBER;
-        skip   -> ?COMMENT;
-        _      -> ?DEFAULT
-    end.
-
-
-type_and_value({Type, _Line, Value}) -> {Type, Value};
-type_and_value({Type, _})            -> {Type, atom_to_list(Type)}.
-
-
-keywords() ->
-    ["contract", "include", "let", "switch", "type", "record", "datatype", "if",
-     "elif", "else", "function", "stateful", "payable", "true", "false", "mod",
-     "public", "entrypoint", "private", "indexed", "namespace", "interface",
-     "main", "using", "as", "for", "hiding", "band", "bor", "bxor", "bnot"].

src/gd_sup.erl

@@ -12,7 +12,7 @@
 %%% @end
 
 -module(gd_sup).
--vsn("0.9.0").
+-vsn("0.5.4").
 -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.9.0").
+-vsn("0.5.4").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").

src/gd_v_call.erl

@@ -1,596 +0,0 @@
--module(gd_v_call).
--vsn("0.9.0").
--author("Craig Everett <craigeverett@qpq.swiss>").
--copyright("QPQ AG <info@qpq.swiss>").
--license("GPL-3.0-or-later").
-
--behavior(wx_object).
-%-behavior(gd_v).
--include_lib("wx/include/wx.hrl").
--export([to_front/1, tx_hash/1, tx_data/1, tx_info/1]).
--export([start_link/1]).
--export([init/1, terminate/2, code_change/3,
-         handle_call/3, handle_cast/2, handle_info/2, handle_event/2]).
--include("$zx_include/zx_logger.hrl").
--include("gd.hrl").
--include("gdl.hrl").
-
-
-% State
--record(s,
-        {wx       = none   :: none | wx:wx_object(),
-         frame    = none   :: none | wx:wx_object(),
-         lang     = en     :: en | jp,
-         j        = none   :: none | fun(),
-         prefs    = #{}    :: map(),
-         con_id   = <<"">> :: binary(),
-         fundef   = none   :: none | fun_def(),
-         funret   = none   :: none | term(), % FIXME
-         build    = none   :: none | map(),
-         args     = []     :: [#w{}],
-         kp       = #w{}   :: #w{},
-         params   = []     :: [param()],
-         return   = #w{}   :: #w{},   % wxTextCtrl, single-line
-         copy     = #w{}   :: #w{},
-         status   = none   :: status(),
-         action   = #w{}   :: #w{},
-         tx_data  = none   :: none | map(),
-         tx_info  = none   :: none | map(),
-         hash     = #w{}   :: #w{},   % wxTextCtrl, single-line
-         info     = #w{}   :: #w{}}). % wxTextCtrl, multi-line
-
-
--type fun_name() :: string().
--type fun_ilk()  :: call | dryr | init.
--type fun_def()  :: {fun_name(), fun_ilk()}.
--type param()    :: {Label :: string(), Check :: fun(), #w{}}.
--type status()   :: none
-                  | submitted
-                  | rejected
-                  | included.
-
-
-%%% Interface
-
--spec to_front(Win) -> ok
-    when Win :: wx:wx_object().
-
-to_front(Win) ->
-    wx_object:cast(Win, to_front).
-
-
--spec tx_hash(Win) -> Result
-    when Win    :: pid() | wx:wx_object(),
-         Result :: none | string().
-
-tx_hash(Win) ->
-    wx_object:call(Win, tx_hash).
-
-
--spec tx_data(Win) -> Result
-    when Win    :: pid() | wx:wx_object(),
-         Result :: none | map().
-
-tx_data(Win) ->
-    wx_object:call(Win, tx_data).
-
-
--spec tx_info(Win) -> Result
-    when Win    :: pid() | wx:wx_object(),
-         Result :: none | map().
-
-tx_info(Win) ->
-    wx_object:call(Win, tx_info).
-
-
-
-%%% Startup Functions
-
-start_link(Args) ->
-    wx_object:start_link(?MODULE, Args, []).
-
-
-init({Prefs, FunDef = {FunName, FunIlk}, ConID, Build, Selected, Keys}) ->
-    Lang = maps:get(lang, Prefs, en),
-    Trans = gd_jt:read_translations(?MODULE),
-    J = gd_jt:j(Lang, Trans),
-    {aaci, ConName, FunSpecs, _} = maps:get(aaci, Build),
-    FunSpec = {FunArgs, FunReturn} = maps:get(FunName, FunSpecs),
-    {CallTypeLabel, ActionLabel} =
-        case FunIlk of
-            call -> {J("Contract Call"), J("Submit Call")};
-            dryr -> {J("Dry Run"),       J("Submit Dry Run")};
-            init -> {J("Deploy"),        J("Deploy")}
-        end,
-    Arity = integer_to_list(length(FunArgs)),
-    Title = [CallTypeLabel, ": ", ConName, ".", FunName, "/", Arity],
-    Wx = wx:new(),
-    Frame = wxFrame:new(Wx, ?wxID_ANY, Title),
-    MainSz = wxBoxSizer:new(?wxVERTICAL),
-
-    KeySz = wxStaticBoxSizer:new(?wxVERTICAL, Frame, [{label, J("Signature Key")}]),
-    KeyBox = wxStaticBoxSizer:getStaticBox(KeySz),
-    KeyPicker = wxChoice:new(KeyBox, ?wxID_ANY, [{choices, Keys}]),
-    KP = #w{name = key_picker, id = wxChoice:getId(KeyPicker), wx = KeyPicker},
-    ZeroBasedSelected = Selected - 1,
-    ok = wxChoice:setSelection(KeyPicker, ZeroBasedSelected),
-    _ = wxStaticBoxSizer:add(KeySz, KeyPicker, zxw:flags(wide)),
-
-    {ArgSz, Args, Return, Copy, HasArgs} = call_arg_sizer(Frame, J, FunIlk, FunSpec),
-    {ParamSz, Params} = call_param_sizer(Frame, J),
-
-    Action = #w{wx = ActionBn} = gd_lib:button(Frame, ActionLabel),
-
-    TX_Sz = wxStaticBoxSizer:new(?wxVERTICAL, Frame, [{label, J("Transaction Info")}]),
-    TX_Sz_Box = wxStaticBoxSizer:getStaticBox(TX_Sz),
-    Single = [{style, ?wxTE_READONLY}],
-    Multi = [{style, ?wxTE_MULTILINE bor ?wxTE_READONLY}],
-    TX_Hash = #w{wx = HashT} = gd_lib:mono_text(TX_Sz_Box, tx_hash, "", Single),
-    TX_Info = #w{wx = InfoT} = gd_lib:mono_text(TX_Sz_Box, tx_info, "", Multi),
-
-    _ = wxStaticBoxSizer:add(TX_Sz, HashT, zxw:flags({base, 5})),
-    _ = wxStaticBoxSizer:add(TX_Sz, InfoT, zxw:flags({wide, 5})),
-
-    ArgSzArgs =
-        case HasArgs of
-            true  -> [{proportion, 2}, {flag, ?wxEXPAND bor ?wxALL}, {border, 5}];
-            false -> zxw:flags({base, 5})
-        end,
-    _ = wxSizer:add(MainSz, ArgSz,    ArgSzArgs),
-    _ = wxSizer:add(MainSz, KeySz,    zxw:flags({base, 5})),
-    _ = wxSizer:add(MainSz, ParamSz,  zxw:flags({base, 5})),
-    _ = wxSizer:add(MainSz, ActionBn, zxw:flags({base, 5})),
-    _ = wxSizer:add(MainSz, TX_Sz,    [{proportion, 1}, {flag, ?wxEXPAND bor ?wxALL}, {border, 5}]),
-
-    _ = wxFrame:setSizer(Frame, MainSz),
-    _ = wxFrame:setSize(Frame, {900, 900}),
-    _ = wxSizer:layout(MainSz),
-    ok = wxFrame:connect(Frame, close_window),
-    ok = wxFrame:connect(Frame, command_button_clicked),
-    true = wxFrame:show(Frame),
-    State =
-        #s{wx     = Wx,      frame   = Frame,     j       = J,       prefs = Prefs,
-           fundef = FunDef,  funret  = FunReturn, con_id  = ConID,   build = Build,
-           args   = Args,    kp      = KP,        params  = Params,
-           return = Return,  copy    = Copy,
-           action = Action,  status  = none,
-           hash   = TX_Hash, info    = TX_Info},
-    {Frame, State}.
-
-
-call_arg_sizer(Frame, J, FunIlk, {CallArgs, ReturnType}) ->
-    SpecSz = wxStaticBoxSizer:new(?wxVERTICAL, Frame, [{label, J("Function Spec")}]),
-    SpecBox = wxStaticBoxSizer:getStaticBox(SpecSz),
-    {CallSz, CallControls, HasArgs} = call_sizer(SpecBox, J, CallArgs),
-    {ReturnSz, Return, Copy} = return_sizer(SpecBox, J, FunIlk, ReturnType),
-    _ = wxStaticBoxSizer:add(SpecSz, CallSz,   zxw:flags({wide, 5})),
-    _ = wxStaticBoxSizer:add(SpecSz, ReturnSz, zxw:flags({base, 5})),
-    {SpecSz, CallControls, Return, Copy, HasArgs}.
-
-call_sizer(Parent, J, []) ->
-    CallSz = wxStaticBoxSizer:new(?wxVERTICAL, Parent, [{label, J("Call Args")}]),
-    CallBox = wxStaticBoxSizer:getStaticBox(CallSz),
-    Args = wxStaticText:new(CallBox, ?wxID_ANY, ["[", J("No Args"), "]"]),
-    _ = wxStaticBoxSizer:add(CallSz, Args, zxw:flags({wide, 5})),
-    {CallSz, [], false};
-call_sizer(Parent, J, CallArgs) ->
-    CallSz = wxStaticBoxSizer:new(?wxVERTICAL, Parent, [{label, J("Call Args")}]),
-    CallBox = wxStaticBoxSizer:getStaticBox(CallSz),
-    ScrollWin = wxScrolledWindow:new(CallBox),
-    ScrollSz = wxBoxSizer:new(?wxVERTICAL),
-    ok = wxScrolledWindow:setSizerAndFit(ScrollWin, ScrollSz),
-    ok = wxScrolledWindow:setScrollRate(ScrollWin, 5, 5),
-    GridSz = wxFlexGridSizer:new(2, [{gap, {4, 4}}]),
-    ok = wxFlexGridSizer:setFlexibleDirection(GridSz, ?wxHORIZONTAL),
-    ok = wxFlexGridSizer:addGrowableCol(GridSz, 1),
-    _ = wxStaticBoxSizer:add(ScrollSz, GridSz, zxw:flags(wide)),
-    _ = wxStaticBoxSizer:add(CallSz, ScrollWin, zxw:flags(wide)),
-    AddArg =
-        fun({Name, Type}) ->
-            L = wxStaticText:new(ScrollWin, ?wxID_ANY, [Name, " : ", textify(Type)]),
-            C = #w{wx = T} = gd_lib:mono_text(ScrollWin, Name),
-            _ = wxFlexGridSizer:add(GridSz, L, zxw:flags({base, 5})),
-            _ = wxFlexGridSizer:add(GridSz, T, zxw:flags({wide, 5})),
-            C
-        end,
-    Controls = lists:map(AddArg, CallArgs),
-    {CallSz, Controls, true}.
-
-return_sizer(Parent, J, FunIlk, ReturnType) ->
-    IlkLabel =
-        case FunIlk =:= init of
-            false -> textify(ReturnType);
-            true  -> J("Contract Address")
-        end,
-    ReturnSz = wxStaticBoxSizer:new(?wxVERTICAL, Parent, [{label, J("Return Type")}]),
-    ReturnSzBox = wxStaticBoxSizer:getStaticBox(ReturnSz),
-    ReturnLabel = wxStaticText:new(ReturnSzBox, ?wxID_ANY, IlkLabel),
-    Single = [{style, ?wxTE_READONLY}],
-    Return = #w{wx = ReturnTx} = gd_lib:mono_text(ReturnSzBox, return, "", Single),
-    Copy = #w{wx = CopyB} = gd_lib:button(ReturnSzBox, J("Copy")),
-    _ = wxButton:disable(CopyB),
-    _ = wxStaticBoxSizer:add(ReturnSz, ReturnLabel, zxw:flags({wide, 5})),
-    _ = wxStaticBoxSizer:add(ReturnSz, ReturnTx,    zxw:flags({wide, 5})),
-    _ = wxStaticBoxSizer:add(ReturnSz, CopyB,       zxw:flags({wide, 5})),
-    {ReturnSz, Return, Copy}.
-
-
-call_param_sizer(Frame, J) ->
-    case hz:top_height() of
-        {ok, Height} -> call_param_sizer(Frame, J, Height);
-        Error        -> handle_troubling(State, Error)
-    end.
-
-call_param_sizer(Frame, J, Height) ->
-    DefTTL = Height + 10000,
-    DefGasP = hz:min_gas_price(),
-    DefGas = 5000000,
-    DefAmount = 0,
-    ParamSz = wxStaticBoxSizer:new(?wxVERTICAL, Frame, [{label, J("TX Parameters")}]),
-    ParamBox = wxStaticBoxSizer:getStaticBox(ParamSz),
-    GridSz = wxFlexGridSizer:new(2, 4, 4),
-    ok = wxFlexGridSizer:setFlexibleDirection(GridSz, ?wxHORIZONTAL),
-    ok = wxFlexGridSizer:addGrowableCol(GridSz, 1),
-    Amount_L = wxStaticText:new(ParamBox, ?wxID_ANY, J("Amount")),
-    Amount_T = wxTextCtrl:new(ParamBox, ?wxID_ANY),
-    ok       = wxTextCtrl:setValue(Amount_T, integer_to_list(DefAmount)),
-    Gas_L    = wxStaticText:new(ParamBox, ?wxID_ANY, J("Gas")),
-    Gas_T    = wxTextCtrl:new(ParamBox, ?wxID_ANY),
-    ok       = wxTextCtrl:setValue(Gas_T, integer_to_list(DefGas)),
-    GasP_L   = wxStaticText:new(ParamBox, ?wxID_ANY, J("Gas Price")),
-    GasP_T   = wxTextCtrl:new(ParamBox, ?wxID_ANY),
-    ok       = wxTextCtrl:setValue(GasP_T, integer_to_list(DefGasP)),
-    TTL_L    = wxStaticText:new(ParamBox, ?wxID_ANY, "TTL"),
-    TTL_T    = wxTextCtrl:new(ParamBox, ?wxID_ANY),
-    ok       = wxTextCtrl:setValue(TTL_T, integer_to_list(DefTTL)),
-    _ = wxFlexGridSizer:add(GridSz, Amount_L, zxw:flags({base, 5})),
-    _ = wxFlexGridSizer:add(GridSz, Amount_T, zxw:flags({wide, 5})),
-    _ = wxFlexGridSizer:add(GridSz, Gas_L,    zxw:flags({base, 5})),
-    _ = wxFlexGridSizer:add(GridSz, Gas_T,    zxw:flags({wide, 5})),
-    _ = wxFlexGridSizer:add(GridSz, GasP_L,   zxw:flags({base, 5})),
-    _ = wxFlexGridSizer:add(GridSz, GasP_T,   zxw:flags({wide, 5})),
-    _ = wxFlexGridSizer:add(GridSz, TTL_L,    zxw:flags({base, 5})),
-    _ = wxFlexGridSizer:add(GridSz, TTL_T,    zxw:flags({wide, 5})),
-    _ = wxSizer:add(ParamSz, GridSz, zxw:flags(wide)),
-    Params =
-        [{J("TX Amount"), fun gte_0/1, Amount_T} ,
-         {J("Gas")      , fun gt_0/1,  Gas_T},
-         {J("Gas Price"), fun gt_0/1,  GasP_T},
-         {  "TTL",        fun gte_0/1, TTL_T}],
-    {ParamSz, Params}.
-
-
-
-%%% Spine
-
-handle_call(tx_hash, _, State) ->
-    TXHash = do_tx_hash(State),
-    {reply, TXHash, State};
-handle_call(tx_data, _, State = #s{tx_data = TXData}) ->
-    {reply, TXData, State};
-handle_call(tx_info, _, State = #s{tx_info = TXInfo}) ->
-    {reply, TXInfo, State};
-handle_call(Unexpected, From, State) ->
-    ok = log(warning, "Unexpected call from ~tp: ~tp~n", [From, Unexpected]),
-    {noreply, State}.
-
-
-handle_cast(Unexpected, State) ->
-    ok = log(warning, "Unexpected cast: ~tp~n", [Unexpected]),
-    {noreply, State}.
-
-
-handle_info(retire, State) ->
-    ok = retire(State),
-    {noreply, State};
-handle_info(Unexpected, State) ->
-    ok = log(warning, "Unexpected info: ~tp~n", [Unexpected]),
-    {noreply, State}.
-
-
-handle_event(#wx{event = #wxCommand{type = command_button_clicked}, id = ID},
-             State = #s{action = #w{id = ID}, status = none}) ->
-    NewState = prep_call(State),
-    {noreply, NewState};
-handle_event(#wx{event = #wxCommand{type = command_button_clicked}, id = ID},
-             State = #s{action = #w{id = ID}}) ->
-    NewState = check_tx(State),
-    {noreply, NewState};
-handle_event(#wx{event = #wxCommand{type = command_button_clicked}, id = ID},
-             State = #s{copy = #w{id = ID}}) ->
-    ok = copy(State),
-    {noreply, State};
-handle_event(#wx{event = #wxClose{}}, State) ->
-    ok = retire(State),
-    {noreply, State};
-handle_event(Event, State) ->
-    ok = tell(info, "Unexpected event ~tp State: ~tp~n", [Event, State]),
-    {noreply, State}.
-
-
-code_change(_, State, _) ->
-    {ok, State}.
-
-
-retire(#s{frame = Frame}) ->
-    wxWindow:destroy(Frame).
-
-
-terminate(wx_deleted, _) ->
-    wx:destroy();
-terminate(Reason, State) ->
-    ok = log(info, "Reason: ~tp, State: ~tp", [Reason, State]),
-    wx:destroy().
-
-
-
-%%% Handlers
-
-handle_troubling(State = #s{frame = Frame}, Info) ->
-    ok = wxFrame:raise(Frame),
-    ok = zxw:show_message(Frame, Info),
-    State.
-
-
-do_tx_hash(#s{tx_data = #{"tx_hash" := TXHash}}) ->
-    TXHash;
-do_tx_hash(#s{tx_data = none}) ->
-    none.
-
-
-prep_call(State) ->
-    case gd_con:chain_id() of
-        {ok, ChainID} -> prep_call2(State, ChainID);
-        Error         -> handle_troubling(State, Error)
-    end.
-
-prep_call2(State, ChainID) ->
-    case params(State) of
-        {ok, Params} -> prep_call3(State, ChainID, Params);
-        Error        -> handle_troubling(State, Error)
-    end.
-
-prep_call3(State, ChainID, Params) ->
-    case args(State) of
-        {ok, Args} -> prep_call4(State, ChainID, Params, {sophia, Args});
-        Error      -> handle_troubling(State, Error)
-    end.
-
-prep_call4(State = #s{fundef = {"init", init}, build = Build}, ChainID, Params, Args) ->
-    {CallerID, Nonce, Gas, GP, Amount, TTL} = Params,
-    case hz:contract_create_built(CallerID, Nonce, Gas, GP, Amount, TTL, Build, Args) of
-        {ok, CreateTX} -> deploy(State, ChainID, CallerID, CreateTX);
-        Error          -> handle_troubling(State, Error)
-    end;
-prep_call4(State = #s{fundef = {Name, Ilk}, con_id = ConID, build = Build}, ChainID, Params, Args) ->
-    {CallerID, Nonce, Gas, GP, Amount, TTL} = Params,
-    AACI = maps:get(aaci, Build),
-    case hz:contract_call(CallerID, Nonce, Gas, GP, Amount, TTL, AACI, ConID, Name, Args) of
-        {ok, UnsignedTX} ->
-            case Ilk of
-                call -> do_call(State, ChainID, CallerID, UnsignedTX);
-                dryr -> do_dry_run(State, ConID, UnsignedTX)
-            end;
-        Error ->
-            handle_troubling(State, Error)
-    end.
-
-params(State = #s{kp = #w{wx = KeyPicker}}) ->
-    ID = wxChoice:getString(KeyPicker, wxChoice:getSelection(KeyPicker)),
-    PK = unicode:characters_to_binary(ID),
-    case hz:next_nonce(PK) of
-        {ok, Nonce} -> params2(State, PK, Nonce);
-        Error       -> handle_troubling(State, Error)
-    end.
-
-params2(#s{params = Params}, PK, Nonce) ->
-    case lists:foldl(fun extract/2, {ok, []}, Params) of
-        {ok, [TTL, GP, Gas, Amount]} -> {ok, {PK, Nonce, Gas, GP, Amount, TTL}};
-        Error                        -> Error
-    end.
-
-extract({Name, Check, Widget}, {Status, Out}) ->
-    case Check(wxTextCtrl:getValue(Widget)) of
-        {ok, Value} -> {Status, [Value | Out]};
-        Error       -> {error, [{Name, Error}, Out]}
-    end.
-
-
-% TODO: Put some basic checking in here, like for blank strings, at least.
-%       It should be possible to perform type/parse checks over this since we have
-%       access to the AACI. But not today.
-args(#s{args = ArgFields}) ->
-    Values = [wxTextCtrl:getValue(W) || #w{wx = W} <- ArgFields],
-    {ok, Values}.
-
-
-deploy(State, ChainID, CallerID, CreateTX) ->
-    case gd_con:sign_call(ChainID, CallerID, CreateTX) of
-        {ok, SignedTX} -> deploy2(State, SignedTX);
-        Error          -> handle_troubling(State, Error)
-    end.
-
-deploy2(State = #s{j = J, hash = #w{wx = HashT}, action = #w{wx = ActionB}}, SignedTX) ->
-    case hz:post_tx(SignedTX) of
-        {ok, Data = #{"tx_hash" := TXHash}} ->
-            _ = wxButton:disable(ActionB),
-            ok = wxButton:setLabel(ActionB, J("Check Transaction Status")),
-            ok = log(info, "Submitted transaction ~s", [TXHash]),
-            ok = wxTextCtrl:setValue(HashT, unicode:characters_to_list(TXHash)),
-            check_tx(State#s{tx_data = Data, status = submitted});
-        {ok, #{"reason" := Reason}} ->
-            handle_troubling(State, {error, Reason});
-        Error ->
-            handle_troubling(State, Error)
-    end.
-
-
-do_call(State, ChainID, CallerID, UnsignedTX) ->
-    case gd_con:sign_call(ChainID, CallerID, UnsignedTX) of
-        {ok, SignedTX} -> do_call2(State, SignedTX);
-        Error          -> handle_troubling(State, Error)
-    end.
-
-do_call2(State = #s{action = #w{wx = ActionB}}, SignedTX) ->
-    _ = wxButton:disable(ActionB),
-    case hz:post_tx(SignedTX) of
-        {ok, #{"reason" := Reason}} -> handle_troubling(State#s{status = rejected}, Reason);
-        {ok, Data}                  -> check_tx(State#s{tx_data = Data, status = submitted});
-        Error                       -> handle_troubling(State, Error)
-    end.
-
-
-do_dry_run(State = #s{action = #w{wx = ActionB}}, ConID, TX) ->
-    _ = wxButton:disable(ActionB),
-    case hz:dry_run(TX) of
-        {ok, Result} -> dry_run2(State#s{tx_info = Result});
-        Other        -> handle_troubling(State, {error, ConID, Other})
-    end.
-
-
-dry_run2(State = #s{funret  = ReturnType,
-                    return  = #w{wx = ReturnT},
-                    copy    = #w{wx = CopyB},
-                    tx_data = TXData,
-                    tx_info = TXInfo,
-                    hash    = #w{wx = HashT},
-                    info    = #w{wx = InfoT}}) ->
-    ReturnV =
-        case TXInfo of
-            #{"results" :=
-                [#{"call_obj" :=
-                    #{"return_type" := "revert",
-                      "return_value" := ReturnCB},
-                   "result" := "ok","type" := "contract_call"}]} ->
-                io_lib:format("Revert: ~ts", [hz:decode_bytearray(ReturnCB, sophia)]);
-            #{"results" :=
-                [#{"call_obj" :=
-                    #{"return_type" := "ok",
-                      "return_value" := ReturnCB},
-                   "result" := "ok","type" := "contract_call"}]} ->
-                hz:decode_bytearray(ReturnCB, {sophia, ReturnType});
-            Other ->
-                io_lib:format("???: ~tp", [Other])
-        end,
-    _ = wxButton:enable(CopyB),
-    FormattedHash = io_lib:format("~tp", [TXData]),
-    FormattedInfo = io_lib:format("~tp", [TXInfo]),
-    ok = wxTextCtrl:setValue(ReturnT, ReturnV),
-    ok = wxTextCtrl:setValue(HashT, FormattedHash),
-    ok = wxTextCtrl:setValue(InfoT, FormattedInfo),
-    State.
-
-
-check_tx(State = #s{j       = J,
-                    fundef  = {_, init},
-                    tx_data = #{"tx_hash" := TXHash},
-                    tx_info = none,
-                    status  = submitted,
-                    action  = #w{wx = ActionB},
-                    info    = #w{wx = InfoT}}) ->
-    case hz:tx_info(TXHash) of
-        {ok, Info = #{"call_info" := #{"return_type" := "ok", "contract_id" := ConID}}} ->
-            ok = tell(info, "Contract deployed: ~p", [Info]),
-            _  = wxButton:disable(ActionB),
-            ok = gd_con:open_contract(ConID),
-            self() ! retire,
-            State;
-        {error, "Tx not mined"} ->
-            ok = wxTextCtrl:setValue(InfoT, J("[Transaction not yet mined.]")),
-            ok = wxButton:setLabel(ActionB, J("Check Deployment Status")),
-            _  = wxButton:enable(ActionB),
-            State;
-        Other ->
-            FormattedJunk = io_lib:format("~tp", [Other]),
-            ok = wxTextCtrl:setValue(InfoT, FormattedJunk),
-            ok = wxButton:setLabel(ActionB, J("Check Depoyment Status")),
-            _  = wxButton:enable(ActionB),
-            State
-    end;
-check_tx(State = #s{j       = J,
-                    funret  = ReturnType,
-                    tx_data = #{"tx_hash" := TXHash},
-                    tx_info = none,
-                    status  = submitted,
-                    return  = #w{wx = ReturnT},
-                    copy    = #w{wx = CopyB},
-                    action  = #w{wx = ActionB},
-                    info    = #w{wx = InfoT}}) ->
-    case hz:tx_info(TXHash) of
-        {ok, Info = #{"call_info" := #{"return_type"  := "ok",
-                                       "return_value" := ReturnCB}}} ->
-            FormattedInfo = io_lib:format("~tp", [Info]),
-            _  = wxButton:enable(CopyB),
-            _  = wxButton:disable(ActionB),
-            ReturnV = hz:decode_bytearray(ReturnCB, {sophia, ReturnType}),
-            ok = wxTextCtrl:setValue(ReturnT, ReturnV),
-            ok = wxTextCtrl:setValue(InfoT, FormattedInfo),
-            State#s{status = included, tx_info = Info};
-        {ok, Reason = #{"call_info" := #{"return_type" := "revert", "return_value" := ReturnCB}}} ->
-            _  = wxButton:enable(CopyB),
-            _  = wxButton:disable(ActionB),
-            ReturnV = io_lib:format("Revert: ~ts", [hz:decode_bytearray(ReturnCB, sophia)]),
-            ok = wxTextCtrl:setValue(ReturnT, ReturnV),
-            FormattedInfo = io_lib:format("~tp", [Reason]),
-            ok = wxTextCtrl:setValue(InfoT, FormattedInfo),
-            State#s{status = rejected, tx_info = Reason};
-        {error, "Tx not mined"} ->
-            ok = wxTextCtrl:setValue(InfoT, J("[Transaction not yet mined.]")),
-            ok = wxButton:setLabel(ActionB, J("Check Transaction Status")),
-            _  = wxButton:enable(ActionB),
-            State;
-        Error ->
-            handle_troubling(State, Error)
-    end;
-check_tx(State = #s{tx_data = TXData,
-                    action  = #w{wx = ActionB}}) ->
-    _ = wxButton:disable(ActionB),
-    tell(info, "TXData: ~p", [TXData]),
-    ok = tell("Nothing to check"),
-    State.
-
-
-copy(#s{tx_info = none}) ->
-    ok;
-copy(#s{return = #w{wx = ReturnT}}) ->
-    Output = wxTextCtrl:getValue(ReturnT),
-    gd_lib:copy_to_clipboard(Output).
-    
-
-
-textify({integer,      _, _})                 -> "int";
-textify({boolean,      _, _})                 -> "bool";
-textify({{bytes, [I]}, _, _})                 -> io_lib:format("bytes(~w)", [I]);
-textify({{bytes, any}, _, _})                 -> "bytes()";
-textify({T,            _, _}) when is_atom(T) -> atom_to_list(T);
-textify({T,            _, _}) when is_list(T) -> T;
-textify({T,            _, _})                 -> io_lib:format("~tp", [T]).
-
-
-gt_0(S) ->
-    C = "Must be an integer greater than 0",
-    R =
-        try
-            {ok, list_to_integer(S)}
-        catch
-            error:badarg -> {error, {S, C}}
-        end,
-    case R of
-        {ok, N} when N >  0 -> {ok, N};
-        {ok, N} when N =< 0 -> {error, {S, C}};
-        Error               -> Error
-    end.
-
-gte_0(S) ->
-    C = "Must be a non-negative integer.",
-    R =
-        try
-            {ok, list_to_integer(S)}
-        catch
-            error:badarg -> {error, {S, C}}
-        end,
-    case R of
-        {ok, N} when N >= 0 -> {ok, N};
-        {ok, N} when N  < 0 -> {error, {S, C}};
-        Error               -> Error
-    end.

src/gd_v_devman.erl

@@ -1,5 +1,5 @@
 -module(gd_v_devman).
--vsn("0.9.0").
+-vsn("0.5.4").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").
@@ -8,21 +8,25 @@
 %-behavior(gd_v).
 -include_lib("wx/include/wx.hrl").
 -export([to_front/1]).
--export([set_manifest/1, open_contract/1, write_console/2, call_result/2, dryrun_result/2, trouble/1]).
+-export([set_manifest/1, open_contract/1, call_result/2, dryrun_result/2, trouble/1]).
 -export([start_link/1]).
 -export([init/1, terminate/2, code_change/3,
          handle_call/3, handle_cast/2, handle_info/2, handle_event/2]).
 -include("$zx_include/zx_logger.hrl").
 -include("gd.hrl").
--include("gdl.hrl").
 
+% Widgets
+-record(w,
+        {name = none :: atom() | {FunName :: binary(), call | dryr},
+         id   = 0    :: integer(),
+         wx   = none :: none | wx:wx_object()}).
 
 % Contract functions in an ACI
 -record(f,
         {name   = <<"">> :: binary(),
          call   = #w{}   :: #w{},
          dryrun = #w{}   :: none | #w{},
-         args   = []     :: [argt()]}).
+         args   = []     :: [{wx:wx_object(), wx:wx_object(), argt()}]}).
 
 % Code book pages
 -record(p,
@@ -51,9 +55,7 @@
          code    = {none, []} :: {Codebook :: none | wx:wx_object(), Pages :: [#p{}]},
          cons    = {none, []} :: {Consbook :: none | wx:wx_object(), Pages :: [#c{}]}}).
 
-% TODO: Spec HZ AACIs.
+-type argt() :: int | string | address | list(argt()).
--type argt() :: term(). % FIXME: Whatever HZ returns in the AACI as an arg type.
-
 
 %%% Interface
 
@@ -76,20 +78,10 @@ set_manifest(Entries) ->
 
 
 -spec open_contract(Address) -> ok
-    when Address :: binary() | string().
+    when Address :: string().
 
-open_contract(Address) when is_binary(Address) ->
+open_contract(Address) ->
-    wx_object:cast(?MODULE, {open_contract, Address});
+    wx_object:cast(?MODULE, {open_contract, Address}).
-open_contract(Address) when is_list(Address) ->
-    open_contract(list_to_binary(Address)).
-
-
--spec write_console(ConID, Message) -> ok
-    when ConID   :: gajudesk:id(),
-         Message :: unicode:chardata().
-
-write_console(ConID, Message) ->
-    wx_object:cast(?MODULE, {write_console, ConID, Message}).
 
 
 -spec call_result(ConID, CallInfo) -> ok
@@ -124,7 +116,7 @@ start_link(Args) ->
 
 
 init({Prefs, Manifest}) ->
-    Lang = maps:get(lang, Prefs, en),
+    Lang = maps:get(lang, Prefs, en_us),
     Trans = gd_jt:read_translations(?MODULE),
     J = gd_jt:j(Lang, Trans),
     Wx = wx:new(),
@@ -225,9 +217,6 @@ handle_cast(to_front, State = #s{frame = Frame}) ->
 handle_cast({open_contract, Address}, State) ->
     NewState = load2(State, Address),
     {noreply, NewState};
-handle_cast({write_console, ConID, Message}, State) ->
-    ok = do_write_console(State, ConID, Message),
-    {noreply, State};
 handle_cast({call_result, ConID, CallInfo}, State) ->
     ok = do_call_result(State, ConID, CallInfo),
     {noreply, State};
@@ -235,8 +224,8 @@ handle_cast({dryrun_result, ConID, CallInfo}, State) ->
     ok = do_dryrun_result(State, ConID, CallInfo),
     {noreply, State};
 handle_cast({trouble, Info}, State) ->
-    NewState = handle_troubling(State, Info),
+    ok = handle_troubling(State, Info),
-    {noreply, NewState};
+    {noreply, State};
 handle_cast(Unexpected, State) ->
     ok = log(warning, "Unexpected cast: ~tp~n", [Unexpected]),
     {noreply, State}.
@@ -267,9 +256,6 @@ handle_event(E = #wx{event = #wxCommand{type = command_button_clicked},
                 State
         end,
     {noreply, NewState};
-handle_event(#wx{event = Event = #wxStyledText{type = stc_styleneeded}, obj = Win}, State) ->
-    ok = style(State, Win, Event),
-    {noreply, State};
 handle_event(#wx{event = #wxClose{}}, State = #s{frame = Frame, prefs = Prefs}) ->
     Geometry =
         case wxTopLevelWindow:isMaximized(Frame) of
@@ -289,17 +275,14 @@ handle_event(Event, State) ->
     {noreply, State}.
 
 
-handle_troubling(State = #s{frame = Frame}, Info) ->
+handle_troubling(#s{frame = Frame}, Info) ->
-    ok = zxw:show_message(Frame, Info),
+    zxw:show_message(Frame, Info).
-    State.
 
 
 code_change(_, State, _) ->
     {ok, State}.
 
 
-terminate(wx_deleted, _) ->
-    wx:destroy();
 terminate(Reason, State) ->
     ok = log(info, "Reason: ~tp, State: ~tp", [Reason, State]),
     wx:destroy().
@@ -308,48 +291,178 @@ terminate(Reason, State) ->
 
 %%% Doers
 
-style(#s{code = {_, Pages}}, Win, Event) ->
+clicked(State = #s{cons = {Consbook, Contracts}}, Name) ->
-    case lists:keyfind(Win, #p.win, Pages) of
-        #p{code = STC} ->
-            gd_sophia_editor:update(Event, STC);
-        false ->
-            tell("Received bogus style event.~nWin: ~p~nEvent: ~p", [Win, Event])
-    end.
-
-
-clicked(State = #s{cons = {Consbook, Contracts}}, FunDef) ->
-    ok =
     case wxNotebook:getSelection(Consbook) of
         ?wxNOT_FOUND ->
-                tell(warning, "Inconcievable! No deployed contract page is selected!");
+            ok = tell(warning, "Inconcievable! No notebook page is selected!"),
+            State;
         Index ->
-                #c{id = ConID, build = Build} = lists:nth(Index + 1, Contracts),
+            Contract = lists:nth(Index + 1, Contracts),
-                gd_con:prompt_call(FunDef, ConID, Build)
+            clicked2(State, Contract, Name)
+    end.
+
+clicked2(State, Contract, Name) ->
+    case gd_con:list_keys() of
+        {ok, 0, []} ->
+            handle_troubling(State, "No keys exist in the current wallet.");
+        {ok, Selected, Keys} ->
+            clicked3(State, Contract, Name, Selected, Keys);
+        error ->
+            handle_troubling(State, "No wallet is selected!")
+    end.
+
+clicked3(State = #s{frame = Frame, j = J}, Contract, Name, Selected, Keys) ->
+    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}]),
+    _ = wxStaticBoxSizer:add(KeySz, KeyPicker, zxw:flags(wide)),
+    ok = wxChoice:setSelection(KeyPicker, Selected - 1),
+    {ParamSz, TTL_Tx, GasP_Tx, Gas_Tx, Amount_Tx} = call_param_sizer(Dialog, J),
+    ButtSz = wxBoxSizer:new(?wxHORIZONTAL),
+    Affirm = wxButton:new(Dialog, ?wxID_OK),
+    Cancel = wxButton:new(Dialog, ?wxID_CANCEL),
+    _ = wxBoxSizer:add(ButtSz, Affirm, zxw:flags(wide)),
+    _ = wxBoxSizer:add(ButtSz, Cancel, zxw:flags(wide)),
+    _ = wxSizer:add(Sizer, KeySz,   zxw:flags(wide)),
+    _ = wxSizer:add(Sizer, ParamSz, zxw:flags(wide)),
+    _ = wxSizer:add(Sizer, ButtSz,  zxw:flags(wide)),
+    ok = wxDialog:setSizer(Dialog, Sizer),
+    ok = wxBoxSizer:layout(Sizer),
+    ok = wxDialog:setSize(Dialog, {500, 300}),
+    ok = wxDialog:center(Dialog),
+    Outcome =
+        case wxDialog:showModal(Dialog) of
+            ?wxID_OK ->
+                ID = wxChoice:getString(KeyPicker, wxChoice:getSelection(KeyPicker)),
+                PK = unicode:characters_to_binary(ID),
+                Controls =
+                    [{"TTL",       TTL_Tx},
+                     {"Gas Price", GasP_Tx},
+                     {"Gas",       Gas_Tx},
+                     {"Amount",    Amount_Tx}],
+                case call_params(Controls) of
+                    {ok, [TTL, GasP, Gas, Amount]} ->
+                        {ok, Nonce} = hz:next_nonce(PK),
+                        {ok, {PK, Nonce, TTL, GasP, Gas, Amount}};
+                    E ->
+                        E
+                end;
+            ?wxID_CANCEL ->
+                cancel
+        end,
+    ok = wxDialog:destroy(Dialog),
+    case Outcome of
+        {ok, Params} -> clicked4(State, Contract, Name, Params);
+        cancel       -> State;
+        Error        -> handle_troubling(State, Error)
+    end.
+
+call_param_sizer(Dialog, J) ->
+    {ok, Height} = hz:top_height(),
+    DefTTL = Height + 10000,
+    DefGasP = hz:min_gas_price(),
+    DefGas = 5000000,
+    DefAmount = 0,
+    ParamSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("TX Parameters")}]),
+    GridSz = wxFlexGridSizer:new(2, 4, 4),
+    ok = wxFlexGridSizer:setFlexibleDirection(GridSz, ?wxHORIZONTAL),
+    ok = wxFlexGridSizer:addGrowableCol(GridSz, 1),
+    TTL_L     = wxStaticText:new(Dialog, ?wxID_ANY, "TTL"),
+    TTL_Tx    = wxTextCtrl:new(Dialog, ?wxID_ANY),
+    ok        = wxTextCtrl:setValue(TTL_Tx, integer_to_list(DefTTL)),
+    GasP_L    = wxStaticText:new(Dialog, ?wxID_ANY, J("Gas Price")),
+    GasP_Tx   = wxTextCtrl:new(Dialog, ?wxID_ANY),
+    ok        = wxTextCtrl:setValue(GasP_Tx, integer_to_list(DefGasP)),
+    Gas_L     = wxStaticText:new(Dialog, ?wxID_ANY, J("Gas")),
+    Gas_Tx    = wxTextCtrl:new(Dialog, ?wxID_ANY),
+    ok        = wxTextCtrl:setValue(Gas_Tx, integer_to_list(DefGas)),
+    Amount_L  = wxStaticText:new(Dialog, ?wxID_ANY, J("TX Amount")),
+    Amount_Tx = wxTextCtrl:new(Dialog, ?wxID_ANY),
+    ok        = wxTextCtrl:setValue(Amount_Tx, integer_to_list(DefAmount)),
+    _ = wxFlexGridSizer:add(GridSz, TTL_L, zxw:flags(base)),
+    _ = wxFlexGridSizer:add(GridSz, TTL_Tx, zxw:flags(wide)),
+    _ = wxFlexGridSizer:add(GridSz, GasP_L, zxw:flags(base)),
+    _ = wxFlexGridSizer:add(GridSz, GasP_Tx, zxw:flags(wide)),
+    _ = wxFlexGridSizer:add(GridSz, Gas_L, zxw:flags(base)),
+    _ = wxFlexGridSizer:add(GridSz, Gas_Tx, zxw:flags(wide)),
+    _ = wxFlexGridSizer:add(GridSz, Amount_L, zxw:flags(base)),
+    _ = wxFlexGridSizer:add(GridSz, Amount_Tx, zxw:flags(wide)),
+    _ = wxSizer:add(ParamSz, GridSz, zxw:flags(wide)),
+    {ParamSz, TTL_Tx, GasP_Tx, Gas_Tx, Amount_Tx}.
+
+call_params(Controls) ->
+    call_params(Controls, []).
+
+call_params([], A) ->
+    {ok, lists:reverse(A)};
+call_params([{L, C} | T], A) ->
+    O =
+        try
+            {ok, list_to_integer(wxTextCtrl:getValue(C))}
+        catch
+            error:badarg -> {error, {L, not_an_integer}}
+        end,
+    case O of
+        {ok, N} -> call_params(T, [N | A]);
+        Error   -> Error
+    end.
+
+clicked4(State,
+         #c{id = ConID, build = #{aci := ACI}, funs = {_, Funs}},
+         {Name, Type},
+         {PK, Nonce, TTL, GasP, Gas, Amount}) ->
+    AACI = hz:prepare_aaci(ACI),
+    #f{args = ArgFields} = lists:keyfind(Name, #f.name, Funs),
+    Args = lists:map(fun get_arg/1, ArgFields),
+    FunName = binary_to_list(Name),
+    case hz:contract_call(PK, Nonce, Gas, GasP, Amount, TTL, AACI, ConID, FunName, Args) of
+        {ok, UnsignedTX} ->
+            case Type of
+                call -> do_call(State, ConID, PK, UnsignedTX);
+                dryr -> do_dry_run(State, ConID, UnsignedTX)
+            end;
+        Error ->
+            handle_troubling(State, Error),
+            State
+    end.
+
+do_call(State, ConID, CallerID, UnsignedTX) ->
+    ok = gd_con:sign_call(ConID, CallerID, UnsignedTX),
+    State.
+
+do_dry_run(State, ConID, TX) ->
+    ok = gd_con:dry_run(ConID, TX),
     State.
 
 
-do_write_console(#s{tabs = TopBook, cons = {Consbook, Contracts}}, ConID, Message) ->
+do_call_result(#s{tabs = TopBook, cons = {Consbook, Contracts}}, ConID, CallInfo) ->
     case lookup_contract(ConID, Contracts) of
         {#c{cons = Console}, ZeroIndex} ->
             _ = wxNotebook:changeSelection(TopBook, 1),
             _ = wxNotebook:changeSelection(Consbook, ZeroIndex),
-            Out = [Message, "\n\n"],
+            Out = io_lib:format("Call Result:~n~p~n~n", [CallInfo]),
             wxTextCtrl:appendText(Console, Out);
         error ->
-            tell(info, "Received result for ~p:~n~p ", [ConID, Message])
+            tell(info, "Received result for ~p:~n~p ", [ConID, CallInfo])
     end.
 
 
-do_call_result(State, ConID, CallInfo) ->
+do_dryrun_result(#s{tabs = TopBook, cons = {Consbook, Contracts}}, ConID, CallInfo) ->
-    Message = io_lib:format("Call Result:~n~p", [CallInfo]),
+    case lookup_contract(ConID, Contracts) of
-    do_write_console(State, ConID, Message).
+        {#c{cons = Console}, ZeroIndex} ->
-
+            _ = wxNotebook:changeSelection(TopBook, 1),
-
+            _ = wxNotebook:changeSelection(Consbook, ZeroIndex),
-do_dryrun_result(State, ConID, CallInfo) ->
+            Out = io_lib:format("Call Result:~n~p~n~n", [CallInfo]),
-    Message = io_lib:format("Call Result:~n~p", [CallInfo]),
+            wxTextCtrl:appendText(Console, Out);
-    do_write_console(State, ConID, Message).
+        error ->
-
+            tell(info, "Received result for ~p:~n~p ", [ConID, CallInfo])
+    end.
 
 lookup_contract(ConID, Contracts) ->
     lookup_contract(ConID, Contracts, 0).
@@ -379,21 +492,34 @@ add_code_page2(State = #s{j = J}, {file, File}) ->
                     add_code_page(State, {file, File}, Code);
                 Error ->
                     Message = io_lib:format(J("Opening ~p failed with: ~p"), [File, Error]),
-                    handle_troubling(State, Message)
+                    ok = handle_troubling(State, Message),
+                    State
             end;
         {error, Reason} ->
             Message = io_lib:format(J("Opening ~p failed with: ~p"), [File, Reason]),
-            handle_troubling(State, Message)
+            ok = handle_troubling(State, Message),
+            State
     end;
 add_code_page2(State, {hash, Address}) ->
     open_hash2(State, Address).
 
 add_code_page(State = #s{tabs = TopBook, code = {Codebook, Pages}}, Location, Code) ->
+%   FIXME: One of these days we need to define the text area as a wxStyledTextCtrl and will
+%          have to contend with system theme issues (light/dark themese, namely)
+%          Leaving this little thing here to remind myself how any of that works later.
+%          The call below returns a wx_color4() type (not that we need alpha...).
+%   Color = wxSystemSettings:getColour(?wxSYS_COLOUR_WINDOW),
+%   tell("Color: ~p", [Color]),
     Window = wxWindow:new(Codebook, ?wxID_ANY),
     PageSz = wxBoxSizer:new(?wxHORIZONTAL),
 
-    CodeTx = gd_sophia_editor:new(Window),
+    CodeTxStyle = {style, ?wxTE_MULTILINE bor ?wxTE_PROCESS_TAB bor ?wxTE_DONTWRAP},
-    ok = gd_sophia_editor:set_text(CodeTx, Code),
+    CodeTx = wxTextCtrl:new(Window, ?wxID_ANY, [CodeTxStyle]),
+    TextAt = wxTextAttr:new(),
+    Mono = wxFont:new(10, ?wxMODERN, ?wxNORMAL, ?wxNORMAL, [{face, "Monospace"}]),
+    ok = wxTextAttr:setFont(TextAt, Mono),
+    true = wxTextCtrl:setDefaultStyle(CodeTx, TextAt),
+    ok = wxTextCtrl:setValue(CodeTx, Code),
 
     _ = wxSizer:add(PageSz, CodeTx, zxw:flags(wide)),
 
@@ -405,7 +531,6 @@ add_code_page(State = #s{tabs = TopBook, code = {Codebook, Pages}}, Location, Co
             {file, Path} -> filename:basename(Path);
             {hash, Addr} -> Addr
         end,
-    ok = wxStyledTextCtrl:connect(Window, stc_styleneeded),
     true = wxNotebook:addPage(Codebook, Window, FileName, [{bSelect, true}]),
     Page = #p{path = Location, win = Window, code = CodeTx},
     NewPages = Pages ++ [Page],
@@ -461,16 +586,115 @@ deploy(State = #s{code = {Codebook, Pages}}) ->
             State;
         Index ->
             #p{code = CodeTx} = lists:nth(Index + 1, Pages),
-            Source = gd_sophia_editor:get_text(CodeTx),
+            Source = wxTextCtrl:getValue(CodeTx),
             deploy2(State, Source)
     end.
 
 deploy2(State, Source) ->
-    ok =
     case compile(Source) of
-            {ok, Build} -> gd_con:prompt_call({"init", init}, init, Build);
+%   Options = sophia_options(),
-            Other       -> tell(info, "Compilation Failed!~n~tp", [Other])
+%   case so_compiler:from_string(Source, Options) of
+        {ok, Build} ->
+            deploy3(State, Build);
+        Other ->
+            ok = tell(info, "Compilation Failed!~n~tp", [Other]),
+            State
+    end.
+
+deploy3(State, Build) ->
+    case gd_con:list_keys() of
+        {ok, 0, []} ->
+            handle_troubling(State, "No keys exist in the current wallet.");
+        {ok, Selected, Keys} ->
+            deploy4(State, Build, Selected, Keys);
+        error ->
+            handle_troubling(State, "No wallet is selected!")
+    end.
+
+deploy4(State = #s{frame = Frame, j = J}, Build = #{aci := ACI}, Selected, Keys) ->
+    {#{functions := Funs}, _} = find_main(ACI),
+    #{arguments := As} = lom:find(name, <<"init">>, Funs),
+    Dialog = wxDialog:new(Frame, ?wxID_ANY, J("Deploy Contract")),
+    Sizer = wxBoxSizer:new(?wxVERTICAL),
+    ScrollWin = wxScrolledWindow:new(Dialog),
+    ScrollSz = wxBoxSizer:new(?wxVERTICAL),
+    ok = wxScrolledWindow:setSizerAndFit(ScrollWin, ScrollSz),
+    ok = wxScrolledWindow:setScrollRate(ScrollWin, 5, 5),
+    FunName = unicode:characters_to_list(["init/", integer_to_list(length(As))]), 
+    FunSz = wxStaticBoxSizer:new(?wxVERTICAL, ScrollWin, [{label, FunName}]),
+    KeySz = wxStaticBoxSizer:new(?wxVERTICAL, ScrollWin, [{label, J("Signature Key")}]),
+    KeyPicker = wxChoice:new(ScrollWin, ?wxID_ANY, [{choices, Keys}]),
+    _ = wxStaticBoxSizer:add(KeySz, KeyPicker, zxw:flags(wide)),
+    ok = wxChoice:setSelection(KeyPicker, Selected - 1),
+    {ParamSz, TTL_Tx, GasP_Tx, Gas_Tx, Amount_Tx} = call_param_sizer(ScrollWin, J),
+    ButtSz = wxBoxSizer:new(?wxHORIZONTAL),
+    Affirm = wxButton:new(Dialog, ?wxID_OK),
+    Cancel = wxButton:new(Dialog, ?wxID_CANCEL),
+    _ = wxBoxSizer:add(ButtSz, Affirm, zxw:flags(wide)),
+    _ = wxBoxSizer:add(ButtSz, Cancel, zxw:flags(wide)),
+    GridSz = wxFlexGridSizer:new(2, 4, 4),
+    ok = wxFlexGridSizer:setFlexibleDirection(GridSz, ?wxHORIZONTAL),
+    ok = wxFlexGridSizer:addGrowableCol(GridSz, 1),
+    MakeArgField =
+        fun(#{name := AN, type := T}) ->
+                Type =
+                    case T of
+                        <<"address">>       -> address;
+                        <<"int">>           -> integer;
+                        <<"bool">>          -> boolean;
+                        L when is_list(L)   -> list;   % FIXME
+%                       I when is_binary(I) -> iface   % FIXME
+                        I when is_binary(I) -> address % FIXME
                     end,
+                ANT = wxStaticText:new(ScrollWin, ?wxID_ANY, AN),
+                TCT = wxTextCtrl:new(ScrollWin, ?wxID_ANY),
+                _ = wxFlexGridSizer:add(GridSz, ANT, zxw:flags(base)),  
+                _ = wxFlexGridSizer:add(GridSz, TCT, zxw:flags(wide)),  
+                {ANT, TCT, Type}
+        end,
+    ArgFields = lists:map(MakeArgField, As),
+    _ = wxStaticBoxSizer:add(FunSz, GridSz, zxw:flags(wide)),
+    _ = wxStaticBoxSizer:add(ScrollSz, FunSz,   [{proportion, 1}, {flag, ?wxEXPAND}]),
+    _ = wxStaticBoxSizer:add(ScrollSz, KeySz,   [{proportion, 0}, {flag, ?wxEXPAND}]),
+    _ = wxStaticBoxSizer:add(ScrollSz, ParamSz, [{proportion, 0}, {flag, ?wxEXPAND}]),
+    _ = wxSizer:add(Sizer, ScrollWin, [{proportion, 5}, {flag, ?wxEXPAND}]),
+    _ = wxSizer:add(Sizer, ButtSz,    [{proportion, 1}, {flag, ?wxEXPAND}]),
+    ok = wxDialog:setSizer(Dialog, Sizer),
+    ok = wxBoxSizer:layout(Sizer),
+    ok = wxDialog:setSize(Dialog, {500, 500}),
+    ok = wxDialog:center(Dialog),
+    Outcome =
+        case wxDialog:showModal(Dialog) of
+            ?wxID_OK ->
+                ID = wxChoice:getString(KeyPicker, wxChoice:getSelection(KeyPicker)),
+                PK = unicode:characters_to_binary(ID),
+                InitArgs = lists:map(fun get_arg/1, ArgFields),
+                Controls =
+                    [{"TTL",       TTL_Tx},
+                     {"Gas Price", GasP_Tx},
+                     {"Gas",       Gas_Tx},
+                     {"Amount",    Amount_Tx}],
+                case call_params(Controls) of
+                    {ok, [TTL, GasP, Gas, Amount]} ->
+                        {ok, Nonce} = hz:next_nonce(PK),
+                        DeployParams = {PK, Nonce, TTL, GasP, Gas, Amount},
+                        {ok, DeployParams, InitArgs};
+                    E ->
+                        E
+                end;
+            ?wxID_CANCEL ->
+                cancel
+        end,
+    ok = wxDialog:destroy(Dialog),
+    case Outcome of
+        {ok, Params, Args} -> deploy5(State, Build, Params, Args);
+        cancel             -> State;
+        Error              -> handle_troubling(State, Error)
+    end.
+
+deploy5(State, Build, Params, Args) ->
+    tell(info, "Build: ~p", [Build]),
+    ok = gd_con:deploy(Build, Params, Args),
     State.
 
 
@@ -502,8 +726,7 @@ open(State = #s{frame = Frame, j = J}) ->
                     1            -> hash;
                     ?wxNOT_FOUND -> none
                 end;
-            ?wxID_CANCEL ->
+            ?wxID_CANCEL -> cancel
-                cancel
         end,
     ok = wxDialog:destroy(Dialog),
     case Choice of
@@ -563,16 +786,41 @@ open_file(State = #s{frame = Frame, j = J, prefs = Prefs}) ->
 
 
 open_hash(State = #s{frame = Frame, j = J}) ->
-    Title = J("Retrieve Contract Source"),
+    Dialog = wxDialog:new(Frame, ?wxID_ANY, J("Retrieve Contract Source")),
-    Label = J("Address Hash"),
+    Sizer = wxBoxSizer:new(?wxVERTICAL),
-    case zxw_modal_text:show(Frame, Title, [{label, Label}]) of
+    AddressSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Address Hash")}]),
-        {ok, Address = "ct_" ++ _} -> open_hash2(State, list_to_binary(Address));
+    AddressTx = wxTextCtrl:new(Dialog, ?wxID_ANY),
-        {ok, Address = "th_" ++ _} -> get_contract_from_tx(State, list_to_binary(Address));
+    _ = wxSizer:add(AddressSz, AddressTx, zxw:flags(wide)),
+    ButtSz = wxBoxSizer:new(?wxHORIZONTAL),
+    Affirm = wxButton:new(Dialog, ?wxID_OK),
+    Cancel = wxButton:new(Dialog, ?wxID_CANCEL),
+    _ = wxBoxSizer:add(ButtSz, Affirm, zxw:flags(wide)),
+    _ = wxBoxSizer:add(ButtSz, Cancel, zxw:flags(wide)),
+    _ = wxSizer:add(Sizer, AddressSz, zxw:flags(wide)),
+    _ = wxSizer:add(Sizer, ButtSz, zxw:flags(wide)),
+    ok = wxDialog:setSizer(Dialog, Sizer),
+    ok = wxBoxSizer:layout(Sizer),
+    ok = wxDialog:setSize(Dialog, {500, 200}),
+    ok = wxDialog:center(Dialog),
+    ok = wxTextCtrl:setFocus(AddressTx),
+    Choice =
+        case wxDialog:showModal(Dialog) of
+            ?wxID_OK ->
+                case wxTextCtrl:getValue(AddressTx) of
+                    "" -> cancel;
+                    A  -> {ok, A}
+                end;
+            ?wxID_CANCEL ->
+                cancel
+        end,
+    ok = wxDialog:destroy(Dialog),
+    case Choice of
+        {ok, Address = "ct_" ++ _} -> open_hash2(State, Address);
+        {ok, Address = "th_" ++ _} -> get_contract_from_tx(State, Address);
         {ok, Turd}                 -> handle_troubling(State, {bad_address, Turd});
         cancel                     -> State
     end.
 
-
 get_contract_from_tx(State, Address) ->
     case hz:tx_info(Address) of
         {ok, #{"call_info" := #{"contract_id" := Contract}}} ->
@@ -585,20 +833,22 @@ get_contract_from_tx(State, Address) ->
 
 open_hash2(State, Address) ->
     case hz:contract_source(Address) of
-        {project, [{Name, Source}]} ->
-            ok = tell("Retrieved ~p from ~p", [Name, Address]),
-            open_hash3(State, Address, Source);
         {ok, Source} ->
-            ok = tell("Retrieved uncompressed source of ~p", [Address]),
             open_hash3(State, Address, Source);
         Error ->
-            handle_troubling(State, Error)
+            ok = handle_troubling(State, Error),
+            State
     end.
 
 open_hash3(State, Address, Source) ->
     % TODO: Compile on load and verify the deployed hash for validity.
-    case compile(Source) of
+    Options = sophia_options(),
-        {ok, _Build} ->
+    case so_compiler:from_string(Source, Options) of
+        {ok, Build = #{aci := ACI}} ->
+            {Defs = #{functions := Funs}, ConIfaces} = find_main(ACI),
+            Callable = lom:delete(name, <<"init">>, Funs),
+            FunDefs = {maps:put(functions, Callable, Defs), ConIfaces},
+            ok = tell(info, "Compilation Succeeded!~n~tp~n~n~tp", [Build, FunDefs]),
             add_code_page(State, {hash, Address}, Source);
         Other ->
             ok = tell(info, "Compilation Failed!~n~tp", [Other]),
@@ -606,25 +856,30 @@ open_hash3(State, Address, Source) ->
     end.
 
 
-save(State = #s{prefs = Prefs, code = {Codebook, Pages}}) ->
+% TODO: Break this down -- tons of things in here recur.
+save(State = #s{frame = Frame, j = J, prefs = Prefs, code = {Codebook, Pages}}) ->
     case wxNotebook:getSelection(Codebook) of
         ?wxNOT_FOUND ->
             State;
         Index ->
             case lists:nth(Index + 1, Pages) of
                 #p{path = {file, Path}, code = Widget} ->
-                    Source = gd_sophia_editor:get_text(Widget),
+                    Source = wxTextCtrl:getValue(Widget),
                     case filelib:ensure_dir(Path) of
                         ok ->
                             case file:write_file(Path, Source) of
-                                ok    -> State;
+                                ok ->
-                                Error -> handle_troubling(State, Error)
+                                    State;
+                                Error ->
+                                    ok = handle_troubling(State, Error),
+                                    State
                             end;
                         Error ->
-                            handle_troubling(State, Error)
+                            ok = handle_troubling(State, Error),
+                            State
                     end;
                 Page = #p{path = {hash, Hash}, code = Widget} ->
-                    DefDir =
+                    DefaultDir =
                         case maps:find(dir, Prefs) of
                             {ok, PrefDir} ->
                                 PrefDir;
@@ -634,34 +889,68 @@ save(State = #s{prefs = Prefs, code = {Codebook, Pages}}) ->
                                     D  -> filename:basename(D)
                                 end
                         end,
-                    DefName = unicode:characters_to_list([Hash, ".aes"]),
+                    Options =
-                    save_dialog(State, DefDir, DefName, Widget, Index, Page)
+                        [{message,     J("Save Location")},
+                         {defaultDir,  DefaultDir},
+                         {defaultFile, unicode:characters_to_list([Hash, ".aes"])},
+                         {wildCard,    "*.aes"},
+                         {style,       ?wxFD_SAVE bor ?wxFD_OVERWRITE_PROMPT}],
+                    Dialog = wxFileDialog:new(Frame, Options),
+                    NewState =
+                        case wxFileDialog:showModal(Dialog) of
+                            ?wxID_OK ->
+                                Dir = wxFileDialog:getDirectory(Dialog),
+                                case wxFileDialog:getFilename(Dialog) of
+                                    "" ->
+                                        State;
+                                    Name ->
+                                        File =
+                                            case filename:extension(Name) of
+                                                ".aes" -> Name;
+                                                _      -> Name ++ ".aes"
+                                            end,
+                                        Path = filename:join(Dir, File),
+                                        Source = wxTextCtrl:getValue(Widget),
+                                        case filelib:ensure_dir(Path) of
+                                            ok ->
+                                                case file:write_file(Path, Source) of
+                                                    ok ->
+                                                        true = wxNotebook:setPageText(Codebook, Index, File),
+                                                        NewPrefs = maps:put(dir, Dir, Prefs),
+                                                        NewPage  = Page#p{path = {file, Path}},
+                                                        NewPages = store_nth(Index + 1, NewPage, Pages),
+                                                        NewCode = {Codebook, NewPages},
+                                                        State#s{prefs = NewPrefs, code = NewCode};
+                                                    Error ->
+                                                        ok = handle_troubling(State, Error),
+                                                        State
+                                                end;
+                                            Error ->
+                                                ok = handle_troubling(State, Error),
+                                                State
+                                        end
+                                end;
+                            ?wxID_CANCEL ->
+                                State
+                        end,
+                    ok = wxFileDialog:destroy(Dialog),
+                    NewState
             end
     end.
 
-
+% TODO: Break this down -- tons of things in here recur.
-rename(State = #s{code = {Codebook, Pages}}) ->
+rename(State = #s{frame = Frame, j = J, prefs = Prefs, code = {Codebook, Pages}}) ->
     case wxNotebook:getSelection(Codebook) of
         ?wxNOT_FOUND ->
             State;
         Index ->
             case lists:nth(Index + 1, Pages) of
                 Page = #p{path = {file, Path}, code = Widget} ->
-                    DefDir = filename:dirname(Path),
+                    DefaultDir = filename:dirname(Path),
-                    DefName = filename:basename(Path),
-                    save_dialog(State, DefDir, DefName, Widget, Index, Page);
-                #p{path = {hash, _}} ->
-                    save(State)
-            end
-    end.
-
-
-save_dialog(State = #s{frame = Frame, j = J, prefs = Prefs, code = {Codebook, Pages}},
-            DefDir, DefName, Widget, Index, Page) ->
                     Options =
                         [{message,     J("Save Location")},
-         {defaultDir,  DefDir},
+                         {defaultDir,  DefaultDir},
-         {defaultFile, DefName},
+                         {defaultFile, filename:basename(Path)},
                          {wildCard,    "*.aes"},
                          {style,       ?wxFD_SAVE bor ?wxFD_OVERWRITE_PROMPT}],
                     Dialog = wxFileDialog:new(Frame, Options),
@@ -679,7 +968,7 @@ save_dialog(State = #s{frame = Frame, j = J, prefs = Prefs, code = {Codebook, Pa
                                                 _      -> Name ++ ".aes"
                                             end,
                                         NewPath = filename:join(Dir, File),
-                        Source = gd_sophia_editor:get_text(Widget),
+                                        Source = wxTextCtrl:getValue(Widget),
                                         case filelib:ensure_dir(NewPath) of
                                             ok ->
                                                 case file:write_file(NewPath, Source) of
@@ -691,17 +980,23 @@ save_dialog(State = #s{frame = Frame, j = J, prefs = Prefs, code = {Codebook, Pa
                                                         NewCode = {Codebook, NewPages},
                                                         State#s{prefs = NewPrefs, code = NewCode};
                                                     Error ->
-                                        handle_troubling(State, Error)
+                                                        ok = handle_troubling(State, Error),
+                                                        State
                                                 end;
                                             Error ->
-                                handle_troubling(State, Error)
+                                                ok = handle_troubling(State, Error),
+                                                State
                                         end
                                 end;
                             ?wxID_CANCEL ->
                                 State
                         end,
                     ok = wxFileDialog:destroy(Dialog),
-    NewState.
+                    NewState;
+                #p{path = {hash, _}} ->
+                    save(State)
+            end
+    end.
 
 
 close_source(State = #s{code = {Codebook, Pages}}) ->
@@ -719,16 +1014,41 @@ load(State = #s{frame = Frame, j = J}) ->
     % TODO: Extract the exact compiler version, load it, and use only that or fail if
     %       the specific version is unavailable.
     % TODO: Compile on load and verify the deployed hash for validity.
-    Title = J("Retrieve Contract Source"),
+    Dialog = wxDialog:new(Frame, ?wxID_ANY, J("Retrieve Contract Source")),
-    Label = J("Address Hash"),
+    Sizer = wxBoxSizer:new(?wxVERTICAL),
-    case zxw_modal_text:show(Frame, Title, [{label, Label}]) of
+    AddressSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Address Hash")}]),
+    AddressTx = wxTextCtrl:new(Dialog, ?wxID_ANY),
+    _ = wxSizer:add(AddressSz, AddressTx, zxw:flags(wide)),
+    ButtSz = wxBoxSizer:new(?wxHORIZONTAL),
+    Affirm = wxButton:new(Dialog, ?wxID_OK),
+    Cancel = wxButton:new(Dialog, ?wxID_CANCEL),
+    _ = wxBoxSizer:add(ButtSz, Affirm, zxw:flags(wide)),
+    _ = wxBoxSizer:add(ButtSz, Cancel, zxw:flags(wide)),
+    _ = wxSizer:add(Sizer, AddressSz, zxw:flags(wide)),
+    _ = wxSizer:add(Sizer, ButtSz, zxw:flags(wide)),
+    ok = wxDialog:setSizer(Dialog, Sizer),
+    ok = wxBoxSizer:layout(Sizer),
+    ok = wxDialog:setSize(Dialog, {500, 200}),
+    ok = wxDialog:center(Dialog),
+    ok = wxTextCtrl:setFocus(AddressTx),
+    Choice =
+        case wxDialog:showModal(Dialog) of
+            ?wxID_OK ->
+                case wxTextCtrl:getValue(AddressTx) of
+                    "" -> cancel;
+                    A  -> {ok, A}
+                end;
+            ?wxID_CANCEL ->
+                cancel
+        end,
+    ok = wxDialog:destroy(Dialog),
+    case Choice of
         {ok, Address = "ct_" ++ _} -> load2(State, Address);
         {ok, Address = "th_" ++ _} -> load_from_tx(State, Address);
         {ok, Turd}                 -> handle_troubling(State, {bad_address, Turd});
         cancel                     -> State
     end.
 
-
 load_from_tx(State, Address) ->
     case hz:tx_info(Address) of
         {ok, #{"call_info" := #{"contract_id" := Contract}}} ->
@@ -739,36 +1059,32 @@ load_from_tx(State, Address) ->
             handle_troubling(State, Error)
     end.
 
-load2(State = #s{cons = {_, Pages}}, Address) when is_binary(Address) ->
+load2(State, Address) ->
-    case lists:keyfind(Address, #c.id, Pages) of
-        false -> load3(State, Address);
-        #c{}  -> State
-    end;
-load2(State, Address) when is_list(Address) ->
-    load2(State, list_to_binary(Address)).
-
-load3(State, Address) ->
     case hz:contract_source(Address) of
-        {project, [{Name, Source}]} ->
-            ok = tell("Retrieved ~p from ~p", [Name, Address]),
-            load4(State, Address, Source);
         {ok, Source} ->
-            ok = tell("Retrieved uncompressed source of ~p", [Address]),
+            load3(State, Address, Source);
-            load4(State, Address, Source);
         Error ->
-            handle_troubling(State, Error)
+            ok = handle_troubling(State, Error),
+            State
     end.
 
-load4(State = #s{tabs = TopBook, cons = {Consbook, Pages}, buttons = Buttons, j = J},
+load3(State = #s{tabs = TopBook, cons = {Consbook, Pages}, buttons = Buttons, j = J},
       Address,
       Source) ->
     Window = wxWindow:new(Consbook, ?wxID_ANY),
     PageSz = wxBoxSizer:new(?wxVERTICAL),
     ProgSz = wxBoxSizer:new(?wxHORIZONTAL),
     CodeSz = wxStaticBoxSizer:new(?wxVERTICAL, Window, [{label, J("Contract Source")}]),
-    CodeTx = gd_sophia_editor:new(Window),
+    CodeTxStyle = {style,     ?wxTE_MULTILINE
-    ok = gd_sophia_editor:set_text(CodeTx, Source),
+                          bor ?wxTE_PROCESS_TAB
-    ok = gd_sophia_editor:update(CodeTx),
+                          bor ?wxTE_DONTWRAP
+                          bor ?wxTE_READONLY},
+    CodeTx = wxTextCtrl:new(Window, ?wxID_ANY, [CodeTxStyle]),
+    Mono = wxFont:new(10, ?wxMODERN, ?wxNORMAL, ?wxNORMAL, [{face, "Monospace"}]),
+    TextAt = wxTextAttr:new(),
+    ok = wxTextAttr:setFont(TextAt, Mono),
+    true = wxTextCtrl:setDefaultStyle(CodeTx, TextAt),
+    ok = wxTextCtrl:setValue(CodeTx, Source),
     _ = wxSizer:add(CodeSz, CodeTx, zxw:flags(wide)),
     ScrollWin = wxScrolledWindow:new(Window),
     FunSz = wxStaticBoxSizer:new(?wxVERTICAL, ScrollWin, [{label, J("Function Interfaces")}]),
@@ -777,19 +1093,19 @@ load4(State = #s{tabs = TopBook, cons = {Consbook, Pages}, buttons = Buttons, j
     ConsSz = wxStaticBoxSizer:new(?wxVERTICAL, Window, [{label, J("Console")}]),
     ConsTxStyle = {style, ?wxTE_MULTILINE bor ?wxTE_READONLY},
     ConsTx = wxTextCtrl:new(Window, ?wxID_ANY, [ConsTxStyle]),
-    _ = wxSizer:add(ConsSz, ConsTx, zxw:flags({wide, 5})),
+    _ = wxSizer:add(ConsSz, ConsTx, zxw:flags(wide)),
-    _ = wxSizer:add(ProgSz, CodeSz,    [{proportion, 3}, {flag, ?wxEXPAND bor ?wxALL}, {border, 5}]),
+    _ = wxSizer:add(ProgSz, CodeSz,    [{proportion, 2}, {flag, ?wxEXPAND}]),
-    _ = wxSizer:add(ProgSz, ScrollWin, [{proportion, 1}, {flag, ?wxEXPAND bor ?wxALL}, {border, 5}]),
+    _ = wxSizer:add(ProgSz, ScrollWin, [{proportion, 1}, {flag, ?wxEXPAND}]),
-    _ = wxSizer:add(PageSz, ProgSz,    [{proportion, 3}, {flag, ?wxEXPAND bor ?wxALL}, {border, 5}]),
+    _ = wxSizer:add(PageSz, ProgSz, [{proportion, 3}, {flag, ?wxEXPAND}]),
-    _ = wxSizer:add(PageSz, ConsSz,    [{proportion, 1}, {flag, ?wxEXPAND bor ?wxALL}, {border, 5}]),
+    _ = wxSizer:add(PageSz, ConsSz, [{proportion, 1}, {flag, ?wxEXPAND}]),
     {Out, IFaces, Build, NewButtons} =
         case compile(Source) of
-            {ok, Output} ->
+            {ok, B = #{aci := ACI}} ->
-                {aaci, _, Funs, _} = maps:get(aaci, Output),
+                {#{functions := Fs}, _} = find_main(ACI),
-                Callable = maps:remove("init", Funs),
+                Callable = lom:delete(name, <<"init">>, Fs),
                 {NB, IFs} = fun_interfaces(ScrollWin, FunSz, Buttons, Callable, J),
-                O = io_lib:format("Compilation Succeeded!~n~tp~n~nDone!~n", [Output]),
+                O = io_lib:format("Compilation Succeeded!~n~tp~n~nDone!~n", [B]),
-                {O, IFs, Output, NB};
+                {O, IFs, B, NB};
             Other ->
                 O = io_lib:format("Compilation Failed!~n~tp~n", [Other]),
                 {O, [], none, Buttons}
@@ -807,31 +1123,78 @@ load4(State = #s{tabs = TopBook, cons = {Consbook, Pages}, buttons = Buttons, j
     State#s{cons = {Consbook, NewPages}, buttons = NewButtons}.
 
 
+get_arg({_, TextCtrl, _}) ->
+    wxTextCtrl:getValue(TextCtrl).
+
+find_main(ACI) ->
+    find_main(ACI, none, []).
+
+find_main([#{contract := I = #{kind := contract_interface}} | T], M, Is) ->
+    find_main(T, M, [I | Is]);
+find_main([#{contract := M = #{kind := contract_main}}      | T], _, Is) ->
+    find_main(T, M, Is);
+find_main([#{namespace := _} | T], M, Is) ->
+    find_main(T, M, Is);
+find_main([C | T], M, Is) ->
+    ok = tell("Surprising ACI element: ~p", [C]),
+    find_main(T, M, Is);
+find_main([], M, Is) ->
+    {M, Is}.
+
 fun_interfaces(ScrollWin, FunSz, Buttons, Funs, J) ->
     MakeIface =
-        fun(Name, {Args, _}) ->
+        fun(#{name := N, arguments := As}) ->
-            FunName = unicode:characters_to_list([Name, "/", integer_to_list(length(Args))]), 
+            FunName = unicode:characters_to_list([N, "/", integer_to_list(length(As))]), 
-            FS = wxBoxSizer:new(?wxHORIZONTAL),
+            FN = wxStaticBoxSizer:new(?wxVERTICAL, ScrollWin, [{label, FunName}]),
-            FLabel = wxStaticText:new(ScrollWin, ?wxID_ANY, FunName),
+            GridSz = wxFlexGridSizer:new(2, 4, 4),
+            ok = wxFlexGridSizer:setFlexibleDirection(GridSz, ?wxHORIZONTAL),
+            ok = wxFlexGridSizer:addGrowableCol(GridSz, 1),
+            MakeArgField =
+                fun(#{name := AN, type := T}) ->
+                        Type =
+                            case T of % FIXME
+                                <<"address">>       -> address;
+                                <<"int">>           -> integer;
+                                <<"bool">>          -> boolean;
+                                #{<<"list">> := _}  -> list;
+                                #{<<"tuple">> := _} -> tuple;
+                                T when is_binary(T) -> iface
+                            end,
+                        ANT = wxStaticText:new(ScrollWin, ?wxID_ANY, AN),
+                        TCT = wxTextCtrl:new(ScrollWin, ?wxID_ANY),
+                        _ = wxFlexGridSizer:add(GridSz, ANT, zxw:flags(base)),  
+                        _ = wxFlexGridSizer:add(GridSz, TCT, zxw:flags(wide)),  
+                        {ANT, TCT, Type}
+                end,
+            ArgFields = lists:map(MakeArgField, As),
+            ButtSz = wxBoxSizer:new(?wxHORIZONTAL),
+            {CallButton, DryRunButton} =
+                case N =:= <<"init">> of
+                    false ->
                         CallBn = wxButton:new(ScrollWin, ?wxID_ANY, [{label, J("Call")}]),
                         DryRBn = wxButton:new(ScrollWin, ?wxID_ANY, [{label, J("Dry Run")}]),
-            _ = wxBoxSizer:add(FS, FLabel, zxw:flags(wide)),
+                        _ = wxBoxSizer:add(ButtSz, CallBn, zxw:flags(wide)),
-            _ = wxBoxSizer:add(FS, CallBn, zxw:flags(base)),
+                        _ = wxBoxSizer:add(ButtSz, DryRBn, zxw:flags(wide)),
-            _ = wxBoxSizer:add(FS, DryRBn, zxw:flags(base)),
+                        {#w{name = {N, call}, id = wxButton:getId(CallBn), wx = CallBn},
-            CallButton = #w{name = {Name, call}, id = wxButton:getId(CallBn), wx = CallBn},
+                         #w{name = {N, dryr}, id = wxButton:getId(DryRBn), wx = DryRBn}};
-            DryRButton = #w{name = {Name, dryr}, id = wxButton:getId(DryRBn), wx = DryRBn},
+                    true ->
-            _ = wxSizer:add(FunSz, FS, zxw:flags({base, 5})),
+                        Deploy = wxButton:new(ScrollWin, ?wxID_ANY, [{label, J("Deploy")}]),
-            #f{name = Name, call = CallButton, dryrun = DryRButton, args = Args}
+                        _ = wxBoxSizer:add(ButtSz, Deploy, zxw:flags(wide)),
+                        {#w{name = {N, call}, id = wxButton:getId(Deploy), wx = Deploy},
+                         none}
                 end,
-    Iterator = maps:iterator(Funs, ordered),
+            _ = wxStaticBoxSizer:add(FN, GridSz, zxw:flags(wide)),
-    IFaces = maps:map(MakeIface, Iterator),
+            _ = wxStaticBoxSizer:add(FN, ButtSz, zxw:flags(base)),
-    NewButtons = maps:fold(fun map_iface_buttons/3, Buttons, IFaces),
+            _ = wxSizer:add(FunSz, FN, zxw:flags(base)),
+            #f{name = N, call = CallButton, dryrun = DryRunButton, args = ArgFields}
+        end,
+    IFaces = lists:map(MakeIface, Funs),
+    NewButtons = lists:foldl(fun map_iface_buttons/2, Buttons, IFaces),
     {NewButtons, IFaces}.
 
-
+map_iface_buttons(#f{call = C = #w{id = CID}, dryrun = D = #w{id = DID}}, A) ->
-map_iface_buttons(_, #f{call = C = #w{id = CID}, dryrun = D = #w{id = DID}}, A) ->
+    maps:put(DID, D, maps:put(CID, C, A));
-    maps:merge(#{CID => C, DID => D}, A);
+map_iface_buttons(#f{call = C = #w{id = CID}, dryrun = none}, A) ->
-map_iface_buttons(_, #f{call = C = #w{id = CID}, dryrun = none}, A) ->
     maps:put(CID, C, A).
 
 
@@ -842,7 +1205,7 @@ edit(State = #s{cons = {Consbook, Pages}}) ->
         Index ->
             #c{code = CodeTx} = lists:nth(Index + 1, Pages),
             Address = wxNotebook:getPageText(Consbook, Index),
-            Source = gd_sophia_editor:get_text(CodeTx),
+            Source = wxTextCtrl:getValue(CodeTx),
             add_code_page(State, {hash, Address}, Source)
     end.
 
@@ -853,8 +1216,7 @@ close_instance(State = #s{cons = {Consbook, Pages}, buttons = Buttons}) ->
             State;
         Index ->
             {#c{funs = {_, IFaces}}, NewPages} = take_nth(Index + 1, Pages),
-            log(info, "IFaces: ~tp", [IFaces]),
+            IDs = list_iface_buttons(IFaces),
-            IDs = list_iface_buttons(maps:values(IFaces)),
             NewButtons = maps:without(IDs, Buttons),
             true = wxNotebook:deletePage(Consbook, Index),
             State#s{cons = {Consbook, NewPages}, buttons = NewButtons}
@@ -872,16 +1234,7 @@ list_iface_buttons(#f{call = #w{id = CID}, dryrun = #w{id = DID}}, A) ->
 
 compile(Source) ->
     Options = sophia_options(),
-    case so_compiler:from_string(Source, Options) of
+    so_compiler:from_string(Source, Options).
-        {ok, Build} ->
-            ACI = maps:get(aci, Build),
-            AACI = hz_aaci:prepare(ACI),
-            Complete = maps:put(aaci, AACI, Build),
-            {ok, Complete};
-        Other ->
-            Other
-    end.
-
 
 sophia_options() ->
     [{aci, json}].

src/gd_v_netman.erl

@@ -1,5 +1,5 @@
 -module(gd_v_netman).
--vsn("0.9.0").
+-vsn("0.5.4").
 -author("Craig Everett <zxq9@zxq9.com>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").
@@ -14,9 +14,13 @@
          handle_call/3, handle_cast/2, handle_info/2, handle_event/2]).
 -include("$zx_include/zx_logger.hrl").
 -include("gd.hrl").
--include("gdl.hrl").
 
 
+-record(w,
+        {name = none :: atom(),
+         id   = 0    :: integer(),
+         wx   = none :: none | wx:wx_object()}).
+
 -record(s,
         {wx      = none :: none | wx:wx_object(),
          frame   = none :: none | wx:wx_object(),
@@ -56,7 +60,7 @@ start_link(Args) ->
 
 
 init({Prefs, Manifest}) ->
-    Lang = maps:get(lang, Prefs, en),
+    Lang = maps:get(lang, Prefs, en_us),
     Trans = gd_jt:read_translations(?MODULE),
     J = gd_jt:j(Lang, Trans),
     Wx = wx:new(),

src/gd_v_wallman.erl

@@ -1,19 +1,5 @@
-%%% @doc
-%%% The GajuDesk Wallet Manager
-%%%
-%%% This is an interface for managing multiple wallets.
-%%% A wallet is defined as a collection of accounts/keys.
-%%%
-%%% NOTE:
-%%%     Any call to `gd_con:show_ui(gd_v_wallman)' must be followed by a call to
-%%%     either `gd_v_wallman:to_front()' or `gd_v_wallman:first_run()' or else
-%%%     this UI process will just sit in the background (invisible) until told to
-%%%     do something.
-%%% @end
-
-
 -module(gd_v_wallman).
--vsn("0.9.0").
+-vsn("0.5.4").
 -author("Craig Everett <zxq9@zxq9.com>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").
@@ -21,16 +7,20 @@
 -behavior(wx_object).
 %-behavior(gd_v).
 -include_lib("wx/include/wx.hrl").
--export([to_front/0, to_front/1, first_run/0, trouble/1]).
+-export([to_front/1]).
 -export([show/2]).
 -export([start_link/1]).
 -export([init/1, terminate/2, code_change/3,
          handle_call/3, handle_cast/2, handle_info/2, handle_event/2]).
 -include("$zx_include/zx_logger.hrl").
 -include("gd.hrl").
--include("gdl.hrl").
 
 
+-record(w,
+        {name = none :: atom(),
+         id   = 0    :: integer(),
+         wx   = none :: none | wx:wx_object()}).
+
 -record(s,
         {wx      = none :: none | wx:wx_object(),
          frame   = none :: none | wx:wx_object(),
@@ -39,18 +29,11 @@
          prefs   = #{}  :: map(),
          wallets = []   :: [#wr{}],
          picker  = none :: none | wx:wx_object(),
-         buttons = []   :: [#w{}],
+         buttons = []   :: [#w{}]}).
-         wiz     = none :: none | {wx:wx_object(), Buttons :: [#w{}]}}).
 
 
 %%% Interface
 
--spec to_front() -> ok.
-
-to_front() ->
-    wx_object:cast(?MODULE, to_front).
-
-
 -spec to_front(Win) -> ok
     when Win :: wx:wx_object().
 
@@ -58,19 +41,6 @@ to_front(Win) ->
     wx_object:cast(Win, to_front).
 
 
--spec first_run() -> ok.
-
-first_run() ->
-    wx_object:cast(?MODULE, first_run).
-
-
--spec trouble(Info) -> ok
-    when Info :: term().
-
-trouble(Info) ->
-    wx_object:cast(?MODULE, {trouble, Info}).
-
-
 -spec show(Win, Manifest) -> ok
     when Win      :: wx:xw_object(),
          Manifest :: [#wr{}].
@@ -86,7 +56,7 @@ start_link(Args) ->
 
 
 init({Prefs, Manifest}) ->
-    Lang = maps:get(lang, Prefs, en),
+    Lang = maps:get(lang, Prefs, en_us),
     Trans = gd_jt:read_translations(?MODULE),
     J = gd_jt:j(Lang, Trans),
     Wx = wx:new(),
@@ -119,24 +89,11 @@ init({Prefs, Manifest}) ->
     ok = wxFrame:setSizer(Frame, MainSz),
     ok = wxSizer:layout(MainSz),
 
-    NewPrefs =
+    ok = gd_v:safe_size(Frame, Prefs),
-        case maps:is_key(geometry, Prefs) of
-            true ->
-                Prefs;
-            false ->
-                Display = wxDisplay:new(),
-                {_, _, W, H} = wxDisplay:getGeometry(Display),
-                ok = wxDisplay:destroy(Display),
-                WW = 500,
-                WH = 350,
-                X = (W div 2) - (WW div 2),
-                Y = (H div 2) - (WH div 2),
-                Prefs#{geometry => {X, Y, WW, WH}}
-        end,
-    ok = gd_v:safe_size(Frame, NewPrefs),
 
     ok = wxFrame:connect(Frame, command_button_clicked),
     ok = wxFrame:connect(Frame, close_window),
+    true = wxFrame:show(Frame),
     ok = wxListBox:connect(Picker, command_listbox_doubleclicked),
     State = #s{wx = Wx, frame = Frame, lang = Lang, j = J, prefs = Prefs,
                wallets  = Manifest,
@@ -146,23 +103,16 @@ init({Prefs, Manifest}) ->
 
 
 
-
 %%% wx_object
 
 handle_call(Unexpected, From, State) ->
     ok = log(warning, "Unexpected call from ~tp: ~tp~n", [From, Unexpected]),
     {noreply, State}.
 
+
 handle_cast(to_front, State = #s{frame = Frame}) ->
-    ok = ensure_shown(Frame),
     ok = wxFrame:raise(Frame),
     {noreply, State};
-handle_cast(first_run, State) ->
-    NewState = do_first_run(State),
-    {noreply, NewState};
-handle_cast({trouble, Info}, State) ->
-    ok = handle_troubling(State, Info),
-    {noreply, State};
 handle_cast({show, Manifest}, State) ->
     NewState = do_show(Manifest, State),
     {noreply, NewState};
@@ -178,7 +128,7 @@ handle_info(Unexpected, State) ->
 
 handle_event(#wx{event = #wxCommand{type = command_button_clicked},
                  id = ID},
-             State = #s{buttons = Buttons, wiz = none}) ->
+             State = #s{buttons = Buttons}) ->
     NewState =
         case lists:keyfind(ID, #w.id, Buttons) of
             #w{name = open}   -> do_open(State);
@@ -191,34 +141,17 @@ handle_event(#wx{event = #wxCommand{type = command_button_clicked},
     {noreply, NewState};
 handle_event(#wx{event = #wxCommand{type       = command_listbox_doubleclicked,
                                     commandInt = Selected}},
-             State = #s{wiz = none}) ->
+             State) ->
-    ok = do_open2(Selected + 1, State),
+    NewState = do_open2(Selected + 1, State),
-    {noreply, State};
+    {noreply, NewState};
-handle_event(#wx{event = #wxClose{}}, State = #s{wiz = none}) ->
+handle_event(#wx{event = #wxClose{}}, State) ->
     ok = do_close(State),
     {noreply, State};
-handle_event(#wx{event = #wxCommand{type = command_button_clicked},
-                 id = ID},
-             State = #s{wiz = {_, WizButtons}}) ->
-    NewState =
-        case lists:keyfind(ID, #w.id, WizButtons) of
-            #w{name = noob} -> wiz_noob_assist(State);
-            #w{name = l33t} -> close_wiz(State);
-            false           -> State
-        end,
-    {noreply, NewState};
-handle_event(#wx{event = #wxClose{}}, State = #s{wiz = {_, _}}) ->
-    NewState = close_wiz(State),
-    {noreply, NewState};
 handle_event(Event, State) ->
     ok = tell(info, "Unexpected event ~tp State: ~tp~n", [Event, State]),
     {noreply, State}.
 
 
-handle_troubling(#s{frame = Frame}, Info) ->
-    zxw:show_message(Frame, Info).
-
-
 code_change(_, State, _) ->
     {ok, State}.
 
@@ -239,26 +172,6 @@ do_show(Manifest, State = #s{picker = Picker}) ->
     State#s{wallets = Manifest}.
 
 
-do_first_run(State = #s{frame = Frame, wallets = Manifest}) ->
-    Count = length(Manifest),
-    if
-        Count =:= 0 ->
-            do_wiz(State);
-        Count =:= 1 ->
-            do_open(State);
-        Count  >  1 ->
-            true = wxFrame:show(Frame),
-            wxFrame:raise(Frame),
-            State
-    end.
-
-
-close_wiz(State = #s{frame = Frame, wiz = {Wiz, _}}) ->
-    ok = wxWindow:destroy(Wiz),
-    true = wxFrame:show(Frame),
-    State#s{wiz = none}.
-
-
 do_close(#s{frame = Frame, prefs = Prefs}) ->
     Geometry =
         case wxTopLevelWindow:isMaximized(Frame) of
@@ -281,26 +194,10 @@ handle_button(Name, State) ->
 
 do_open(State = #s{wallets = []}) ->
     State;
-do_open(State = #s{wallets = [#wr{pass = true, path = Path}]}) ->
-    ok = do_open3(Path, State),
-    State;
-do_open(State = #s{wallets = [#wr{pass = false, path = Path}], frame = Frame}) ->
-    ok =
-        case gd_con:open_wallet(Path, none) of
-            ok ->
-                do_close(State);
-            Error ->
-                ok = ensure_shown(Frame),
-                trouble(Error)
-        end,
-    State;
 do_open(State = #s{picker = Picker}) ->
     case wxListBox:getSelection(Picker) of
-        -1 ->
+        -1       -> State;
-            State;
+        Selected -> do_open2(Selected + 1, State)
-        Selected ->
-            ok = do_open2(Selected + 1, State),
-            State
     end.
 
 do_open2(Selected, State = #s{wallets = Wallets}) ->
@@ -309,74 +206,43 @@ do_open2(Selected, State = #s{wallets = Wallets}) ->
             do_open3(Path, State);
         #wr{pass = false, path = Path} ->
             ok = gd_con:open_wallet(Path, none),
-            do_close(State)
-    end.
-
-do_open3(Path, State = #s{frame = Frame, j = J}) ->
-    Title = J("Passphrase"),
-    case zxw_modal_text:show(Frame, Title, [{password, true}]) of
-        {ok, Phrase} ->
-            case gd_con:open_wallet(Path, Phrase) of
-                ok    -> do_close(State);
-                Error -> trouble(Error)
-            end;
-        cancel ->
-            ok
-    end.
-
-
-do_wiz(State = #s{wx = WX, lang = Lang, wiz = none}) ->
-    Trans = gd_jt:read_translations(?MODULE),
-    J = gd_jt:j(Lang, Trans),
-
-    Wiz = wxFrame:new(WX, ?wxID_ANY, J("Initializing Wallet")),
-    MainSz = wxBoxSizer:new(?wxVERTICAL),
-
-    ButtonTemplates =
-        [{noob, J("I'm new!\nCreate a new account for me.")},
-         {l33t, J("Open the wallet manager.")}],
-
-    MakeButton =
-        fun({Name, Label}) ->
-            B = wxButton:new(Wiz, ?wxID_ANY, [{label, Label}]),
-            #w{name = Name, id = wxButton:getId(B), wx = B}
-        end,
-
-    Buttons = lists:map(MakeButton, ButtonTemplates),
-
-    Add = fun(#w{wx = Button}) -> wxBoxSizer:add(MainSz, Button, zxw:flags(wide)) end,
-    ok = lists:foreach(Add, Buttons),
-
-    ok = wxFrame:setSizer(Wiz, MainSz),
-    ok = wxSizer:layout(MainSz),
-
-    ok = wxFrame:connect(Wiz, command_button_clicked),
-    ok = wxFrame:connect(Wiz, close_window),
-    ok = wxFrame:setSize(Wiz, {300, 300}),
-    ok = wxFrame:center(Wiz),
-    true = wxFrame:show(Wiz),
-    State#s{wiz = {Wiz, Buttons}}.
-
-
-wiz_noob_assist(State = #s{j = J, wiz = {Wiz, _}}) ->
-    DefaultDir = zx_lib:path(var, "otpr", "gajudesk"),
-    Name = default_name(),
-    Path = filename:join(DefaultDir, Name),
-    case do_new2(Path, J, Wiz) of
-        ok ->
-            Label = J("Account 1"),
-            ok = gd_con:make_key({eddsa, ed25519}, 256, Label, <<>>, none, {sha3, 256}),
             ok = do_close(State),
-            State;
-        abort ->
             State
     end.
 
-default_name() ->
+do_open3(Path, State = #s{frame = Frame, j = J}) ->
-    {{YY, MM, DD}, {Hr, Mn, Sc}} = calendar:local_time(),
+    Label = J("Password"),
-    Form = "~4.10.0B-~2.10.0B-~2.10.0B_~2.10.0B-~2.10.0B-~2.10.0B",
+    Dialog = wxDialog:new(Frame, ?wxID_ANY, Label),
-    Name = io_lib:format(Form, [YY, MM, DD, Hr, Mn, Sc]),
+    Sizer = wxBoxSizer:new(?wxVERTICAL),
-    unicode:characters_to_list(Name ++ ".gaju").
+    PassSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, Label}]),
+    PassTx = wxTextCtrl:new(Dialog, ?wxID_ANY, [{style, ?wxTE_PASSWORD}]),
+    _ = wxStaticBoxSizer:add(PassSz, PassTx, zxw:flags(wide)),
+    ButtSz = wxBoxSizer:new(?wxHORIZONTAL),
+    Affirm = wxButton:new(Dialog, ?wxID_OK),
+    _ = wxBoxSizer:add(ButtSz, Affirm, zxw:flags(wide)),
+    _ = wxBoxSizer:add(Sizer, PassSz, zxw:flags(base)),
+    _ = wxBoxSizer:add(Sizer, ButtSz, zxw:flags(wide)),
+    ok = wxDialog:setSizer(Dialog, Sizer),
+    ok = wxBoxSizer:layout(Sizer),
+    ok = wxDialog:setSize(Dialog, {500, 130}),
+    ok = wxFrame:center(Dialog),
+    ok = wxStyledTextCtrl:setFocus(PassTx),
+    case wxDialog:showModal(Dialog) of
+        ?wxID_OK ->
+            case wxTextCtrl:getValue(PassTx) of
+                "" ->
+                    ok = wxDialog:destroy(Dialog),
+                    State;
+                Phrase ->
+                    ok = wxDialog:destroy(Dialog),
+                    ok = gd_con:open_wallet(Path, Phrase),
+                    ok = do_close(State),
+                    State
+            end;
+        ?wxID_CANCEL ->
+            ok = wxDialog:destroy(Dialog),
+            State
+    end.
 
 
 do_new(State = #s{frame = Frame, j = J, prefs = Prefs}) ->
@@ -384,9 +250,8 @@ do_new(State = #s{frame = Frame, j = J, prefs = Prefs}) ->
     Options =
         [{message,     J("Save Location")},
          {defaultDir,  DefaultDir},
-         {defaultFile, default_name()},
+         {defaultFile, "default.gaju"},
          {wildCard,    "*.gaju"},
-         {sz,          {300, 270}},
          {style,       ?wxFD_SAVE bor ?wxFD_OVERWRITE_PROMPT}],
     Dialog = wxFileDialog:new(Frame, Options),
     case wxFileDialog:showModal(Dialog) of
@@ -398,9 +263,7 @@ do_new(State = #s{frame = Frame, j = J, prefs = Prefs}) ->
             case do_new2(Path, J, Frame) of
                 ok ->
                     NewPrefs = maps:put(dir, Dir, Prefs),
-                    NewState = State#s{prefs = NewPrefs},
+                    do_close(State#s{prefs = NewPrefs});
-                    ok = do_close(NewState),
-                    NewState;
                 abort ->
                     State
             end;
@@ -412,8 +275,7 @@ do_new(State = #s{frame = Frame, j = J, prefs = Prefs}) ->
 do_new2(Path, J, Frame) ->
     Dialog = wxDialog:new(Frame, ?wxID_ANY, J("New Wallet"), [{size, {400, 250}}]),
     Sizer = wxBoxSizer:new(?wxVERTICAL),
-    NetworkOptions = [J("Mainnet"), J("Testnet")],
+
-    Network = wxRadioBox:new(Dialog, ?wxID_ANY, J("Network"), {0, 0}, {50, 50}, NetworkOptions),
     NameSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Name")}]),
     NameTx = wxTextCtrl:new(Dialog, ?wxID_ANY),
     _ = wxSizer:add(NameSz, NameTx, zxw:flags(wide)),
@@ -432,14 +294,12 @@ do_new2(Path, J, Frame) ->
     _ = wxBoxSizer:add(ButtSz, Affirm, zxw:flags(wide)),
     _ = wxBoxSizer:add(ButtSz, Cancel, zxw:flags(wide)),
 
-    _ = wxBoxSizer:add(Sizer, Network, zxw:flags(base)),
     _ = wxSizer:add(Sizer, NameSz, zxw:flags(base)),
     _ = wxSizer:add(Sizer, PassSz, zxw:flags(base)),
     _ = wxSizer:add(Sizer, PassConSz, zxw:flags(base)),
     _ = wxSizer:add(Sizer, ButtSz, zxw:flags(wide)),
 
     ok = wxDialog:setSizer(Dialog, Sizer),
-    ok = wxDialog:setSize(Dialog, {300, 270}),
     ok = wxBoxSizer:layout(Sizer),
     ok = wxDialog:center(Dialog),
     ok = wxStyledTextCtrl:setFocus(NameTx),
@@ -447,12 +307,6 @@ do_new2(Path, J, Frame) ->
     Result =
         case wxDialog:showModal(Dialog) of
             ?wxID_OK ->
-                Net =
-                    case wxRadioBox:getSelection(Network) of
-                        0 -> mainnet;
-                        1 -> testnet;
-                        _ -> mainnet
-                    end,
                 Name =
                     case wxTextCtrl:getValue(NameTx) of
                         "" -> Path;
@@ -464,17 +318,17 @@ do_new2(Path, J, Frame) ->
                         {P, P}   -> P;
                         {_, _}   -> bad
                     end,
-                do_new3(Net, Name, Path, Pass);
+                do_new3(Name, Path, Pass);
             ?wxID_CANCEL ->
                 abort
         end,
     ok = wxDialog:destroy(Dialog),
     Result.
 
-do_new3(_, _, _, bad) ->
+do_new3(_, _, bad) ->
     abort;
-do_new3(Net, Name, Path, Pass) ->
+do_new3(Name, Path, Pass) ->
-    gd_con:new_wallet(Net, Name, Path, Pass).
+    gd_con:new_wallet(Name, Path, Pass).
 
 
 do_import(State = #s{frame = Frame, j = J, prefs = Prefs}) ->
@@ -493,9 +347,7 @@ do_import(State = #s{frame = Frame, j = J, prefs = Prefs}) ->
             case do_import2(Dir, File, J, Frame) of
                 ok ->
                     NewPrefs = maps:put(dir, Dir, Prefs),
-                    NewState = State#s{prefs = NewPrefs},
+                    do_close(State#s{prefs = NewPrefs});
-                    ok = do_close(NewState),
-                    NewState;
                 abort ->
                     State
             end;
@@ -508,15 +360,51 @@ do_import2(_, "", _, _) ->
     abort;
 do_import2(Dir, File, J, Frame) ->
     Path = filename:join(Dir, File),
-    Title   = J("Import Wallet"),
+    Dialog = wxDialog:new(Frame, ?wxID_ANY, J("Import Wallet")),
-    NameL   = J("Wallet Name"),
+    Sizer = wxBoxSizer:new(?wxVERTICAL),
-    PassL   = J("Passphrase (leave blank if none)"),
+
-    OK_L    = J("OK"),
+    NameSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Name")}]),
-    CancelL = J("Cancel"),
+    NameTx = wxTextCtrl:new(Dialog, ?wxID_ANY),
-    case gd_m_wallet_importer:show(Frame, Title, NameL, PassL, OK_L, CancelL) of
+    _ = wxSizer:add(NameSz, NameTx, zxw:flags(wide)),
-        {ok, Name, Pass} -> gd_con:import_wallet(Name, Path, Pass);
+    PassSz = wxStaticBoxSizer:new(?wxVERTICAL, Dialog, [{label, J("Passphrase")}]),
-        cancel           -> abort
+    PassTx = wxTextCtrl:new(Dialog, ?wxID_ANY),
-    end.
+    _ = wxSizer:add(PassSz, PassTx, zxw:flags(wide)),
+
+    ButtSz = wxBoxSizer:new(?wxHORIZONTAL),
+    Affirm = wxButton:new(Dialog, ?wxID_OK),
+    Cancel = wxButton:new(Dialog, ?wxID_CANCEL),
+    _ = wxBoxSizer:add(ButtSz, Affirm, zxw:flags(wide)),
+    _ = wxBoxSizer:add(ButtSz, Cancel, zxw:flags(wide)),
+
+    _ = wxSizer:add(Sizer, NameSz, zxw:flags(base)),
+    _ = wxSizer:add(Sizer, PassSz, zxw:flags(base)),
+    _ = wxSizer:add(Sizer, ButtSz, zxw:flags(wide)),
+
+    ok = wxDialog:setSizer(Dialog, Sizer),
+    ok = wxBoxSizer:layout(Sizer),
+    ok = wxFrame:setSize(Dialog, {500, 200}),
+    ok = wxFrame:center(Dialog),
+    ok = wxStyledTextCtrl:setFocus(NameTx),
+
+    Result =
+        case wxDialog:showModal(Dialog) of
+            ?wxID_OK ->
+                Name =
+                    case wxTextCtrl:getValue(NameTx) of
+                        "" -> Path;
+                        N  -> N
+                    end,
+                Pass =
+                    case wxTextCtrl:getValue(PassTx) of
+                        "" -> none;
+                        P   -> P
+                    end,
+                gd_con:import_wallet(Name, Path, Pass);
+            ?wxID_CANCEL ->
+                abort
+        end,
+    ok = wxDialog:destroy(Dialog),
+    Result.
 
 
 do_drop(State = #s{picker = Picker}) ->
@@ -561,13 +449,3 @@ do_drop(Selected, State = #s{j = J, frame = Frame, wallets = Wallets}) ->
                 ok
         end,
     State.
-
-
-ensure_shown(Frame) ->
-    case wxWindow:isShown(Frame) of
-        true  ->
-            ok;
-        false ->
-            true = wxFrame:show(Frame),
-            ok
-    end.

zomp.meta

@@ -1,20 +1,20 @@
-{name,"GajuDesk"}.
+{name,"Clutch"}.
 {type,gui}.
 {modules,[]}.
 {prefix,"gd"}.
 {author,"Craig Everett"}.
 {desc,"A desktop client for the Gajumaru network of blockchain networks"}.
-{package_id,{"otpr","gajudesk",{0,9,0}}}.
+{package_id,{"otpr","gajudesk",{0,5,4}}}.
-{deps,[{"otpr","hakuzaru",{0,9,1}},
+{deps,[{"otpr","hakuzaru",{0,5,1}},
-       {"otpr","zxwidgets",{1,1,0}},
-       {"otpr","eblake2",{1,0,1}},
-       {"otpr","base58",{0,1,1}},
        {"otpr","gmserialization",{0,1,3}},
        {"otpr","sophia",{9,0,0}},
        {"otpr","gmbytecode",{3,4,1}},
        {"otpr","lom",{1,0,0}},
        {"otpr","zj",{1,1,0}},
-       {"otpr","ec_utils",{1,0,0}}]}.
+       {"otpr","erl_base58",{0,1,0}},
+       {"otpr","eblake2",{1,0,0}},
+       {"otpr","ec_utils",{1,0,0}},
+       {"otpr","zxwidgets",{1,0,1}}]}.
 {key_name,none}.
 {a_email,"craigeverett@qpq.swiss"}.
 {c_email,"info@qpq.swiss"}.