diff options
Diffstat (limited to 'js/Misc/fortran_block.js')
| -rw-r--r-- | js/Misc/fortran_block.js | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/js/Misc/fortran_block.js b/js/Misc/fortran_block.js index e829d7ee..47d6a4c4 100644 --- a/js/Misc/fortran_block.js +++ b/js/Misc/fortran_block.js @@ -15,7 +15,7 @@ model.blocktype="c"; model.firing=[]; model.dep_ut=[true,false]; funam="forty"; -label=list([sci2exp(model.in1),sci2exp(model.out),strcat(sci2exp(model.rpar)),funam],list([])); +label=list([[sci2exp(model.in1)],[sci2exp(model.out)],[strcat(sci2exp(model.rpar))],[funam]],list([])); gr_i=[]; x=standard_define([4,2],model,label,gr_i); } @@ -29,7 +29,7 @@ model=arg1.model; graphics=arg1.graphics; label=graphics.exprs; while (true) { -[ok,i,o,rpar,funam,lab]=scicos_getvalue("Set fortran_block parameters",["input ports sizes","output port sizes","System parameters vector","function name"],list("vec",-1,"vec",-1,"vec",-1,"str",-1),label(1)); +[ok,i,o,rpar,funam,lab]=scicos_getvalue("Set fortran_block parameters",[["input ports sizes"],["output port sizes"],["System parameters vector"],["function name"]],list("vec",-1,"vec",-1,"vec",-1,"str",-1),label(1)); if (!ok) { break; } |