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

%
%  Version SWD970703
%
%  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 the figure window

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


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

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

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

hvpinfotext(4) = uicontrol('style','listbox','position',[0.05 0.0 0.9 0.2]);
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(hvpinfofig,''visible'',''off'')')

%  ALL DONE