function h = fdatool_design(hSB)
%FDATOOL_DESIGN Install the design panel in fdatool

%   Author(s): J. Schickler
%   Copyright 1988-2004 The MathWorks, Inc.
%   $Revision: 1.11.4.6 $  $Date: 2004/08/10 02:11:56 $

hFDA = getfdasessionhandle(hSB.FigureHandle);
sz   = fdatool_gui_sizes(hFDA);

h = siggui.designpanel;
render(h,hSB.FigureHandle, sz.panel);

set(h, 'isDesigned', 1);
set(h, 'StaticResponse', 'On');
install_listeners(h);

% -----------------------------------------------------------------------
function install_listeners(h)

hFDA = getfdasessionhandle(h.FigureHandle);

addlistener(hFDA, 'FilterUpdated', {@filterupdated_eventcb, hFDA}, h);
addlistener(hFDA, 'FullViewAnalysis', @fullviewanalysis_eventcb, h); 
addlistener(hFDA, 'Print', @print_eventcb, h); 
addlistener(hFDA, 'PrintPreview', @printpreview_eventcb, h); 

l = handle.listener(h, 'FilterDesigned', {@filterdesigned_eventcb, h});

set(l, 'CallbackTarget', hFDA);

setappdata(hFDA, 'designPanelListeners', l);


% -----------------------------------------------------------------------
%       Event Callbacks
% -----------------------------------------------------------------------

% -----------------------------------------------------------------------
function filterdesigned_eventcb(hFDA, eventData, h)

data = get(eventData, 'Data');

opts.fcnhndl  = @setdesignedflag;
opts.source   = 'Designed';

opts.fs = get(h, 'CurrentFs');
opts.mcode = data.mcode;
opts.resetmcode = true;

hFDA.setfilter(data.filter, opts);


% -----------------------------------------------------------------------
function print_eventcb(h, eventData)

if strcmpi(h.StaticResponse, 'On') && strcmpi(h.Visible, 'On'),
    hfig = copyStaticResponse(h);
    
    setptr(hfig,'watch');   % Set mouse cursor to watch.
    printdlg(hfig);
    setptr(hfig,'arrow');   % Reset mouse pointer.
    close(hfig)
end

% -----------------------------------------------------------------------
function printpreview_eventcb(h, eventData)

if strcmpi(h.StaticResponse, 'On') && strcmpi(h.Visible, 'On'),
    hfig = copyStaticResponse(h);
    hWin_printprev = printpreview(hfig);
    uiwait(hWin_printprev)
    delete(hfig)
end

% -----------------------------------------------------------------------
function fullviewanalysis_eventcb(h, eventData)

if strcmpi(h.StaticResponse, 'On') && strcmpi(h.Visible, 'On'),
    hfig = copyStaticResponse(h);
    set(hfig, 'Name', 'Full View Analysis', 'Visible', 'On');
end

% -----------------------------------------------------------------------
function filterupdated_eventcb(h, eventData, hFDA)

% If the new filter is not designed then set the isdesigned flag
fmb = get(hFDA, 'filtermadeby');
if ~strncmpi(fmb, 'designed', 8),
    set(h, 'isDesigned', 0);
end

% -----------------------------------------------------------------------
function hfig = copyStaticResponse(h)

hax = findobj(h.FigureHandle, ...
    'Type', 'Axes', ...
    'Tag', 'staticresponse_axes');
hfig = createfigcopy(hax);

% [EOF]