%
%  Name: editdof.m
%
%  Usage: strout = editdof(strin)
%
%  Edits the DIAMOND DOF lists
%

%
%  Version SWD970521
%
%  Author(s): Scott W. Doebling, doebling@lanl.gov
%
%  Institution: Los Alamos National Laboratory,
%               ESA-EA
%
%  Copyright (c) 1997, The Regents of the University
%       of California. (See top level of code for
%       full copyright statement.)
%

%
%  Define uicontrols
%

hesfig = figure('Name','DIAMOND: EditDOF', ...
   'units','normal',...
	'NumberTitle','off', ...
   'menubar','none',...
   'Position',[0.25 0.4 0.5 0.25]);

hestitle = uicontrol('style','text',...
   'position',[0.02 0.90 0.96 0.10],...
   'horizontalalignment','left');

hesstr = uicontrol('style','edit',...
   'position',[0.02 0.15 0.96 0.75],...
   'horizontalalignment','left',...
   'max',2);

uicontrol('style','pushbutton',...
   'position',[0.80 0.01 0.15 0.14],...
   'string','Close',...
   'callback',[...
      ' temp = str2num(get(hesstr,''string'')); respDOF = temp(:,2:3); listdof,',...
      'delete(hesfig)']);

%
%  Set title string and editor string
%

titlestr = chantstr(1,1:end-1); 
bodystr = num2str([[1:size(respDOF,1)]' respDOF]);

set(hestitle,'string',titlestr)
set(hesstr,'string',bodystr)