return_typ_block2 - return types of the parameters of the gui of a scicos block
txt = return_typ_block2(name,txt_exprs)
- name : string. the name of the interfacing function of a scicos block (extension free)
- txt_exprs : string. special instruction to execute in the define case for displaying sub-adjacent window
- txt : string. the text of the type of the dialogue parameter
function txt=return_typ_block2(name,txt_exprs)
//Disable scilab function protection
prot=funcprot();
funcprot(0);
//load scicos libraries
load SCI/macros/scicos/lib
exec(loadpallibs,-1)
%scicos_prob=%f;
alreadyran=%f
needcompile=4
//%zoom=1.8;
//redefine getvalue
getvalue=mgetvalue2;
//retrieve labels of getvalue fonction
global mytyp
ierror=execstr('blk='+name+'(''define'')','errcatch')
if ierror<>0 then
x_message(['Error in GUI function';lasterror()] )
disp(name)
fct=[]
return
end
execstr(txt_exprs);
ierror=execstr('blk='+name+'(''set'',blk)','errcatch')
if ierror <>0 then
x_message(['Error in GUI function';lasterror()] )
disp(name)
fct=[]
return
end
//restore function protection
funcprot(prot);
if mytyp<>[] then
for i=1:(size(mytyp)/2)
txt(i,1)=mytyp(2*i-1);
txt(i,2)=string(mytyp(2*i));
end
else
txt(1,1)=[]
txt(1,2)=[]
end
clearglobal mydesc
clearglobal mylables
clearglobal mytyp
clearglobal myini
endfunction
IRCOM Group
Alan Layec