--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/m/gui/ltpdv/callbacks/ltpdv_server_server_select.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,28 @@
+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);
+
+
+