function vpinfosetup
%
%  Name: vpinfosetup
% 
%  Usage: vpinfosetup
% 
%   Description:
%     Defines objects for info text for the comparative viewports
%
%     Called by diamond.m
%   
%

%
%  Version SWD970806
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% This matlab source code was originally     %
% developed as part of "DIAMOND" at          %
% Los Alamos National Laboratory. It may     %
% be copied, modified, and distributed in    %
% any form, provided:                        %
%  a) This notice accompanies the files and  %
%     appears near the top of all source     %
%     code files.                            %
%  b) No payment or commercial services are  %
%     received in exchange for the code.     %
%                                            %
% Original copyright is reserved by the      %
% Regents of the University of California,   %
% in addition to Scott W. Doebling, Phillip  %
% J. Cornwell, Erik G. Straser, and Charles  %
% R. Farrar.                                 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

global HANDLES

%  Define the figure window

HANDLES.hvpinfofig = figure('units','normal','position',[0 0 0.8 0.8],...
   'resize','on','visible','off','menubar','none',...
   'numbertitle','off','name','DIAMOND: Info for Viewports');

%  Define the figure window and listbox controls


HANDLES.hvpinfotext(1) = uicontrol('style','listbox','position',[0.05 0.75 0.9 0.2]);
HANDLES.hvpinfolabel(1) = uicontrol('position',[0.05 0.95 0.20 0.025],'style','text',...
   'string','VIEWPORT 1');

HANDLES.hvpinfotext(2) = uicontrol('style','listbox','position',[0.05 0.50 0.9 0.2]);
HANDLES.hvpinfolabel(2) = uicontrol('position',[0.05 0.70 0.20 0.025],'style','text',...
   'string','VIEWPORT 2');

HANDLES.hvpinfotext(3) = uicontrol('style','listbox','position',[0.05 0.25 0.9 0.2]);
HANDLES.hvpinfolabel(3) = uicontrol('position',[0.05 0.45 0.20 0.025],'style','text',...
   'string','VIEWPORT 3');

HANDLES.hvpinfotext(4) = uicontrol('style','listbox','position',[0.05 0.0 0.9 0.2]);
HANDLES.hvpinfolabel(4) = uicontrol('position',[0.05 0.20 0.20 0.025],'style','text',...
   'string','VIEWPORT 4');

%  Define hide button

uicontrol('position',[0.45 0.20 0.1 0.05],'style','pushbutton',...
   'string','Hide','callback','set(HANDLES.hvpinfofig,''visible'',''off'')')

%  ALL DONE

return