function Clipboard=setclipboard(clip)
%SETCLIPBOARD Store the passed argument in the clipboard

%
% Copyright (c) 1995 by Claudio Rivetti and Mark Young
% claudio@alice.uoregon.edu,    mark@alice.uoregon.edu
%

global TempDir Clipboard

if isempty(clip)
  Clipboard=[];
  set(findobj('tag', 'UNDOITEM'), 'Enable', 'off');
else
  Clipboard=[TempDir 'alexclip.tmp'];
  save(Clipboard,'clip');
  set(findobj('tag', 'UNDOITEM'), 'Enable', 'on');
end

return