add popup for list account for sale.

src/gui/UCTRLWallet.lfm

@@ -173,6 +173,10 @@ object CTRLWallet: TCTRLWallet
       Caption = 'Change Account(s) Private Key'
       OnClick = miChangeAccountsPrivateKeyClick
     end
+    object miListAccountsForSale: TMenuItem
+      Caption = 'List Account(s) For Sale'
+      OnClick = miListAccountsForSaleClick
+    end
     object miSep1: TMenuItem
       Caption = '-'
     end

src/gui/UCTRLWallet.pas

@@ -34,6 +34,7 @@ type
     miSendPASC: TMenuItem;
     miTransferAccounts: TMenuItem;
     miChangeAccountsPrivateKey: TMenuItem;
+    miListAccountsForSale: TMenuItem;
     miAccountInfo: TMenuItem;
     miSep1: TMenuItem;
     miSep2: TMenuItem;
@@ -56,6 +57,7 @@ type
     procedure miSendPASCClick(Sender: TObject);
     procedure miTransferAccountsClick(Sender: TObject);
     procedure miChangeAccountsPrivateKeyClick(Sender: TObject);
+    procedure miListAccountsForSaleClick(Sender: TObject);
   private
     FNodeNotifyEvents: TNodeNotifyEvents;
     FAccountsMode: TCTRLWalletAccountsMode;
@@ -611,6 +613,9 @@ begin
   miChangeAccountsPrivateKey.Caption :=
     IIF(ASelection.RowCount = 1, 'Change Account Private Key',
     'Change Accounts Private Key');
+  miListAccountsForSale.Caption :=
+    IIF(ASelection.RowCount = 1, 'List Account For Sale',
+    'List Accounts For Sale');
   APopupMenu := mnuAccountsPopup;
 end;
 
@@ -682,6 +687,11 @@ begin
   wiz.Start(model);
 end;
 
+procedure TCTRLWallet.miListAccountsForSaleClick(Sender: TObject);
+begin
+ raise ENotImplemented.Create('not yet implemented.');
+end;
+
 procedure TCTRLWallet.OnPrepareOperationsPopupMenu(Sender: TObject;
   constref ASelection: TVisualGridSelection; out APopupMenu: TPopupMenu);
 begin