function varargout = wvtool(varargin)
%WVTOOL Window Visualization Tool.
%   WVTOOL is a Graphical User Interface (GUI) that allows you to analyze windows.  
%
%   WVTOOL(W) launches the Window Visualization Tool with window vector W.
%
%   WVTOOL(W1,W2, ...) will perform an analysis on multiple windows.
%
%   WVTOOL(H) launches the Window Visualization Tool with sigwin object H.
%   Type 'doc sigwin' for more information.
%
%   H = WVTOOL(...) returns the figure handle.
%
%   EXAMPLES:
%   % #1 Analysis of a single window
%   w = chebwin(64,100);
%   wvtool(w);
%
%   % #2 Analysis of multiple vectors
%   w1 = bartlett(64);
%   w2 = hamming(64);
%   wvtool(w1,w2);
%
%   % #3 Analysis of window objects
%   w1 = sigwin.bartlett(64);
%   w2 = sigwin.hamming(64);
%   wvtool(w1,w2);
%
%   See also WINTOOL, FVTOOL.

%   Author(s): V.Pellissier
%   Copyright 1988-2002 The MathWorks, Inc.
%   $Revision: 1.8 $  $Date: 2002/11/21 15:35:53 $

error(nargchk(1,inf,nargin));

% Parse the inputs
[winobjs, winvects, msg] = parse_inputs(varargin{:});
error(msg);

% Instanciate the winview object
h = sigtools.wvtool;
% Render the winview object
render(h);
% Add windows to the viewer
addwin(h, winobjs, winvects);

% Turn visibility on
set(h, 'Visible', 'on');

% Return WVTools' handle
if nargout,
    
    % Render zoom buttons to respond to ML zoom commands.
    render_hiddenzoombtns(h.FigureHandle);
    varargout = {h.FigureHandle, h};
end


% -----------------------------------------------------
function [winobjs, winvects, msg] = parse_inputs(varargin)
% Input arguments must be window objects or vectors

msg = '';
winobjs = [];
winvects = {};
for i=1:nargin,
    if isa(varargin{i}, 'sigwin.variablelength'),
        winobjs = [winobjs; varargin{i}];
    elseif isnumeric(varargin{i}),
        winvects{end+1} = varargin{i};
    else
        msg = 'Invalid input argument.';
    end
end
    

% [EOF]