function ltpdv_server_server_select(varargin)

% Handles
myh     = varargin{1};
mainfig = varargin{end};

% Get selected server
sh   = findobj(mainfig, 'Tag', 'LTPDVserverServer');
idx  = get(sh, 'Value');
strs = get(sh, 'String');
srv  = strs{idx};

% split port off
[server, port] = strtok(srv, '/');
if ~isempty(port)
   port = str2num(port(2:end));
end

% Set server edit box
eh = findobj(mainfig, 'Tag', 'LTPDVserverServerEdit');
set(eh, 'String', server);

% Set port edit box
eh = findobj(mainfig, 'Tag', 'LTPDVserverPortEdit');
set(eh, 'String', port);



