local F = far.Flags
local ID = 1;
Macro { description="test";
  area="Menu MainMenu UserMenu Drives"; key="F1";
  id="B6B7E8FB-8A75-46A1-917F-EE258F83934A";
  action=function()
    local hDlg = far.AdvControl(F.ACTL_GETWINDOWINFO).Id;
    hDlg:send(F.DM_SHOWDIALOG,0)
    local list = far.GetDlgItem(hDlg,ID)[6] --[6]  Selected/ListItems: integer/table
    local item
    for i=#list,3,-1 do
      item = list[i]
      hDlg:send(F.DM_LISTUPDATE,ID,{Index=i,Text=item.Text,Flags=bor(item.Flags,F.LIF_HIDDEN)})
    end
    hDlg:send(F.DM_SHOWDIALOG,1)
    Menu.Filter(4)
  end;
}