% CB_WORKSPACEOBJSLIST callback for workspace object list.
% 
% M Hewitson 22-09-08
% 
% $Id: cb_workspaceObjsList.m,v 1.1 2008/09/22 14:28:56 hewitson Exp $
% 
function cb_workspaceObjsList(varargin)

  % Handles
  myh     = varargin{1};
  mainfig = varargin{end};
  
  % get the selected line
  val = get(myh, 'Value');
  if length(val) == 1
    lines = get(myh, 'String');
    objname = deblank(strtok(lines{val}));

    cmd = sprintf('obj = evalin(''base'', ''%s'');', objname);
    eval(cmd);

    obj
    objtxt = display(obj);
  else
    objtxt = '';
  end

  st = '';
  for j=1:length(objtxt)
    st = [st sprintf('%s\n', objtxt{j})];
  end

  % set objDisplay Txt
  set(myh, 'TooltipString', st);
end
