function objs = ltpdv_getWorkspaceObjs()
% LTPDV_GETWORKSPACEOBJS gets a list of LTPDA user objects currently in the
% MATLAB workspace.
%
% M Hewitson 22-04-08
%
% $Id: ltpdv_getWorkspaceObjs.m,v 1.2 2008/06/18 15:07:35 hewitson Exp $
%

% get base workspace variables
ws_vars = evalin('base','whos');

objs = [];
for j=1:length(ws_vars)

   cmd = sprintf('obj = evalin(''base'', ''%s'');', ws_vars(j).name);
   eval(cmd)
   if isa(obj, 'ltpda_uo')
      objs = [objs ws_vars(j)];
   end

end