--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/m/gui/ltpdv/callbacks/ltpdv_server_get_server.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,35 @@
+function [dtype, server, port, rds, cal, stat] = ltpdv_server_get_server(mainfig)
+
+
+% Get data type
+sh = findobj(mainfig, 'Tag', 'LTPDVserverDataType');
+idx = get(sh, 'Value');
+strs = get(sh, 'String');
+dtype = strs{idx};
+
+% Get server 
+sh = findobj(mainfig, 'Tag', 'LTPDVserverServerEdit');
+server = get(sh, 'String');
+
+% Get port
+sh = findobj(mainfig, 'Tag', 'LTPDVserverPortEdit');
+port = str2num(get(sh, 'String'));
+
+% Get rds
+sh = findobj(mainfig, 'Tag', 'LTPDVserverRdsEdit');
+rds = str2num(get(sh, 'String'));
+
+% Get cal
+sh = findobj(mainfig, 'Tag', 'LTPDVserverCalEdit');
+cal = str2num(get(sh, 'String'));
+
+% Get stat
+sh = findobj(mainfig, 'Tag', 'LTPDVserverStat');
+idx = get(sh, 'Value');
+strs = get(sh, 'String');
+stat = strs{idx};
+
+
+
+
+