%VIEWAB is a subroutine of "fractory.m" which opens up a
%window over the SQUARE TRANSFORMATION box on the control
%panel.  In this window are seen the A matrix and b vector
%which define the linear transformation currently selected
%by the function selection slider.

%View A,b frame
VWpos=get(STframe,'Position');
viewbox(1) = uicontrol(Cpan,...
    'Style','frame',...
    'Position',VWpos);
VWpos(3:4)=[0 0];
%A label static text
viewbox(2) =  uicontrol(Cpan,...
    'Style','text',...
    'Position',VWpos+[7 290 28 20],...
    'String','A =');
%A(1,1) editable text
viewbox(3) = uicontrol(Cpan,...
    'Style','edit',...
    'Position',VWpos+[38 302 50 20],...
    'Callback',['curdat(11)=11;','updatecd']);
%A(1,2) editable text
viewbox(4) = uicontrol(Cpan,...
    'Style','edit',...
    'Position',VWpos+[93 302 50 20],...
    'Callback',['curdat(11)=11;','updatecd']);
%A(2,1) editable text
viewbox(5) = uicontrol(Cpan,...
    'Style','edit',...
    'Position',VWpos+[38 278 50 20],...
    'Callback',['curdat(11)=11;','updatecd']);
%A(2,2) editable text
viewbox(6) = uicontrol(Cpan,...
    'Style','edit',...
    'Position',VWpos+[93 278 50 20],...
    'Callback',['curdat(11)=11;','updatecd']);
%b label static text
viewbox(7) =  uicontrol(Cpan,...
    'Style','text',...
    'Position',VWpos+[20 200 25 20],...
    'String','b =');
%b(1) editable text
viewbox(8) = uicontrol(Cpan,...
    'Style','edit',...
    'Position',VWpos+[55 212 50 20],...
    'Callback',['curdat(11)=11;','updatecd']);
%b(2) editable text
viewbox(9) = uicontrol(Cpan,...
    'Style','edit',...
    'Position',VWpos+[55 188 50 20],...
    'Callback',['curdat(11)=11;','updatecd']);
%Close viewbox button
viewbox(10) = uicontrol(Cpan,...
    'Style','push',...
    'Position',VWpos+[15 50 120 35],...
    'String','Close Ax+b Box',...
    'CallBack',['viewon=0;',...
        'for nn=1:12,',...
            'delete(viewbox(nn)),',...
        'end,',...
        'ctlmode=''on'';',...
        'setwho=1;',...
        'setctl,',...
        'curdat(11)=-3;','updatecd']);
%Title frame 1
viewbox(11) = uicontrol(Cpan,...
    'Style','frame',...
    'Position',VWpos+[15 425 120 50]);
%A,b View Box title static text 1
viewbox(12) =  uicontrol(Cpan,...
    'Style','text',...
    'Position',VWpos+[20 440 110 20],...
    'String','Ax+b  DATA');