0001 function ltpdv_server_server_select(varargin)
0002
0003
0004 myh = varargin{1};
0005 mainfig = varargin{end};
0006
0007
0008 sh = findobj(mainfig, 'Tag', 'LTPDVserverServer');
0009 idx = get(sh, 'Value');
0010 strs = get(sh, 'String');
0011 srv = strs{idx};
0012
0013
0014 [server, port] = strtok(srv, '/');
0015 if ~isempty(port)
0016 port = str2num(port(2:end));
0017 end
0018
0019
0020 eh = findobj(mainfig, 'Tag', 'LTPDVserverServerEdit');
0021 set(eh, 'String', server);
0022
0023
0024 eh = findobj(mainfig, 'Tag', 'LTPDVserverPortEdit');
0025 set(eh, 'String', port);
0026
0027
0028