%
% SBLOCK is a m-file which make the menu for makeing
% a superblock in Simulink.

%    Author:  Ole Barup Sorensen, Rapid Data Ltd 

%    Copyright (c) 1989-94 by Rapid Data Ltd
%    Revision 10:09  07/02/94

okflag=figflag('Building a superblock in Simulink',0);

if okflag==0,
  Fig5=figure('Numbertitle','off','Name','Building a superblock in Simulink','Menubar','none',...
  'Units','normal','Position',[(220)/Scx (150)/Scy (400)/Scx (160)/Scy],'Nextplot',...
  'new','Resize','off','Color',[0.5 0.5 0.5]);
Flg=0;
x=15;
y=0;
Sx=330;Sy=160;
Han_b(1)=uicontrol(Fig5,'Style','frame','Position',[(x)/Sx (y+55)/Sy (300)/Sx (80)/Sy]);
Han_b(2)=uicontrol(Fig5,'Style','Text','String','Build your block by using the library, remember',...
'Position',[(x+15)/Sx (y+110)/Sy (275)/Sx (20)/Sy]);
Han_b(3)=uicontrol(Fig5,'Style','Text','String','you can only use one inport and outport.',...
'Position',[(x+15)/Sx (y+90)/Sy (275)/Sx (20)/Sy]);


Han_b(4)=uicontrol(Fig5,'Style','Text','String','Enter filename for the superblock:',...
'Position',[(x+15)/Sx (y+60)/Sy (200)/Sx (20)/Sy]);
Han_b(5)=uicontrol(Fig5,'Style','Edit','Position',...
[(x+225)/Sx (y+60)/Sy (60)/Sx (20)/Sy],'Backgroundcolor',[1 1 1],'String',bname,'Callback',...
'bname=get(Han_b(5),''String'');');

set([Han_b(2:4)],'Foregroundcolor',[0 0 0],'HorizontalAlignment','left');

Han_b(6)=uicontrol(Fig5,'Style','push','String','Done','Position',...
[(x)/Sx (y+15)/Sy (80)/Sx (20)/Sy],'Callback',['[A,B,C,D]=linmod(bname);',...
'[G_num,G_den]=ss2tf(A,B,C,D);',...
'if Flg==1,close_system(bname);close_system(''blk_lib'');end;',...
'close(Fig5);clear Fig5 Han_b;']);

Han_b(7)=uicontrol(Fig5,'Style','push','String','Cancel','Position',...
[(x+90)/Sx (y+15)/Sy (80)/Sx (20)/Sy],'Callback',['G_num=1;G_den=1;',...
'if Flg==1,close_system(bname);close_system(''blk_lib'');end;',...
'close(Fig5);clear Fig5 Han_b;']);

Han_b(8)=uicontrol(Fig5,'Style','push','String','Build Superblock','Position',...
[(x+180)/Sx (y+15)/Sy 120/Sx 20/Sy],'Callback',['',...
'if exist(bname)==0,new_system(bname);end;blk_lib;',...
'open_system(bname);set_param(bname,''Location'',[210,85,640,480]);',...
'set_param(''blk_lib'',''Location'',[0,125,155,480]);Flg=1;']);
%'if exist(bname)==0,new_system(bname);end;open_system(''blk_lib'');',...
%'open_system(bname);set_param(bname,''Location'',[210,85,640,480]);',...
%'set_param(''blk_lib'',''Location'',[0,125,155,480]);Flg=1;']);
end
clear okflag