x_message => messagebox(,'modal')
Pierre MARECHAL [Fri, 9 Jan 2009 15:00:30 +0000 (16:00 +0100)]
80 files changed:
scilab/modules/cacsd/demos/lqg/lqg.dem
scilab/modules/cacsd/demos/mixed.dem
scilab/modules/cacsd/demos/pendulum/pendule.dem
scilab/modules/cacsd/demos/pid.dem
scilab/modules/core/tests/unit_tests/comment.dia.ref
scilab/modules/core/tests/unit_tests/comment.tst
scilab/modules/demo_tools/help/en_US/demo_message.xml
scilab/modules/demo_tools/help/fr_FR/demo_message.xml
scilab/modules/demo_tools/macros/demo_compiler.sci
scilab/modules/demo_tools/macros/demo_message.sci
scilab/modules/differential_equations/demos/n_pendulum/n_pendulum.sci
scilab/modules/differential_equations/demos/ode/ode_1dvect/ode_1dvect.dem.sce
scilab/modules/differential_equations/demos/ode/ode_chstiff/ode_chstiff.dem.sce
scilab/modules/differential_equations/demos/ode/ode_lotka/ode_lotka.dem.sce
scilab/modules/differential_equations/demos/ode/ode_vanderpol/ode_vanderpol.dem.sce
scilab/modules/differential_equations/demos/wheel/wheel2.dem.sce
scilab/modules/functions/macros/warnobsolete.sci
scilab/modules/gui/demos/dialog.dem.sce
scilab/modules/gui/tests/nonreg_tests/bug_126.tst
scilab/modules/gui/tests/unit_tests/messagebox.tst [moved from scilab/modules/gui/tests/unit_tests/x_message.tst with 68% similarity]
scilab/modules/metanet/demos/meta.dem
scilab/modules/metanet/demos/metro.sci
scilab/modules/metanet/help/fr_FR/con_nodes.xml
scilab/modules/metanet/help/fr_FR/connex.xml
scilab/modules/metanet/help/fr_FR/max_cap_path.xml
scilab/modules/metanet/help/fr_FR/min_lcost_cflow.xml
scilab/modules/metanet/help/fr_FR/min_lcost_flow1.xml
scilab/modules/metanet/help/fr_FR/min_lcost_flow2.xml
scilab/modules/metanet/help/fr_FR/min_qcost_flow.xml
scilab/modules/metanet/help/fr_FR/min_weight_tree.xml
scilab/modules/metanet/help/fr_FR/plot_graph.xml
scilab/modules/metanet/help/fr_FR/shortest_path.xml
scilab/modules/metanet/help/fr_FR/strong_con_nodes.xml
scilab/modules/metanet/help/fr_FR/strong_connex.xml
scilab/modules/metanet/help/fr_FR/trans_closure.xml
scilab/modules/metanet/macros/editor/ge_check_before_quit.sci
scilab/modules/metanet/macros/editor/ge_do_SaveAs.sci
scilab/modules/metanet/macros/editor/ge_do_add_edge_data.sci
scilab/modules/metanet/macros/editor/ge_do_add_node_data.sci
scilab/modules/metanet/macros/editor/ge_do_default_names.sci
scilab/modules/metanet/macros/editor/ge_do_find.sci
scilab/modules/metanet/macros/editor/ge_do_load.sci
scilab/modules/metanet/macros/editor/ge_do_new.sci
scilab/modules/metanet/macros/editor/ge_do_quit.sci
scilab/modules/metanet/macros/editor/ge_do_settings.sci
scilab/modules/metanet/macros/editor/ge_shortcut.sci
scilab/modules/metanet/macros/editor/ge_show_new.sci
scilab/modules/metanet/macros/graph_tools/message.sci
scilab/modules/optimization/macros/lmitool.sci
scilab/modules/pvm/demos/pvm.dem
scilab/modules/pvm/demos/pvm1.sce
scilab/modules/scicos/macros/scicos_scicos/CodeGeneration_.sci
scilab/modules/scicos/macros/scicos_scicos/MODCOM.sci
scilab/modules/scicos/macros/scicos_scicos/Open_.sci
scilab/modules/scicos/macros/scicos_scicos/build_block.sci
scilab/modules/scicos/macros/scicos_scicos/c_pass1.sci
scilab/modules/scicos/macros/scicos_scicos/c_pass2.sci
scilab/modules/scicos/macros/scicos_scicos/compile_modelica.sci
scilab/modules/scicos/macros/scicos_scicos/do_doc.sci
scilab/modules/scicos/macros/scicos_scicos/do_eval.sci
scilab/modules/scicos/macros/scicos_scicos/do_options.sci
scilab/modules/scicos/macros/scicos_scicos/extract_implicit.sci
scilab/modules/scicos/macros/scicos_scicos/link_olibs.sci
scilab/modules/scicos/macros/scicos_scicos/message.sci
scilab/modules/scicos/macros/scicos_scicos/standard_document.sci
scilab/modules/scicos/macros/scicos_scicos/update_scicos_pal.sci
scilab/modules/scicos/macros/scicos_scicos/x_getvalue.sci
scilab/modules/scicos/macros/scicos_utils/getvalue.sci
scilab/modules/scicos_blocks/macros/Misc/AUTOMAT.sci
scilab/modules/scicos_blocks/macros/Misc/MBLOCK.sci
scilab/modules/scicos_blocks/macros/Misc/MEMORY_f.sci
scilab/modules/scicos_blocks/macros/PDE/IHM_EDP.sci
scilab/modules/scicos_blocks/macros/PDE/PDE.sci
scilab/modules/scicos_blocks/macros/Sources/CURVE_c.sci
scilab/modules/scicos_blocks/macros/Sources/FROMWS_c.sci
scilab/modules/scilab2fortran/demos/printspecs.sci
scilab/modules/signal_processing/macros/wfir.sci
scilab/modules/umfpack/examples/scisptdem1.dem
scilab/modules/umfpack/examples/scisptdem2.dem
scilab/modules/umfpack/examples/scisptdem3.dem

index d1a3030..1e618f2 100644 (file)
@@ -28,9 +28,9 @@ xtitle('PLANT   and   CONTROLLER')
 
 path=get_absolute_file_path('lqg.dem');
 s=poly(0,'s');z=poly(0,'z');
-x_message(['Simple example of SISO LQG Design';
+messagebox(['Simple example of SISO LQG Design';
            'Demo is in file '+path+'lqg.dem';
-           'Computes the LQG compensator and plots response'])
+           'Computes the LQG compensator and plots response'],"modal");
 
 n=x_choose(['Continuous time';'Discrete time'],'Select time domain');
 
@@ -63,7 +63,7 @@ mode(1)
 
 P22=tf2ss(Plant);    //...in state-space form
 [ny,nu,nx]=size(P22);
-x_message('Now enter weighting matrices');
+messagebox('Now enter weighting matrices',"modal");
 rep=x_matrix('x-weighting matrix',eye(nx,nx))
 if rep==[] then return,end
 Qx=evstr(rep);
@@ -89,7 +89,7 @@ disp(clean(ss2tf(Tlqg)),'Complementary sensitivity function');
 
 mode(-1);
 
-x_message('Closed-loop response');
+messagebox('Closed-loop response',"modal");
 
 resp=['Frequency response';'Time response'];
 while %t do
index 5dd24bb..72af879 100644 (file)
@@ -20,8 +20,8 @@ xstring(28,30,'K');xstring(56,30,'Plant');xstring(12,28.80,'-');
 xtitle('PLANT   and   CONTROLLER')
 mode(2)
 
-x_message(['Mixed Sensitivity Controller Design';
-           'file: '+SCI+'/modules/cacsd/demos/mixed.dem'])
+messagebox(['Mixed Sensitivity Controller Design';
+           'file: '+SCI+'/modules/cacsd/demos/mixed.dem'],"modal");
 mode(1)
 s=poly(0,'s');
 str='[(s-1)/((s-1)^2*(s+2))]';
@@ -53,7 +53,7 @@ end
 
 disp(spec(h_cl(Pms,r,K)),'closed loop eigenvalues')    //Check internal stability
 [Ssens,Rsens,Tsens]=sensi(P22,K);  //Sensitivity functions
-x_message('Singular values plot')
+messagebox('Singular values plot',"modal");
 fcts=['S function';'R (=K*S) function';'T function'];
 www=x_mdialog('Select sensitivity function',fcts,['Yes';'No';'Yes']);
 if www==[] then return,end
index 959a09a..d7d8a20 100644 (file)
@@ -29,14 +29,14 @@ wdim=xget('wdim')
 //
  mb=0.1;mc=1;l=0.3;m=4*mc+mb; //constants
 //
-x_message(['Open loop simulation'
+messagebox(['Open loop simulation'
           ' '
           ' y0 = [0;0;0.1;0]; //initial state [x x'' theta theta'']'
           ' t = 0.03*(1:180); //observation dates'
           ' y = ode(y0,0,0.03*(1:180),ivpd); //differential equation integration'
           ' //Display'
           ' P = initialize_display(y0(1),y0(3))'
-          ' for k=1:size(y,2), set_pendulum(P,y(1,k),y(3,k));end'])
+          ' for k=1:size(y,2), set_pendulum(P,y(1,k),y(3,k));end'],"modal");
 //
  y0=[0;0;0.1;0];
  y=ode(y0,0,0.03*(1:180),ivpd);
@@ -44,13 +44,13 @@ x_message(['Open loop simulation'
  P=initialize_display(y0(1),y0(3));
  for k=1:size(y,2), set_pendulum(P,y(1,k),y(3,k));end
 //
-x_message(['Linearization'
+messagebox(['Linearization'
           ' '
           ' x0=[0;0;0;0];u0=0;'
           ' [f,g,h,j]=lin(pendu,x0,u0);'
           ' pe=syslin(''c'',f,g,h,j);'
           ' // display of the linear system'
-          ' ssprint(pe)'])
+          ' ssprint(pe)'],"modal")
 
 //
 mode(1)
@@ -61,7 +61,7 @@ mode(1)
 mode(-1)
  
 //
-x_message(['Checking the result'
+messagebox(['Checking the result'
           ' //comparison with linear model computed by hand';
           ''
           ' f1=[0 1        0                0'
@@ -74,7 +74,7 @@ x_message(['Checking the result'
           ' h1=[1 0 0 0'
           '     0 0 1 0];'
           ' '
-          ' err=norm(f-f1,1)+norm(g-g1,1)+norm(h-h1,1)+norm(j,1)'])
+          ' err=norm(f-f1,1)+norm(g-g1,1)+norm(h-h1,1)+norm(j,1)'],"modal")
 
  
 //
@@ -89,13 +89,13 @@ mode(1)
  err=norm(f-f1,1)+norm(g-g1,1)+norm(h-h1,1)+norm(j,1)
  mode(-1)
  
-x_message(['Linear system properties analysis'
+messagebox(['Linear system properties analysis'
           ' spec(f) //stability (unstable system !)'
           ' n=contr(f,g) //controlability'
           ' '
           ' //observability'
           ' m1=contr(f'',h(1,:)'') '
-          ' [m2,t]=contr(f'',h(2,:)'')'])
+          ' [m2,t]=contr(f'',h(2,:)'')'],"modal");
 //---------
 mode(1)
  spec(f) //stability (unstable system !)
@@ -106,14 +106,14 @@ mode(1)
  [m2,t]=contr(f',h(2,:)')
  mode(-1)
 //
-x_message(['Synthesis of a stabilizing controller using poles placement'
+messagebox(['Synthesis of a stabilizing controller using poles placement'
           ' '
           '// only x and theta are observed  : contruction of an observer'
           '// to estimate the state : z''=(f-k*h)*z+k*y+g*u'
           ' to=0.1; ' 
           ' k=ppol(f'',h'',-ones(4,1)/to)''  //observer gain'
           '// compute the compensator gain'
-          ' kr=ppol(f,g,-ones(4,1)/to)'])
+          ' kr=ppol(f,g,-ones(4,1)/to)'],"modal");
 
 //-------------------------------------------------
 //
@@ -131,7 +131,7 @@ x_message(['Synthesis of a stabilizing controller using poles placement'
  kr=ppol(f,g,-ones(4,1)/to)  //compensator gain
  
 //
-x_message(['Build full linear system  pendulum-observer-compensator'
+messagebox(['Build full linear system  pendulum-observer-compensator'
           ' '
           ' ft=[f-g*kr            -g*kr'
           '     0*f               f-k*h]'
@@ -149,7 +149,7 @@ x_message(['Build full linear system  pendulum-observer-compensator'
           ' '
           '//frequency analysis'
           ' black(pr,0.01,100,[''position'',''theta''])'
-          ' g_margin(pr(1,1))'])
+          ' g_margin(pr(1,1))'],"modal");
 
 //---------------------------------------------
 //
@@ -177,11 +177,11 @@ mode(1)
  
  
 //
-x_message(['Sampled system'
+messagebox(['Sampled system'
           ' '
           ' t=to/5; //sampling period'
           ' prd=dscr(pr,t); //discrete model'
-          ' spec(prd.A) //poles of the discrete model'])
+          ' spec(prd.A) //poles of the discrete model'],"modal");
 
 //---------------
 //
@@ -191,12 +191,12 @@ mode(1)
  spec(prd(2))
 mode(-1)
 //
-x_message(['Impulse response'
+messagebox(['Impulse response'
           ' '
           ' x0=[0;0;0;0;0;0;0;0]; //initial state'
           ' u(1,180)=0;u(1,1)=1; //impulse'
           ' y=flts(u,prd,x0);    //siscrete system simulation'
-          ' draw1()'])
+          ' draw1()'],"modal");
 
 //-----------------
 //
@@ -208,13 +208,13 @@ mode(1)
  draw1()
 mode(-1)
 //
-x_message(['Compensation of the non linear system with'
+messagebox(['Compensation of the non linear system with'
           'linear regulator'
           ''
           ' t0=0;t1=t*(1:125);'
           ' x0=[0 0 0.4 0   0 0 0 0]'';  // initial state'
           ' yd=ode(x0,t0,t1,regu); //integration of differential equation'
-          ' draw2()'])
+          ' draw2()'],"modal");
 ;
 //--------------------------------------
 //
@@ -227,4 +227,4 @@ mode(1)
  draw2()
 mode(-1) 
 lines(display_props(2))
-x_message('The end')
+messagebox('The end',"modal");
index ceee234..1e202d1 100644 (file)
@@ -21,8 +21,8 @@ xtitle('PLANT   and   CONTROLLER')
 mode(2);
 
 s=poly(0,'s');z=poly(0,'z');
-x_message(['Example of PID Design '
-          'file: '+SCI+'/modules/cacsd/demos/pid.dem']);       
+messagebox(['Example of PID Design '
+          'file: '+SCI+'/modules/cacsd/demos/pid.dem'],"modal");
 
 n=x_choose(['Continuous time';'Discrete time'],'Select time domain');
 select n
@@ -76,9 +76,9 @@ while %t
 
   disp(spec(Winv(2)),'closed loop eigenvalues');//Check internal stability
   if maxi(real(spec(Winv(2)))) > 0 then 
-    x_message('You loose: closed-loop is UNSTABLE!!!');
+    messagebox('You loose: closed-loop is UNSTABLE!!!',"modal");
   else
-    x_message('Congratulations: closed-loop is STABLE !!!');
+    messagebox('Congratulations: closed-loop is STABLE !!!',"modal");
     break;
   end
   mode(-1)
index 61d66f0..80df323 100644 (file)
@@ -169,9 +169,6 @@ function a=foo
 endfunction
 a=foo();
 if a<>1 then bugmes();quit;end
-function  foo()
-   x_message(["http://xmllab.org"]);
-endfunction
 function a=foo(..
               )
   a=1//test
index b2904e8..f48e202 100644 (file)
@@ -187,10 +187,6 @@ endfunction
 a=foo();
 if a<>1 then pause,end
 
-function  foo()
-   x_message(["http://xmllab.org"]);
-endfunction
-
 function a=foo(..
               )
   a=1//test
index 61ed064..3603c04 100644 (file)
@@ -42,7 +42,7 @@ demo_message('SCI/demos/control/pid/pid_3.sce');
         <link linkend="demo_run">demo_run</link>
       </member>
       <member>
-        <link linkend="x_message">x_message</link>
+        <link linkend="messagebox">messagebox</link>
       </member>
       <member>
         <link linkend="demo_begin">demo_begin</link>
index f3350d3..37e0194 100644 (file)
@@ -42,7 +42,7 @@ demo_message('SCI/demos/control/pid/pid_3.sce');
         <link linkend="demo_run">demo_run</link>
       </member>
       <member>
-        <link linkend="x_message">x_message</link>
+        <link linkend="messagebox">messagebox</link>
       </member>
       <member>
         <link linkend="demo_begin">demo_begin</link>
index 4674363..7795021 100644 (file)
@@ -10,7 +10,7 @@
 
 function [ans]=demo_compiler()
        if (~haveacompiler()) then
-               x_message(['Scilab doesn''t find a C compiler','This demo is disabled'])
+               messagebox(['Scilab doesn''t find a C compiler','This demo is disabled'],"modal");
                ans=%f;
        else
                ans=%t;
index fadf14a..56543bf 100644 (file)
@@ -10,5 +10,5 @@
 
 function demo_message(fil)
        text=mgetl(fil);
-       x_message(text);
+       messagebox(text,"modal");
 endfunction
index b41b393..40fb918 100644 (file)
@@ -8,7 +8,7 @@
 
 function demo_pendulum()
        if ~(haveacompiler()) then
-               x_message(["Scilab doesn''t find a C compiler","This demo is disabled"]);
+               messagebox(["Scilab doesn''t find a C compiler","This demo is disabled"],"modal");
        else
                npend_build_and_load();
                n  = np();
index bb599b9..6bb52d3 100644 (file)
@@ -13,7 +13,7 @@ text = ["Examples of ODE''s in 1 dimension"; ..
         "You can start over by clicking on the LEFT button again"; ..
         "  or stop everything by clicking on the RIGHT button." ];
 
-x_message(text);
+messagebox(text,"modal");
 
 function yprim=f(t,y),yprim=y^2-t;endfunction
 function z=g(t,y),z=[y-ymin;y+ymax];endfunction
index 7ffbd0e..55e4c9b 100644 (file)
@@ -33,7 +33,7 @@ title(_("chemical process (implicit)"))
 l=legend(['y1';'10^4 y2';'y3']);l.legend_location = "lower_caption"
 drawnow()
 
-x_message("Click Ok to continue.");
+messagebox("Click Ok to continue.","modal");
 
 // Add surface condition
 nt = prod(size(t));
index 9ca5d52..f58fb29 100644 (file)
@@ -21,7 +21,7 @@ text = ["Lotka-Volterra:"; ..
         "You can start over by clicking on the LEFT button again"; ..
         "  or stop everything by clicking on the RIGHT button." ];
 
-x_message(text);
+messagebox(text,"modal");
 
 
 my_handle = scf(100001);
index a517fa2..74fc02a 100644 (file)
@@ -20,7 +20,7 @@ text = ["Van der Pol:"; ..
         "You can start over by clicking on the LEFT button again"; ..
         "  or stop everything by clicking on the RIGHT button." ];
 
-x_message(text);
+messagebox(text,"modal");
 
 
 my_handle = scf(100001);
index eb021d2..b1bd5cf 100644 (file)
@@ -14,7 +14,7 @@ clf(my_handle,"reset");
 exec(thispath+"show.sci");
 
 if ~(haveacompiler()) then
-       x_message(["Scilab doesn''t find a C compiler","This demo is disabled"]);
+       messagebox(["Scilab doesn''t find a C compiler","This demo is disabled"],"modal");
        return;
 end
 
index e63b297..8f04234 100644 (file)
@@ -14,13 +14,7 @@ function warnobsolete(newFunctionName, scilabRemovedVersion)
   // should block execution or only print
   // on the standard outstream
   global %modalWarning
-  if %modalWarning then
-    warnUser = x_message
-  else
-    warnUser = warning
-  end
-  clear %modalWarning
-
+  
   //Retrieve Calling function
   [lineCall, stackCall]=where()
   
@@ -32,7 +26,15 @@ function warnobsolete(newFunctionName, scilabRemovedVersion)
   if argn(2) >= 2 then
     warnMessage = [warnMessage, msprintf(_("This function will be permanently removed in Scilab %s"), scilabRemovedVersion)]
   end
-
+  
   // Now show the warning
-  warnUser(warnMessage);
+  
+  if %modalWarning then
+    x_message(warnMessage,"modal");
+  else
+    warning(warnMessage);
+  end
+  
+  clear %modalWarning
+  
 endfunction
index 89f150b..7ee598a 100644 (file)
@@ -5,19 +5,19 @@
 // This file is distributed under the same license as the Scilab package.
 //
 
-x_message(['x_message: Simple example of message ';
+messagebox(['x_message: Simple example of message ';
 'First row of comments';
 'Second row';
-'etc...';])
+'etc...';],"modal");
 
 x_dialog('x_dialog: trial','                ')
 x_dialog('Trial           ','3.1592653')
 x_dialog(['trial           ';'trial1';'trial2';'trial3';'trial4';..
 'trial6';'trial7'],'[0 1 2 3]')
 
-x_message('trial')
-x_message(['trial';'trial1';'trial2';'trial3';'trial4';'trial6';'trial7';..
-'trial3';'trial4';'trial6';'trial7';'trial3';'trial4';'trial6';'trial7'])
+messagebox('trial',"modal");
+messagebox(['trial';'trial1';'trial2';'trial3';'trial4';'trial6';'trial7';..
+'trial3';'trial4';'trial6';'trial7';'trial3';'trial4';'trial6';'trial7'],"modal");
 
 x_choose(['trial';'trial1';'trial2';'trial3';'trial4';'trial7';..
 'trial3';'trial4';'trial6';'trial7';'trial3';'trial4';'trial6'],..
index a9dbde9..d50bc39 100644 (file)
@@ -15,6 +15,8 @@
 
 // <-- INTERACTIVE TEST -->
 
-x_message(["Hello"])
+// 2009-01-09 - x_message(obsolete) replaced by messagebox.
 
-r = x_message(["Your problem is ill conditioned";"continue?"],["Yes","No"])
\ No newline at end of file
+messagebox(["Hello"])
+
+r = messagebox(["Your problem is ill conditioned";"continue?"],"modal","question",["Yes","No"])
 
 // <-- INTERACTIVE TEST -->
 
-x_message(["Simple message";"No scroll bar at all"]);
+messagebox(["Simple message";"No scroll bar at all"],"modal");
 
-x_message(["message with huge vertical part";
+messagebox(["message with huge vertical part";
            "Only vertical scroll bar"
-          string(1:50)']);
+          string(1:50)'],"modal");
 
-x_message(["message with huge horizontal  part";
+messagebox(["message with huge horizontal  part";
           "Only horizontal scroll bar"
-           strcat(string(1:150),' ')]);
+           strcat(string(1:150),' ')],"modal");
 
-x_message(["huge message";
+messagebox(["huge message";
            "Vertical and horizontal scroll bars"
            strcat(string(1:150)," ");
-           string(1:50)']);
-
+           string(1:50)'],"modal");
\ No newline at end of file
index 7904843..8996141 100644 (file)
@@ -8,14 +8,14 @@
 mode(-1)
 demopath=get_absolute_file_path('meta.dem')
 mode(0);
-num=x_message([' ';
+num=messagebox([' ';
 'METANET is a Scilab toolbox for graph and network analysis';
 'It comes with a graphics tool for visualizing and creating graphs';
 ' ';
 'This is a demo for finding the best and fastest way';
 '  to go from one station to another in Paris subway';
 ' ';
-'Try the demo?'],['Yes','No'])
+'Try the demo?'],"modal","question",['Yes','No']);
 
 if num==1 then
   exec(demopath+'/metro.sci',-1);
index d37d1ee..37b470d 100644 (file)
@@ -121,19 +121,19 @@ function []=metro(demopath)
       Arrivee=x_choose(Lstation,'Choose the station of arrival');
       if(Depart==0|Arrivee==0) then return  end;
        if (Lnode(Depart)==-1|Lnode(Arrivee)==-1) then
-         x_message(['You have chosen an RER station to the suburbs'; 
-                    'The RER net will be added later']);
+         messagebox(['You have chosen an RER station to the suburbs'; 
+                    'The RER net will be added later'],"modal");
        end;
        if (Lnode(Depart)==-2) then
-         x_message(['Are you sure it''s time to leave?';
+         messagebox(['Are you sure it''s time to leave?';
                     'If yes, you go to the entrance of the campus.';
                     'You take the INRIA shuttle to one of the 3 railway stations of Versailles.';
-                    'Then you take the train to Paris (15-20 minutes).']), 
+                    'Then you take the train to Paris (15-20 minutes).'],"modal"), 
          Lnode(Depart)=-1;
        end;
        rep=0;
        if (Lnode(Arrivee)==-2) then 
-         rep=x_message(['You have chosen to visit a nice place.';
+         rep=messagebox(['You have chosen to visit a nice place.';
                         'It is a little bit complicated to reach the campus.';
                         'If you are a tourist you may be interested to know';
                         'that the buildings of the campus have been designed';
@@ -141,16 +141,16 @@ function []=metro(demopath)
                         'and you may prefer to visit the palace of Versailles.';
                         'In both cases the first part of the travel is the same.';
                         'If you want to know, click on Travel button'],..
-                       ['Travel','Cancel']); 
+                       "modal","question",['Travel','Cancel']); 
        end
        if rep==2 then Lnode(Arrivee)=-1;end
        if rep==1 then 
-         x_message(['INRIA-Rocquencourt is located near Versailles.';
+         messagebox(['INRIA-Rocquencourt is located near Versailles.';
                     'From Paris you have to take the train to Versailles and then the INRIA shuttle.';
                     'You have 3 possibilities from Paris:';
                     '- starting from Saint-Lazare station you reach the Versailles-Rive Droite station';
                     '- starting from Invalides station you reach the Versailles-Rive Gauche station';
-                    '- starting from Montparnasse-Bienvenue station you reach the Versailles-Chantiers station']);     
+                    '- starting from Montparnasse-Bienvenue station you reach the Versailles-Chantiers station'],"modal");     
          Lnode(Arrivee)=-1;  
        end
       end
@@ -235,12 +235,12 @@ function []=metro(demopath)
       
       set_nodes_id(TTT,'  '+strsubst(mamat(TTT),'.',' '),'right')
     
-      x_message(['Duration of the travel (in minutes): '+string(EndTemps) ; 
+      messagebox(['Duration of the travel (in minutes): '+string(EndTemps) ; 
                 ' ' ;
                 'The number of changes is: '+string(EndChange);
                 string(changename);' '  ;
                 'You will go through the following stations:';
-                string(routef);]);
+                string(routef);],"modal");
       road=[];route=[];routef=[];changename=[];
       iter=x_choose(['yes','no'],'Another travel?');
       set_nodes_id(TTT,emptystr(TTT),'right')
index ea88168..be46ef3 100644 (file)
@@ -66,7 +66,7 @@ g('node_x')=[197 191 106 194 296 305 305 418 422 432  552 550 549 416 548];
 g('node_y')=[76 181 276 278 276 83 174 281 177 86 175 90 290 397 399];
 show_graph(g);
 con_nodes(2,g)
-x_message('Affichage des sommets de la composante connexe #2');
+messagebox('Affichage des sommets de la composante connexe #2',"modal");
 n=g('node_number');
 nodecolor=0*ones(1,n);
 nodecolor(1,con_nodes(2,g))=11*ones(con_nodes(2,g));
index f9cc7c7..f515589 100644 (file)
@@ -66,7 +66,7 @@ show_graph(g);
 [nc,ncomp]=connex(g)
 g('node_color')=10+ncomp; 
 g('node_diam')=10+10*ncomp;
-x_message('Affichage des composantes connexes du graphe');
+messagebox('Affichage des composantes connexes du graphe',"modal");
 show_graph(g);
  ]]></programlisting>
   </refsection>
index 29a01bc..e2b24e4 100644 (file)
@@ -82,8 +82,8 @@ ma=edge_number(g);
 g('edge_max_cap')=int(rand(1,ma)*16)+5;
 [p,cap]=max_cap_path(1,14,g);
 edgecolor=1*ones(1,ma); edgecolor(p)=11*ones(p); g('edge_color')=edgecolor;
-x_message(['La capacité maximum est : '+string(cap);
-           'Voici le chemin correspondant']);
+messagebox(['La capacité maximum est : '+string(cap);
+           'Voici le chemin correspondant'],"modal");
 show_graph(g); show_arcs(p);
  ]]></programlisting>
   </refsection>
index e948c99..0a22bab 100644 (file)
@@ -132,8 +132,8 @@ g1('edge_max_cap')=round(20*rand(1,ma))+ones(1,ma);
 g1('edge_cost')=10*rand(1,ma)+ones(1,ma);
 source=15; sink=1; cv=5;
 [c,phi,v]=min_lcost_cflow(source,sink,cv,g1);
-x_message(['Le cout est: '+string(c);
-           'Voici les flots sur les arcs']);
+messagebox(['Le cout est: '+string(c);
+           'Voici les flots sur les arcs'],"modal");
 nodetype=0*ones(1,n); nodetype(source)=2; nodetype(sink)=1;
 g1('node_type')=nodetype;
 ii=find(phi<>0); edgecolor=phi; edgecolor(ii)=11*ones(ii);
index f72ffdd..2ddd895 100644 (file)
@@ -101,8 +101,8 @@ while %T then
   [c,phi,flag]=min_lcost_flow1(g1);
   if flag==1 then break; end;
 end;  
-x_message(['Le cout est: '+string(c);
-           'Flots sur les arcs ']);
+messagebox(['Le cout est: '+string(c);
+           'Flots sur les arcs '],"modal");
 ii=find(phi<>0); edgecolor=phi; edgecolor(ii)=11*ones(ii);
 g1('edge_color')=edgecolor;
 edgefontsize=8*ones(1,ma); edgefontsize(ii)=18*ones(ii);
index b0c94a6..d125d1c 100644 (file)
@@ -94,8 +94,8 @@ g('node_y')=[56 221 316 318 316 143 214 321 217 126 215 80 330 437 439];
 show_graph(g);
 g1=g; ma=arc_number(g1); n=g1('node_number');
 g1('edge_min_cap')=0.*ones(1,ma);
-x_message(['Generation aléatoire des données';
-           'Les premiers problèmes générés peuvent être insolubles']);
+messagebox(['Generation aléatoire des données';
+           'Les premiers problèmes générés peuvent être insolubles'],"modal");
 while %T then
  rand('uniform');
  g1('edge_max_cap')=round(20*rand(1,ma))+20*ones(1,ma);
@@ -108,8 +108,8 @@ while %T then
  [c,phi,flag]=min_lcost_flow2(g1);
  if flag==1 then break; end;
 end;
-x_message(['Le cout est: '+string(c);
-           'Voici le flot sur les arcs et les demandes des sommets']);
+messagebox(['Le cout est: '+string(c);
+           'Voici le flot sur les arcs et les demandes des sommets'],"modal");
 ii=find(phi<>0); edgecolor=phi; edgecolor(ii)=11*ones(ii);
 g1('edge_color')=edgecolor;
 edgefontsize=8*ones(1,ma); edgefontsize(ii)=18*ones(ii);
index 562f1c7..f920996 100644 (file)
@@ -110,8 +110,8 @@ while %T then
   [c,phi,flag]=min_qcost_flow(0.001,g1);
  if flag==1 then break; end;
 end;
-x_message(['Le cout est: '+string(c);
-          'Voici le flot sur les arcs']);
+messagebox(['Le cout est: '+string(c);
+          'Voici le flot sur les arcs'],"modal");
 ii=find(phi<>0); edgecolor=phi; edgecolor(ii)=11*ones(ii);
 g1('edge_color')=edgecolor;
 edgefontsize=8*ones(1,ma); edgefontsize(ii)=18*ones(ii);
index 2fc113c..9f69be2 100644 (file)
@@ -83,7 +83,7 @@ g1=g; ma=arc_number(g1); n=g1('node_number');
 nodetype=0*ones(1,n); nodetype(1)=2; g1('node_type')=nodetype;
 edgecolor=1*ones(1,ma); edgecolor(t)=11*ones(t); g1('edge_color')=edgecolor;
 edgewidth=1*ones(1,ma); edgewidth(t)=4*ones(t); g1('edge_width')=edgewidth;
-x_message('Arbre de poids minimum à partir du sommet 1');
+messagebox('Arbre de poids minimum à partir du sommet 1',"modal");
 show_graph(g1);
  ]]></programlisting>
   </refsection>
index 6b5fa2d..2770e30 100644 (file)
@@ -118,7 +118,7 @@ rep=[2 2 1 1 2 2 2 2 2 2 2 2 2];
 rep1=[100 -400 650 300];
 xbasc(); plot_graph(g,rep,rep1);
 rep=[2 1 1 1 2 2 2 2 2 2 2 2 2];
-x_message('Represente le graphe avec differents parametres');
+messagebox('Represente le graphe avec differents parametres',"modal");
 xbasc(); plot_graph(g,rep,rep1);
 // Affichage avec une boîte de dialogue
 xbasc(); plot_graph(g);
index d977d8a..4de0461 100644 (file)
@@ -95,9 +95,9 @@ rand('uniform');
 g1('edge_length')=int(20*rand(1,ma));
 [p,lp]=shortest_path(13,1,g1,'length');
 p
-x_message(['Voici le chemin le plus court';
+messagebox(['Voici le chemin le plus court';
            'Le nom des arcs peut être visualisé en selectionnant la valeur ""Name"" pour les arcs';
-           'dans le menu Graph->Options.']);
+           'dans le menu Graph->Options.'],"modal");
 g1('edge_name')=string(g1('edge_length'));
 edgecolor=ones(1:ma);edgecolor(p)=11*ones(p);
 g1('edge_color')=edgecolor;
index b30480e..f0761dd 100644 (file)
@@ -69,7 +69,7 @@ nodecolor=0*ones(1,n); nodecolor(ncomp)=11*ones(ncomp);
 g('node_color')=nodecolor;
 nodediam=20*ones(1,n); nodediam(ncomp)=40*ones(ncomp);
 g('node_diam')=nodediam;
-x_message('Ensemble des sommets de la composante fortement connexe numéro 3');
+messagebox('Ensemble des sommets de la composante fortement connexe numéro 3',"modal");
 show_graph(g);
  ]]></programlisting>
   </refsection>
index 06f471c..cfafd40 100644 (file)
@@ -68,7 +68,7 @@ g('node_y')=[76 181 276 278 276 83 174 281 177 86 175 90 290 397 399];
 show_graph(g);
 [nc,ncomp]=strong_connex(g);
 g1=g; g1('node_color')=8+ncomp; g1('node_diam')=10+5*ncomp;
-x_message('Composante fortement connexe du graphe');
+messagebox('Composante fortement connexe du graphe',"modal");
 show_graph(g1);
  ]]></programlisting>
   </refsection>
index 988fa04..42f46f1 100644 (file)
@@ -67,7 +67,7 @@ for i=1:lim(2)
  if dif(ta1(i),he1(i))==1 then edgecolor(i)=11; end;
 end;
 g1('edge_color')=edgecolor;
-x_message('Fermeture transitive du graphe');
+messagebox('Fermeture transitive du graphe',"modal");
 show_graph(g1);
  ]]></programlisting>
   </refsection>
index 8693c26..12f3d21 100644 (file)
@@ -24,10 +24,9 @@ function ge_check_before_quit()
               'GraphList=EGdata_'+w+'.GraphList'
               'path=EGdata_'+w+'.Path'])
       if edited then
-       r=x_message(['graph '+GraphList.name+' is modified'
-                    'Do you want to save it?'],['yes','no'])
+       r=messagebox(['graph '+GraphList.name+' is modified';'Do you want to save it?'],"modal","question",['yes','no'])
        if r==1 then
-         x_message('Use the Graph/Save menu to save it')
+         messagebox('Use the Graph/Save menu to save it',"modal","info");
          while edited
            xpause(100000)
            execstr(['global EGdata_'+w;
index 4c75cd6..6c5b83a 100644 (file)
@@ -26,14 +26,14 @@ function [GraphList,ok,fname]=ge_do_SaveAs(GraphList,fname)
   
 //following test already done by tk_savefile
 //   if fileinfo(fname)<>[] then
-//     r=x_message(['File '+fname+ ' already exists'
-//              'erase it'],['Yes','No'])
+//     r=messagebox(['File '+fname+ ' already exists'
+//              'erase it'],"modal","question",['Yes','No'])
 //     if r==2 then ok=%f,return,end
 //   end
   ok=execstr('save(fname,GraphList)','errcatch')==0
   if ok then 
     GraphList.name=name
   else
-    x_message([lasterror();'';'Graph has not been saved'])
+    messagebox([lasterror();'';'Graph has not been saved'],"modal","error");
   end    
 endfunction
index c6aaeb1..14a2252 100644 (file)
@@ -24,18 +24,18 @@ function [ok,GraphList]=ge_do_add_edge_data(GraphList)
     ok=%t
     name=stripblanks(res(1))
     if execstr(name+'=1','errcatch')<>0 then
-      x_message('Invalid Field name')
+      messagebox('Invalid Field name',"modal","error");
       ok=%f,
     end
     if ok&or(F(2:$)==name) then
-      x_message('This field name is already defined')
+      messagebox('This field name is already defined',"modal","error");
       ok=%f,
     end
     if ok then
       ierr=execstr('default='+res(2),'errcatch')
       if ierr<>0 then 
-       x_message('Answer for ""Default Value"" cannot be evaluated'),
-       ok=%f
+        messagebox('Answer for ""Default Value"" cannot be evaluated',"modal","error");
+           ok=%f
       end
     end
   end
index b52406b..3230abc 100644 (file)
@@ -23,18 +23,18 @@ function [ok,GraphList]=ge_do_add_node_data(GraphList)
     ok=%t
     name=stripblanks(res(1))
     if execstr(name+'=1','errcatch')<>0 then
-      x_message('Invalid Field name')
+      messagebox('Invalid Field name',"modal","error");
       ok=%f,
     end
     if ok&or(F(2:$)==name) then
-      x_message('This field name is already defined')
+      messagebox('This field name is already defined',"modal","error");
       ok=%f,
     end
     if ok then
       ierr=execstr('default='+res(2),'errcatch')
       if ierr<>0 then 
-       x_message('Answer for ""Default Value"" cannot be evaluated'),
-       ok=%f
+           messagebox('Answer for ""Default Value"" cannot be evaluated',"modal","error");
+           ok=%f
       end
     end
   end
index 950e895..85728dc 100644 (file)
@@ -9,9 +9,9 @@
 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 function GraphList=ge_do_default_names(GraphList)
-  r=x_message(['This operation will replaces ALL node and arc names'
+  r=messagebox(['This operation will replaces ALL node and arc names'
               'by their default values.'
-              'Do you really want to do it?'],['yes','no'])
+              'Do you really want to do it?'],"modal","question",['yes','no'])
   if r==1 then
     
     GraphList.nodes.graphics.name=string(1:GraphList.nodes.number)
index 41ca074..9b20425 100644 (file)
@@ -26,19 +26,19 @@ function ge_do_find(key,GraphList)
       r=stripblanks(r);
       r(r=='')=[]
       if size(r,'*')>1 then
-       x_message('Only one node should be selected:'+r)
+       messagebox('Only one node should be selected:'+r,"modal","error");
        ok=%f
       else
        ierr=execstr('n='+r,'errcatch')
        if ierr==0 then // a node number
          if n<1|n>size(GraphList.nodes) then
-           x_message('Incorrect node number:'+r)
+           messagebox('Incorrect node number:'+r,"modal","error");
            ok=%f
          end
        else
          n=find(GraphList.nodes.graphics.name==r)
          if n==[] then
-           x_message('Unknown node :'+r)
+           messagebox('Unknown node :'+r,"modal","error");
            ok=%f
          end
        end
@@ -56,19 +56,19 @@ function ge_do_find(key,GraphList)
       r=stripblanks(r);
       r(r=='')=[]
       if size(r,'*')>1 then
-       x_message('Only one arc should be selected:'+r)
-       ok=%f
+           messagebox('Only one arc should be selected:'+r,"modal","error");
+           ok=%f
       else
        ierr=execstr('n='+r,'errcatch')
        if ierr==0 then // a node number
          if n<1|n>size(GraphList.edges) then
-           x_message('Incorrect arc number:'+r)
+           messagebox('Incorrect arc number:'+r,"modal","error");
            ok=%f
          end
        else
          n=find(GraphList.edges.graphics.name==r)
          if n==[] then
-           x_message('Unknown arc :'+r)
+           messagebox('Unknown arc :'+r,"modal","error");
            ok=%f
          end
        end
index 8526df4..171c8f5 100644 (file)
@@ -11,8 +11,7 @@
 function [ok,GraphList,edited,fname]=ge_do_load(fname)
   GraphList=[];ok=%t
   if edited then
-    ok=x_message(['Current graph is modified'
-                 'Do you really want to erase it'],['yes','no'])
+    ok=messagebox(['Current graph is modified';'Do you really want to erase it'],"modal","question",['yes','no']);
     if ok==2 then ok=%f,return,end
   end
 
index 3dbe95d..4daff56 100644 (file)
@@ -10,8 +10,8 @@
 
 function [ok,GraphList]=ge_do_new()
   if EGdata.Edited then
-    if x_message(['Current graph is modified'
-                 'Do you really want to erase it'],['yes','no'])==2 then
+    if messagebox(['Current graph is modified'
+                 'Do you really want to erase it'],"modal","question",['yes','no'])==2 then
       ok=%f
       graphlist=[]
       return
index efc99cc..6a4af8e 100644 (file)
@@ -14,8 +14,8 @@ function  ok=ge_do_quit(check_if_edited)
   w=string(win)
   execstr('global EGdata_'+w+'; edited=EGdata_'+w+'.Edited')
   if edited&check_if_edited then
-    ok=x_message(['Current graph is modified'
-                 'Really quit?'],['yes','no'])
+    ok=messagebox(['Current graph is modified'
+                 'Really quit?'],"modal","question",['yes','no'])
     if ok==2 then ok=%f,return,end
   end
   if or(win==winsid()) then seteventhandler(''),end
index 7c350dd..49d7402 100644 (file)
@@ -90,7 +90,7 @@ function GraphList=ge_do_settings(GraphList)
       mess=[mess;'The answer for ""Is graph directed"" must be ""yes"" or ""no""']
     end
     if mess<>[] then
-      x_message(mess)
+      messagebox(mess,"modal");
     else
       break
     end
index 6e3eda4..a7ef211 100644 (file)
@@ -23,7 +23,7 @@ function r=ge_shortcut(c)
       l=find(Menus(i)==ShortCuts(k,2))
       if l<>[] then m=i;break;end
     end
-    if m==[] then x_message('incoherent shortcut definitions'),r=%f,return,end
+    if m==[] then messagebox('incoherent shortcut definitions',"modal","error"),r=%f,return,end
     execstr('ge_'+convstr(Menus(m)(1))+'(l-1,win)')
   end
   
index 4f260c2..9bd9db5 100644 (file)
@@ -13,8 +13,8 @@ function ge_show_new(GraphList,scale)
   w=string(win)
   execstr('global EGdata_'+w+'; edited=EGdata_'+w+'.Edited')
   if edited then
-    if x_message(['Current graph is modified'
-                 'Do you really want to erase it'],['yes','no'])==2 then
+    if messagebox(['Current graph is modified'
+                 'Do you really want to erase it'],"modal","question",['yes','no'])==2 then
       return
     end
   end
index 3b61096..5098ed0 100644 (file)
@@ -12,9 +12,9 @@ function num=message(strings ,buttons)
 //interface to message primitive to allow simple overloading for live demo 
   [lhs,rhs]=argn(0)
   if rhs==2 then
-    num=x_message(strings ,buttons)
+    num=messagebox(strings,"modal","scilab",buttons);
   else
     num=1
-    x_message(strings)
+    messagebox(strings,"modal");
   end
 endfunction
index 13a6b1f..2884b2e 100644 (file)
@@ -12,7 +12,7 @@ function [txtdo]=lmitool(PROBNAME,XNAME,DNAME)
 txtdo=[]
 
 if RHS ~=3 then
-x_message([gettext('Welcome to LMITOOL');'      ';'   ';
+messagebox([gettext('Welcome to LMITOOL');'      ';'   ';
     gettext('LMITOOL is a Scilab package for LMI optimization');
       '            ';
       '           ';
@@ -35,7 +35,7 @@ x_message([gettext('Welcome to LMITOOL');'      ';'   ';
       gettext('For a detailed description and examples consult: ');
       gettext('          ''LMITOOL: a Package for LMI Optimization in Scilab, User''s Guide'' ');
       '          ';
-      gettext('LMITOOL uses Semidefinite Programming package SP developed by L. Vandenberghe and S. Boyd.')]);
+      gettext('LMITOOL uses Semidefinite Programming package SP developed by L. Vandenberghe and S. Boyd.')],"modal","scilab");
 
 
 
@@ -171,7 +171,7 @@ x_message([gettext('Welcome to LMITOOL');'      ';'   ';
               gettext('file with the same name exists already)')],[fname+'                '])
           fname=stripblanks(fname);
         else
-          x_message(gettext('functions saved in ')+fname');
+          messagebox(gettext('functions saved in ')+fname',"modal","info");
         end
         if fname<>[] then
         deletefile(fname)
@@ -190,7 +190,7 @@ x_message([gettext('Welcome to LMITOOL');'      ';'   ';
               '           Good luck! ';
               'To check the result, use [LME,LMI,OBJ]='+PROBNAME+'_eval(list('+XNAME+'))']
           
-          x_message(txtdo);return
+          messagebox(txtdo,"modal","info");return
         end
         if RHS==3 then
           txtdo = [gettext('    To solve your problem, you need to ');
index 7809965..84fb5ca 100644 (file)
@@ -2,13 +2,13 @@ mode(-1)
 // Copyright INRIA
 
 if ~with_pvm() then
-  x_message('Sorry this version has not been built with pvm interface')
+  messagebox('Sorry this version has not been built with pvm interface',"modal","error");
   return
 end
 
 if MSDOS then
 
-       mes=x_message(['This demo recquires rsh or ssh client/server on Windows.' ..
+       mes=messagebox(['This demo recquires rsh or ssh client/server on Windows.' ..
        'Click on Cancel, if you aren''t sure to have it.' ..
        '' ..
        'Scilab may be unstable if you haven''t rsh/ssh.' ..
@@ -18,7 +18,7 @@ if MSDOS then
   '""rsh localhost -l login dir | more""' ..
   '' ..  
   'This should show the directory listing of the local host.' ..
-  'Piping to ""more"" additionally checks for buffered std{io,err}.'],['Ok','Cancel'])
+  'Piping to ""more"" additionally checks for buffered std{io,err}.'],"modal","info",['Ok','Cancel'])
        if mes == 2 then return, end
        
        if getenv('PVM_RSH','') == '' then
index 1e7f74e..6c67574 100644 (file)
@@ -10,7 +10,7 @@
 
 mode(-1);
 lines(0);
-mes=x_message(["Start PVM daemon if not already active"
+mes=messagebox(["Start PVM daemon if not already active"
            "ok=pvm_start()"
           "if ok==-28 then"
           "  disp(""PVM daemon already active."")"
@@ -19,7 +19,7 @@ mes=x_message(["Start PVM daemon if not already active"
           "  disp(""Could not start PVM, check your environment variables."")"
           "  return"
           "end"],..
-           ['Ok','Cancel'])
+           "modal","question",['Ok','Cancel'])
 if mes==2 then return, end
 ok=pvm_start()       
 if ok==-28 then
@@ -30,25 +30,25 @@ if ok==-1 then
   return
 end
 
-mes=x_message(['Start another Scilab process under PVM with the following instruction:';
+mes=messagebox(['Start another Scilab process under PVM with the following instruction:';
            ' '
           "[task_id,numt] = pvm_spawn(SCI+''/modules/pvm/demos/script.sce'',1,"""",""."")"
           ' '
           'SCI+''/modules/pvm/demos/script.sce'' file is: '
           '======================================='
           read(SCI+'/modules/pvm/demos/script.sce',-1,1,'(a)')],..
-           ['Ok','Cancel'])
+           "modal","question",['Ok','Cancel'])
 if mes==2 then return, end   
 
 [task_id,numt] = pvm_spawn(SCI+'/modules/pvm/demos/script.sce',1,"",".")
 if numt<0 then
-  x_message(['pvm_spawn aborts to create a new process'])
+  messagebox(['pvm_spawn aborts to create a new process'],"modal","error");
   return
 end
-mes=x_message(['Send a simple instruction to the second Scilab process:'
+mes=messagebox(['Send a simple instruction to the second Scilab process:'
           ' '
           'pvm_send(task_id,''disp(''''Hello, please help me to do my work'''')'',0)'  
-          ],['Ok','Cancel'])
+          ],"modal","question",['Ok','Cancel']);
        
 if mes==2 then
   pvm_kill(task_id);
@@ -56,10 +56,10 @@ if mes==2 then
 end
 
 pvm_send(task_id,'disp(''Hello, please help me to do my work'')',0)
-mes=x_message(['Create a matrix A and send it to the second Scilab process:';
+mes=messagebox(['Create a matrix A and send it to the second Scilab process:';
           ' '
           'A=rand(100,100);'
-          'pvm_send(task_id,A,0);pvm_send(task_id,''A=%var'',0)'],['Ok','Cancel'])
+          'pvm_send(task_id,A,0);pvm_send(task_id,''A=%var'',0)'],"modal","question",['Ok','Cancel'])
 if mes==2 then
   pvm_kill(task_id);
   return, 
@@ -67,31 +67,31 @@ end
 a=rand(100,100);
 pvm_send(task_id,a,0);
 pvm_send(task_id,'A=%var',0);
-mes=x_message(['Ask second process to compute the eigenvalue of A:'
+mes=messagebox(['Ask second process to compute the eigenvalue of A:'
            ' ';
-          'pvm_send(task_id,''v=spec(A)'',0);'],['Ok','Cancel'])
+          'pvm_send(task_id,''v=spec(A)'',0);'],"modal","question",['Ok','Cancel'])
 if mes==2 then
   pvm_kill(task_id);
   return, 
 end
 pvm_send(task_id,'v=spec(A)',0);
-mes=x_message(['Ask second process to send back the eigenvalue of A:'
+mes=messagebox(['Ask second process to send back the eigenvalue of A:'
            ' '
-          'pvm_send(task_id,''pvm_send(pvm_parent(),v,0)'',0);'],['Ok','Cancel'])
+          'pvm_send(task_id,''pvm_send(pvm_parent(),v,0)'',0);'],"modal","question",['Ok','Cancel'])
 
 if mes==2 then
   pvm_kill(task_id);
   return, 
 end
 pvm_send(task_id,'pvm_send(pvm_parent(),v,0)',0);
-mes=x_message(['Receive the computed eigenvalues:';
+mes=messagebox(['Receive the computed eigenvalues:';
            ' ';
-          'v=pvm_recv(task_id,0);disp(v)'],['Ok','Cancel'])
+          'v=pvm_recv(task_id,0);disp(v)'],"modal","question",['Ok','Cancel'])
 if mes==2 then
   pvm_kill(task_id);
   return, 
 end
 v=pvm_recv(task_id,0);disp(v)
 pvm_send(task_id,'exit',0)
-x_message(['Job finished'])
+messagebox(['Job finished'],"modal","info");
 pvm_halt()
index 791642d..9dc80d5 100644 (file)
@@ -869,8 +869,8 @@ function ok=gen_ccode42();
 
   created=fileinfo(rpat+'/'+rdnom+'_act_sens_events.c')
   if created~=[] then
-    reponse=x_message(['File: ""'+rdnom+'_act_sens_events.c"" already exists,';
-                       'do you want to replace it ?'],['Yes','No']);
+    reponse=messagebox(['File: ""'+rdnom+'_act_sens_events.c"" already exists,';
+                       'do you want to replace it ?'],"modal","question",['Yes','No']);
   end
 
   if reponse==1 |  reponse==[] then
@@ -1438,16 +1438,16 @@ function  [ok,XX,alreadyran,flgcdgen,szclkINTemp,freof] = do_compile_superblock4
       [pathrp,fnamerp,extensionrp]=fileparts(rpat)
       ok=mkdir(pathrp,fnamerp+extensionrp)
       if ~ok then 
-        x_message('Directory '+rpat+' cannot be created');
+        messagebox('Directory '+rpat+' cannot be created',"modal","info");
       end
     elseif filetype(dirinfo(2))<>'Directory' then
       ok=%f;
-      x_message(rpat+' is not a directory');
+      messagebox(rpat+' is not a directory',"modal","error");
     end
 
     if stripblanks(rdnom)==emptystr() then 
       ok=%f;
-      x_message('sorry C file name not defined');
+      messagebox('sorry C file name not defined',"modal","error");
     end
     if ok then break,end
   end
index 4b37b26..a289928 100644 (file)
@@ -80,7 +80,7 @@ function [ok,tt]=MODCOM(funam,tt,vinp,vout,vparam,vparamv,vpprop)
       //++ Check that modelica compiler is available
       //++ Otherwise, give some feedback and quit
       if ~with_modelica_compiler() then
-        x_message(sprintf(gettext("%s: Error: Modelica compiler (MODELICAC) is unavailable."), "MODCOM"));
+        messagebox(sprintf(gettext("%s: Error: Modelica compiler (MODELICAC) is unavailable."), "MODCOM"),"modal","error");
         ok = %f
         break
       end
@@ -88,7 +88,7 @@ function [ok,tt]=MODCOM(funam,tt,vinp,vout,vparam,vparamv,vpprop)
       compilerpath = 'modelicac'; //** thanks to automatic detection on both Windows and Unix platforms
 
       if execstr('unix_s(compilerpath + '' -c '' + funam + '' -o '' + tarpath + nameF + ''.moc'')', 'errcatch') <> 0 then
-        x_message(sprintf(gettext("%s: An error occurred during the compilation of the Modelica block."),"MODCOM"))
+        messagebox(sprintf(gettext("%s: An error occurred during the compilation of the Modelica block."),"MODCOM"),"modal","error");
         textmp = txt
         ok = %f
       else
index e652687..6316362 100644 (file)
@@ -33,7 +33,7 @@ function Open_()
   gh_curwin = scf(curwin); 
 
   if edited & ~super_block then //** if is edited and is NOT a superblock
-    num = x_message(["Diagram has not been saved"],['OK','Go Back'])
+    num = messagebox(["Diagram has not been saved"],"modal","question",['OK','Go Back'])
     if num==2 then 
       return ; //** if "Go Back" then EXIT
     end
index 3e69280..b9681b1 100644 (file)
@@ -28,7 +28,7 @@ function [model, ok] = build_block(o)
 
   if model.sim(1)=='scifunc' then
     if model.ipar==0 then
-      x_message(sprintf(gettext("%s: Error: A scifunc block has not been defined."), "build_block"))
+      messagebox(sprintf(gettext("%s: Error: A scifunc block has not been defined."), "build_block"),"modal","error");
       ok = %f
       return
     end
@@ -72,7 +72,7 @@ function [model, ok] = build_block(o)
       //++ Check that modelica compiler is available
       //++ Otherwise, give some feedback and quit
       if ~with_modelica_compiler() then
-        x_message(sprintf(gettext("%s: Error: Modelica compiler (MODELICAC) is unavailable."), "build_block"));
+        messagebox(sprintf(gettext("%s: Error: Modelica compiler (MODELICAC) is unavailable."), "build_block"),"modal","error");
         ok = %f
       end
 
index 8868994..d92e726 100644 (file)
@@ -179,7 +179,7 @@ function  [blklst,cmat,ccmat,cor,corinv,ok,scs_m,flgcdgen,freof] = c_pass1(scs_m
     // modelica blocks with events ports are not allowed yet
     if size(ccmat,1)>0 then
       if or(dsearch(ccmat(:,[1 3]),imp,'d')>0) then
-       x_message('An implicit block has an event port')
+       messagebox('An implicit block has an event port',"modal","error");
        ok=%f;return
       end
     end
index b11800b..7524ed8 100644 (file)
@@ -1196,9 +1196,9 @@ function [lnksz,lnktyp,inplnk,outlnk,clkptr,cliptr,inpptr,outptr,xptr,zptr,..
     end
     if funtyp(i,1)>999&funtyp(i,1)<10000 then
       if ~c_link(funs(i)) then
-       x_message(['A C or Fortran block is used but not linked';
+       messagebox(['A C or Fortran block is used but not linked';
                   'You can save your compiled diagram and load it';
-                  'This will automatically link the C or Fortran function'])
+                  'This will automatically link the C or Fortran function'],"modal","info");
       end
     end
     inpnum=ll.in;outnum=ll.out;cinpnum=ll.evtin;coutnum=ll.evtout;
@@ -2301,8 +2301,8 @@ function [bllst,inplnk,outlnk,clkptr,cliptr,inpptr,outptr,dep_u,dep_uptr,dep_t,.
     sizenin=size(ll.in,'*');
     if (size(ll.dep_ut,'*') <> 2) then
       if ( size(ll.dep_ut(1:$-1),'*') <> sizenin) then
-       x_message(['the dep_ut size of the '+ll.sim(1)+' block is not correct';
-                  'it should be colonn of size '+string(sizenin+1)])     
+       messagebox(['the dep_ut size of the '+ll.sim(1)+' block is not correct';
+                  'it should be colonn of size '+string(sizenin+1)],"modal","error");
        ok=%f;   
       end
     end
index dd767e2..7da052f 100644 (file)
@@ -25,7 +25,7 @@ function [ok, name, nx, nin, nout, ng, nm, nz] = compile_modelica(fil)
   //++ Check that modelica compiler is available
   //++ Otherwise, give some feedback and quit
   if ~with_modelica_compiler() then
-    x_message(sprintf(gettext("%s: Error: Modelica compiler (MODELICAC) is unavailable."), "compile_modelica"))
+    messagebox(sprintf(gettext("%s: Error: Modelica compiler (MODELICAC) is unavailable."), "compile_modelica"),"modal","error");
     name = ''
     ok = %f, nx = 0, nin = 0, nout = 0, ng = 0, nm = 0, nz = 0; return
   end
@@ -121,31 +121,31 @@ function [ok, name, nx, nin, nout, ng, nm, nz] = compile_modelica(fil)
         end
         if execstr('unix_s(instr)', 'errcatch') <> 0 then
           MSG2 = mgetl(TMPDIR + filesep() + translator_err)
-          x_message(['-------Modelica compiler error:-------'; ..
+          messagebox(['-------Modelica compiler error:-------'; ..
                      MSG1; ..
                      '-------Modelica translator error:-------'; ..
                      MSG2; ..
-                     'Please read the error message in the Scilab window'])
+                     'Please read the error message in the Scilab window'],"modal","error");
           ok = %f, nx = 0, nin = 0, nout = 0, ng = 0, nm = 0, nz = 0; return
         end
         instr = modelicac + ' ' + FlatName + ' -o ' + path + name + '.c ' + JAC + ' > ' + TMPDIR + filesep() + unix_err
         if execstr('unix_s(instr)', 'errcatch') <> 0 then
           MSG3 = mgetl(TMPDIR + filesep() + unix_err)
-          x_message(['-------Modelica compiler error (without the translator):-------'; ..
+          messagebox(['-------Modelica compiler error (without the translator):-------'; ..
                      MSG1; ..
                      '-------Modelica compiler error (with the translator):-------'; ..
                      MSG3; ..
-                     'Please read the error message in the Scilab window'])
+                     'Please read the error message in the Scilab window'],"modal","error");
           ok = %f, nx = 0, nin = 0, nout = 0, ng = 0, nm = 0, nz = 0; return
         else
           mprintf('   Flat modelica code generated at ' + FlatName + '\n')
         end
       else // if_translator_exists
-        x_message(['-------Modelica compiler error (without the translator):-------'; ..
+        messagebox(['-------Modelica compiler error (without the translator):-------'; ..
                    MSG1; ..
                    'Please read the error message in the Scilab window'; ..
                    ' '; ..
-                   'Please install the Modelica translator (available at www.scicos.org) in ""SCI' + filesep() + 'bin"" and try again'])
+                   'Please install the Modelica translator (available at www.scicos.org) in ""SCI' + filesep() + 'bin"" and try again'],"modal","error");
         ok = %f, nx = 0, nin = 0, nout = 0, ng = 0, nm = 0, nz = 0; return
       end // if_translator_exists
     end // if_modelicac_fails_then_use_translator
@@ -219,14 +219,14 @@ function [ok, name, nx, nin, nout, ng, nm, nz] = compile_modelica(fil)
     // files=name+'.o';Make=path+'Make'+name;loader=path+name+'.sce'
     // ierr=execstr('libn=ilib_for_link(name,files,libs,''c'',Make,loader,'''','''',E2)','errcatch')
     // if ierr<>0 then
-    //   ok=%f;x_message(['sorry compilation problem';lasterror()])
+    //   ok=%f;messagebox(['sorry compilation problem';lasterror()],"modal","error");
     //   return
     // end
 
     // executing loader file
     // if execstr('exec(loader); ','errcatch')<>0 then
     //   ok=%f;
-    //   x_message(['Problem while linking generated code';lasterror()])
+    //   messagebox(['Problem while linking generated code';lasterror()],"modal","error");
     //   return
     // end
 
index 048d87d..2d0c52d 100644 (file)
@@ -34,8 +34,8 @@ function scs_m = do_doc(scs_m,%pt)
   if type_objet == 'Block' then
     documentation = objet.doc
     if documentation == []|documentation == list() then
-      rep=x_message(['No documentation function specified'
-                    'would you like to use standard_doc ?'],['yes','no'])
+      rep=messagebox(['No documentation function specified'
+                    'would you like to use standard_doc ?'],"modal","question",['yes','no'])
       funname='standard_doc'
       if rep==2 then
        [ok, funname] = getvalue('Enter the name of the documentation function',..
@@ -45,7 +45,7 @@ function scs_m = do_doc(scs_m,%pt)
       doc=[]
       ierr=execstr('docfun='+funname,'errcatch')
       if ierr<>0 then
-       x_message('function '+funname+' not found')
+       messagebox('function '+funname+' not found',"modal","error");
        return
       end
       documentation=list(docfun,doc)
@@ -54,7 +54,7 @@ function scs_m = do_doc(scs_m,%pt)
     if type(funname)==10 then 
       ierr=execstr('docfun='+funname,'errcatch')
       if ierr<>0 then
-       x_message('function '+funname+' not found')
+       messagebox('function '+funname+' not found',"modal","error");
        return
       end
     else
@@ -68,10 +68,10 @@ function scs_m = do_doc(scs_m,%pt)
       objet.doc = documentation
       scs_m.objs(numero_objet) = objet
     else
-      x_message(documentation(1)+'(''set'',...) failed')
+      messagebox(documentation(1)+'(''set'',...) failed',"modal","error");
     end
   else
-    x_message('It is impossible to set Documentation for this type of object')
+    messagebox('It is impossible to set Documentation for this type of object',"modal","error");
   end
   //
   if ok then [scs_m_save,enable_undo,edited]=resume(scs_m_save,%t,%t),end
index 2749ed5..d1196f2 100644 (file)
@@ -28,7 +28,7 @@ function [scs_m, cpr, needcompile, ok] = do_eval(scs_m, cpr)
        funcprot(0)
        getvalue = setvalue;
 
-       deff('message(txt)','x_message(''In block '' + o.gui + '': '' + txt); %scicos_prob = resume(%t)')
+       deff('message(txt)','messagebox(''In block '' + o.gui + '': '' + txt,""modal""); %scicos_prob = resume(%t)')
 
        %scicos_prob = %f
        deff('[ok, tt] = FORTR(funam, tt, i, o)','ok = %t')
index 441cab1..57b4f41 100644 (file)
@@ -159,7 +159,7 @@ function [edited,options] = do_options(opt,flag)
 //                               [" ", " ", " "]) ; 
 //       if ~ok then break, end
 //       if or(R < 0 | R > 1) | or(G < 0 | G > 1) | or(B < 0 | B > 1) then
-//         x_message("One or several RGB components are out of [0 1]")
+//         messagebox("One or several RGB components are out of [0 1]","modal","error");
 //       else
 //         break; //** EXIT from the input loop 
 //       end
index 499a7a8..3046998 100644 (file)
@@ -33,12 +33,12 @@ function [blklstr,cmatr,ccmat,cor,corinv,ok]=extract_implicit(blklst,cmat,ccmat)
   
   if size(ccmat,1)>0 then
     if or(dsearch(ccmat(:,1),imp,'d')<>0) then
-      x_message('An implicit block has an event input')
+      messagebox('An implicit block has an event input',"modal","error");
       ok=%f
       return
     end
     if  or(dsearch(ccmat(:,3),imp,'d')<>0) then
-      x_message('An implicit block has an event output')
+      messagebox('An implicit block has an event output',"modal","error");
       ok=%f
       return
     end
index c6c6001..dbb99ed 100644 (file)
@@ -72,13 +72,13 @@ function [ok,libs,for_link] = link_olibs(libs,rpat)
         if fileinfo(x+'.dll')<>[] then
           if fileinfo(x+'lcc.lib')==[] then
             //** export lcc.lib
-            x_message(['I will try to export a '+x+'lcc.lib']);
+            messagebox(['I will try to export a '+x+'lcc.lib'],"modal","info");
             ok=exportlibforlcc(x,rpat)
             if ~ok then
-              x_message(['Can''t export a '+path+fname+'lcc.lib';
+              messagebox(['Can''t export a '+path+fname+'lcc.lib';
                          'Please try to do your own lcc.lib file with';
                          'the xx scilab function or change the path';
-                         'of your library '+x+'.dll']);
+                         'of your library '+x+'.dll'],"modal","error");
               ok=%f;
               return
             end
@@ -91,13 +91,13 @@ function [ok,libs,for_link] = link_olibs(libs,rpat)
         elseif fileinfo(x+'.DLL')<>[] then
           if fileinfo(x+'lcc.lib')==[] then
             //** export lcc.lib
-            x_message(['I will try to export a '+x+'lcc.lib']);
+            messagebox(['I will try to export a '+x+'lcc.lib'],"modal","info");
             ok=exportlibforlcc(x,rpat)
             if ~ok then
-              x_message(['Can''t export a '+path+fname+'lcc.lib';
+              messagebox(['Can''t export a '+path+fname+'lcc.lib';
                          'Please try to do your own lcc.lib file with';
                          'the xx scilab function or change the path';
-                         'of your library '+x+'.dll']);
+                         'of your library '+x+'.dll'],"modal","error");
               ok=%f;
               return
             end
@@ -114,9 +114,9 @@ function [ok,libs,for_link] = link_olibs(libs,rpat)
           pause
         end
       elseif fileinfo(x)==[] then
-        x_message(['Can''t include '+x;
+        messagebox(['Can''t include '+x;
                    'That file doesn''t exist';
-                   lasterror()])
+                   lasterror()],"modal","error");
         ok=%f
         return
       //** extension assume that user know what he does
@@ -131,13 +131,13 @@ function [ok,libs,for_link] = link_olibs(libs,rpat)
           link(for_link($));
           if fileinfo(x+'lcc.lib')==[] then
             //** export lcc.lib
-            x_message(['I will try to export a '+x+'lcc.lib']);
+            messagebox(['I will try to export a '+x+'lcc.lib'],"modal","info");
             ok=exportlibforlcc(path+fname,rpat)
             if ~ok then
-              x_message(['Can''t export a '+path+fname+'lcc.lib';
+              messagebox(['Can''t export a '+path+fname+'lcc.lib';
                          'Please try to do your own lcc.lib file with';
                          'the xx scilab function or change the path';
-                         'of your library '+x+'.dll']);
+                         'of your library '+x+'.dll'],"modal","error");
               ok=%f;
               return
             end
@@ -154,16 +154,16 @@ function [ok,libs,for_link] = link_olibs(libs,rpat)
             link(for_link($));
           else
             //link(x);
-            x_message(['I don''t know what to do !';
-                      'Please report to alan.layec@inria.fr';])
+            messagebox(['I don''t know what to do !';
+                      'Please, report this through the Scilab bug tracker.'],"modal","error");
             ok=%f
             pause
           end
           xlibs=[xlibs;x]
         else
           //link(x);
-          x_message(['I don''t know what to do !';
-                     'Please report to alan.layec@inria.fr';])
+          messagebox(['I don''t know what to do !';
+                     'Please, report this through the Scilab bug tracker.'],"modal","error");
           ok=%f
           pause
         end
@@ -189,8 +189,8 @@ function [ok,libs,for_link] = link_olibs(libs,rpat)
             link(for_link($));
           //** no .dll, .DLL
           else
-            x_message(['I cant''t find a dll !';
-                       'Please report to alan.layec@inria.fr';])
+            messagebox(['I cant''t find a dll !';
+                       'Please, report this through the Scilab bug tracker.'],"modal","error");
             ok=%f
             pause
           end
@@ -207,8 +207,8 @@ function [ok,libs,for_link] = link_olibs(libs,rpat)
             link(for_link($));
           //** no .dll, .DLL
           else
-            x_message(['I cant''t find a dll !';
-                       'Please report to alan.layec@inria.fr';])
+            messagebox(['I cant''t find a dll !';
+                       'Please, report this through the Scilab bug tracker.'],"modal","error");
             ok=%f
             pause
           end
@@ -217,15 +217,15 @@ function [ok,libs,for_link] = link_olibs(libs,rpat)
           //** no extension
           //   no .lib, no .ilib exists
           //   do something here please ?
-          x_message(['I don''t know what to do !';
-                     'Please report to alan.layec@inria.fr';])
+          messagebox(['I don''t know what to do !';
+                     'Please, report this through the Scilab bug tracker.';],"modal","error");
           ok=%f
           pause
         end
       elseif fileinfo(x)==[] then
-        x_message(['Can''t include '+x;
+        messagebox(['Can''t include '+x;
                    'That file doesn''t exist';
-                   lasterror()])
+                   lasterror()],"modal","error");
         ok=%f
         return
       //** extension assume that user know what he does
@@ -244,8 +244,8 @@ function [ok,libs,for_link] = link_olibs(libs,rpat)
             xlibs=[xlibs;path+fname+'.lib']
           else
             //link(x);
-            x_message(['I don''t know what to do !';
-                      'Please report to alan.layec@inria.fr';])
+            messagebox(['I don''t know what to do !';
+                      'Please, report this through the Scilab bug tracker.'],"modal","error");
             ok=%f
             pause
           end
@@ -259,16 +259,16 @@ function [ok,libs,for_link] = link_olibs(libs,rpat)
             link(for_link($));
           else
             //link(x);
-            x_message(['I don''t know what to do !';
-                      'Please report to alan.layec@inria.fr';])
+            messagebox(['I don''t know what to do !';
+                      'Please, report this through the Scilab bug tracker.'],"modal","error");
             ok=%f
             pause
           end
           xlibs=[xlibs;x]
         else
           //link(x);
-          x_message(['I don''t know what to do !';
-                     'Please report to alan.layec@inria.fr';])
+          messagebox(['I don''t know what to do !';
+                     'Please, report this through the Scilab bug tracker.'],"modal","error");
           ok=%f
           pause
         end
@@ -292,8 +292,8 @@ function [ok,libs,for_link] = link_olibs(libs,rpat)
         link(for_link($));
        else
          //link(x);
-         x_message(['I don''t know what to do !';
-                    'Please report to alan.layec@inria.fr';])
+         messagebox(['I don''t know what to do !';
+                    'Please, report this through the Scilab bug tracker.'],"modal","error");
          ok=%f
          pause
        end
@@ -303,15 +303,15 @@ function [ok,libs,for_link] = link_olibs(libs,rpat)
          xlibs=[xlibs;x+'.A']
        else
          //link(x);
-         x_message(['I don''t know what to do !';
-                    'Please report to alan.layec@inria.fr';])
+         messagebox(['I don''t know what to do !';
+                    'Please, report this through the Scilab bug tracker.'],"modal","error");
          ok=%f
          pause
        end
       elseif fileinfo(x)==[] then
-        x_message(['Can''t include '+x;
+        messagebox(['Can''t include '+x;
                    'That file doesn''t exist';
-                   lasterror()])
+                   lasterror()],"modal","error");
         ok=%f
         return
       //** extension assume that user know what he does
@@ -330,8 +330,8 @@ function [ok,libs,for_link] = link_olibs(libs,rpat)
             xlibs=[xlibs;path+fname+'.A']
           else
             //link(x);
-            x_message(['I don''t know what to do !';
-                      'Please report to alan.layec@inria.fr';])
+            messagebox(['I don''t know what to do !';
+                      'Please, report this through the Scilab bug tracker.'],"modal","error");
             ok=%f
             pause
           end
@@ -345,16 +345,16 @@ function [ok,libs,for_link] = link_olibs(libs,rpat)
             link(for_link($));
           else
             //link(x);
-            x_message(['I don''t know what to do !';
-                      'Please report to alan.layec@inria.fr';])
+            messagebox(['I don''t know what to do !';
+                    'Please, report this through the Scilab bug tracker.'],"modal","error");
             ok=%f
             pause
           end
           xlibs=[xlibs;x]
         else
           //link(x);
-          x_message(['I don''t know what to do !';
-                    'Please report to alan.layec@inria.fr';])
+          messagebox(['I don''t know what to do !';
+                    'Please, report this through the Scilab bug tracker.'],"modal","error");
           ok=%f
           pause
         end
index 02e19b4..5153890 100644 (file)
@@ -23,9 +23,9 @@ function num=message(strings ,buttons)
 //interface to message primitive to allow simple overloading for live demo 
 [lhs,rhs]=argn(0)
 if rhs==2 then
-  num=x_message(strings ,buttons)
+  num=messagebox(strings,"modal","scilab",buttons);
 else
   num=1
-  x_message(strings)
+  messagebox(strings,"modal","scilab");
 end
 endfunction
index 67897ae..d8a2e09 100644 (file)
@@ -280,7 +280,7 @@ function texte = standard_document(objet, k)
        if type(funname)==10 then 
          ierr=execstr('docfun='+funname,'errcatch')
          if ierr<>0 then
-           x_message('function '+funname+' not found')
+           messagebox('function '+funname+' not found',"modal","error");
            return
          end
        else
index 9345b73..6c37963 100644 (file)
@@ -40,14 +40,14 @@ function scicos_pal=update_scicos_pal(path,name,fname)
        instr='\rm -f '+TMPDIR+'/'+name+'.pal'
       end
       if execstr('unix_s(instr)','errcatch')<>0 then
-       x_message(['I was not able to delete '+name+'.pal';
-                  'in '+TMPDIR+'. You must do it now!'])
+       messagebox(['I was not able to delete '+name+'.pal';
+                  'in '+TMPDIR+'. You must do it now!'],"modal","error");
       end
     end
   else
     scicos_pal=[scicos_pal;[name,fname]]
   end
   if execstr('save(''.scicos_pal'',scicos_pal)','errcatch')<>0 then
-    x_message(['I was not able to write in .scicos_pal:';lasterror()])
+    messagebox(['I was not able to write in .scicos_pal:';lasterror()],"modal","error");
   end
 endfunction
index 06b7292..e009e37 100644 (file)
@@ -210,17 +210,17 @@ while %t do
     clear %vv
   end
   if %nok>0 then
-    x_message(['answer given for '+%labels(%nok);
+    messagebox(['answer given for '+%labels(%nok);
              'has invalid dimension: ';
-             'waiting for dimension  '+%ssz])
+             'waiting for dimension  '+%ssz],"modal","error");
     %ini=%str
   elseif %nok<0 then
     if %ierr==0 then
-      x_message(['answer given for '+%labels(-%nok);
-       'has incorrect type :'+ %typ(-2*%nok-1)])
+      messagebox(['answer given for '+%labels(-%nok);
+       'has incorrect type :'+ %typ(-2*%nok-1)],"modal","error");
     else
-      x_message(['answer given for '+%labels(-%nok);
-       'is incorrect:'+lasterror()])
+      messagebox(['answer given for '+%labels(-%nok);
+       'is incorrect:'+lasterror()],"modal","error");
     end
     %ini=%str
   else
index 5a3964a..062812b 100644 (file)
@@ -265,17 +265,17 @@ while %t do
     execstr('%'+string(%kk)+'=%vv')
   end
   if %nok>0 then
-    x_message(['answer given for '+%labels(%nok);
+    messagebox(['answer given for '+%labels(%nok);
              'has invalid dimension: ';
-             'waiting for dimension  '+%ssz])
+             'waiting for dimension  '+%ssz],"modal","error");
     %ini=%str
   elseif %nok<0 then
     if %ierr==0 then
-      x_message(['answer given for '+%labels(-%nok);
-       'has incorrect type :'+ %typ(-2*%nok-1)])
+      messagebox(['answer given for '+%labels(-%nok);
+       'has incorrect type :'+ %typ(-2*%nok-1)],"modal","error");
     else
-      x_message(['answer given for '+%labels(-%nok);
-       'is incorrect:'+lasterror()])
+      messagebox(['answer given for '+%labels(-%nok);
+       'is incorrect:'+lasterror()],"modal","error");
     end
     %ini=%str
   else
index c3a754b..955ca71 100644 (file)
@@ -63,16 +63,16 @@ function [x,y,typ]=AUTOMAT(job,arg1,arg2)
        ModifEncore=%t;
      end
      if (NX<>size(X0,'*')) then
-       x_message('the size of intial continuous-time states should be NX='+string(NX));
+       messagebox('the size of intial continuous-time states should be NX='+string(NX),"modal","error");
        ModifEncore=%t;
      end
      
      [rXP,cXP]=size(XP)
      if cXP<>NX then 
-       x_message('Xproperty matrix is not valid: it should have NX='+string(NX)+' columns');
+       messagebox('Xproperty matrix is not valid: it should have NX='+string(NX)+' columns',"modal","error");
        ModifEncore=%t;
      elseif ((rXP<>NMode) & (rXP>1))
-       x_message('Xproperty matrix is not valid: it should have NMode='+string(NMode)+' or 1 row(s)');
+       messagebox('Xproperty matrix is not valid: it should have NMode='+string(NMode)+' or 1 row(s)',"modal","error");
        ModifEncore=%t;
      elseif (rXP==1)
        for i=1:NMode-1
@@ -102,12 +102,12 @@ function [x,y,typ]=AUTOMAT(job,arg1,arg2)
        end 
        
        if MaxModes>NMode then 
-        x_message(['Attention!: Numbeor of Modes should be '+string(MaxModes);..
-                'A destination Mode in Mode#'+string(imax)+'''s targets is invalid!']);
+        messagebox(['Number of Modes should be '+string(MaxModes);..
+                'A destination Mode in Mode#'+string(imax)+'''s targets is invalid!'],"modal","error");
         ModifEncore=%t;
        end
        if MaxModes<NMode then 
-        x_message(['Attention!: There is an unused Mode or the Number of Modes should be '+string(MaxModes)]);
+        messagebox(['There is an unused Mode or the Number of Modes should be '+string(MaxModes)],"modal","error");
         ModifEncore=%t;
        end
      end
index 57b7008..f596f6f 100644 (file)
@@ -124,8 +124,8 @@ case 'set' then
 
    if ierr<>0 then
      //You loose ! Try again ! Insert coin !
-     //x_message("Error, try again please!")
-     x_message("Error in evaluation of variables.")
+     //messagebox("Error, try again please!","modal","error");
+     messagebox("Error in evaluation of variables.","modal","error");
      ok=%f
      //break
    end
@@ -142,9 +142,9 @@ case 'set' then
        end
      end
      if ~ok then
-       x_message(["Invalid variable name for the input "+string(i)+".";
+       messagebox(["Invalid variable name for the input "+string(i)+".";
                   """"+in(i)+"""";
-                  "Please choose another variable name."] );
+                  "Please choose another variable name."],"modal","error");
      end
    end
    //out
@@ -158,9 +158,9 @@ case 'set' then
        end
      end
      if ~ok then
-       x_message(["Invalid variable name for the output "+string(i)+".";
+       messagebox(["Invalid variable name for the output "+string(i)+".";
                   """"+out(i)+"""";
-                  "Please choose another variable name."] );
+                  "Please choose another variable name."],"modal","error");
      end
    end
    //param
@@ -175,9 +175,9 @@ case 'set' then
        end
      end
      if ~ok then
-       x_message(["Invalid variable name for the parameter "+string(i)+".";
+       messagebox(["Invalid variable name for the parameter "+string(i)+".";
                   """"+param(i)+"""";
-                  "Please choose another variable name."] );
+                  "Please choose another variable name."],"modal","error");
      end
    end
 
@@ -187,7 +187,7 @@ case 'set' then
      for i=1:size(intype,'*')
        if intype(i)<>'E'&intype(i)<>'I' then
          //typeok=%f;
-         x_message("Input type should be ''E'' or ''I''!");
+         messagebox("Input type should be ''E'' or ''I''!","modal","error");
          ok=%f
          break
        end
@@ -202,7 +202,7 @@ case 'set' then
      for i=1:size(outtype,'*')
        if outtype(i)<>'E'&outtype(i)<>'I' then
          //typeok=%f;
-         x_message("Output type should be ''E'' or ''I''!");
+         messagebox("Output type should be ''E'' or ''I''!","modal","error");
          ok=%f
          break
        end
@@ -213,7 +213,7 @@ case 'set' then
    //cross size checking
    if ok then
      if or(size(intype)<>size(in)) then
-       x_message("Input variables are not well defined!");
+       messagebox("Input variables are not well defined!","modal","error");
        ok=%f
        //break;
      end
@@ -221,7 +221,7 @@ case 'set' then
 
    if ok then
      if or(size(outtype)<>size(out)) then
-       x_message("Output variables are not well defined!");
+       messagebox("Output variables are not well defined!","modal","error");
        ok=%f
        //break;
      end
@@ -231,9 +231,9 @@ case 'set' then
    if ok then
      pprop = pprop(:)
      if (size(param,'*')<>size(pprop,'*')) then
-       x_message(["There is differences in";
+       messagebox(["There is differences in";
                   "size of param and size ";
-                  "of param properties." ])
+                  "of param properties."],"modal","error");
        ok=%f
        //break;
      end
@@ -241,10 +241,10 @@ case 'set' then
 
    if ok then
      if max(pprop)>2 | min(pprop)<0 then
-       x_message(["Parameters properties must be :";
+       messagebox(["Parameters properties must be :";
                   "0 : for simple paramater,";
                   "1 : for initial state value,";
-                  "2 : for a fixed initial state value." ])
+                  "2 : for a fixed initial state value."],"modal","error");
        ok=%f
        //break;
      end
@@ -253,7 +253,7 @@ case 'set' then
    //check name of modelica file
    if ok then
      if funam=='' then
-       x_message("The filename is not defined!")
+       messagebox("The filename is not defined!","modal","error");
        ok=%f
        //break
      end
@@ -262,7 +262,7 @@ case 'set' then
    if ok then
      [dirF,nameF,extF]=fileparts(funam);
      if (extF<>'' & extF<>'.mo')|(dirF<>'' & extF<>'.mo') then
-       x_message("Filename extention should be ''.mo '' !")
+       messagebox("Filename extention should be ''.mo '' !","modal","error");
        ok=%f
        //break
      end
index 2844fae..0cfa31b 100644 (file)
@@ -40,7 +40,7 @@ case 'set' then
     if ~ok then break,end
     if inh==0 then inh=[]; else inh=1;end
     [model,graphics,ok]=check_io(model,graphics,-1,-1,inh,[])
-    out=size(a,'*');if out==0 then ok=%f,x_message('Initial condition empty');end
+    out=size(a,'*');if out==0 then ok=%f,messagebox('Initial condition empty',"modal","error");end
     in=out
     if ok then
       graphics.exprs=exprs;
index c92c9be..fce2009 100644 (file)
@@ -403,7 +403,7 @@ function do_valider()
   
   // verification du domaine
   if (get(edita,'String') == '' | get(editb,'String') == '') then
-      x_message(['veuillez renseigner les valeurs';'du domaine de la discretisation']); 
+      messagebox(['veuillez renseigner les valeurs';'du domaine de la discretisation'],"modal","error");
       fin=%t;
       fin=resume(fin);
   end
@@ -411,49 +411,49 @@ function do_valider()
   // Test de renseignements sur les differents champs de l'IHM
   if (get(check_op1,'Value') == 1) then
     if (get(edita1,'String') == '' | get(editb1,'String') == '') then
-      x_message(['veuillez renseigner les coefficients';'    de l''operateur d2u/dt2']); 
+      messagebox(['veuillez renseigner les coefficients';'    de l''operateur d2u/dt2'],"modal","error");
       fin=%t;
       fin=resume(fin);
     end
   end
   if (get(check_op2,'Value')== 1) then
     if (get(edita2,'String') == '' | get(editb2,'String') == '') then
-      x_message(['veuillez renseigner les coefficients';'    de l''operateur d2u/dx2']); 
+      messagebox(['veuillez renseigner les coefficients';'    de l''operateur d2u/dx2'],"modal","error");
       fin=%t;
       fin=resume(fin);
     end
   end
   if (get(check_op3,'Value')== 1) then
     if (get(edita3,'String') == '' | get(editb3,'String') == '') then
-      x_message(['veuillez renseigner les coefficients';'    de l''operateur du/dt']); 
+      messagebox(['veuillez renseigner les coefficients';'    de l''operateur du/dt'],"modal","error");
       fin=%t;
       fin=resume(fin);
     end
   end
   if (get(check_op4,'Value')== 1) then
     if (get(edita4,'String') == '' | get(editb4,'String') == '') then
-      x_message(['veuillez renseigner les coefficients';'    de l''operateur d2u/dtdx']); 
+      messagebox(['veuillez renseigner les coefficients';'    de l''operateur d2u/dtdx'],"modal","error");
       fin=%t;
       fin=resume(fin);
     end
   end
   if (get(check_op5,'Value')== 1) then
     if (get(edita5,'String') == '' | get(editb5,'String') == '') then
-      x_message(['veuillez renseigner les coefficients';'    de l''operateur du/dx']); 
+      messagebox(['veuillez renseigner les coefficients';'    de l''operateur du/dx'],"modal","error");
       fin=%t;
       fin=resume(fin);
     end
   end
   if (get(check_op6,'Value')== 1) then
     if (get(edita6,'String') == '' | get(editb6,'String') == '') then
-      x_message(['veuillez renseigner les coefficients';'      de l''operateur u']); 
+      messagebox(['veuillez renseigner les coefficients';'      de l''operateur u'],"modal","error");
       fin=%t;
       fin=resume(fin);
     end
   end
   if (get(check_op7,'Value')== 1) then
     if (get(edita7,'String') == '' | get(editb7,'String') == '') then
-      x_message(['veuillez renseigner les coefficients';'      de l''operateur f']); 
+      messagebox(['veuillez renseigner les coefficients';'      de l''operateur f'],"modal","error");
       fin=%t;
       fin=resume(fin);
     end
@@ -462,7 +462,7 @@ function do_valider()
   // verification du renseignement du signe du discriminant non constant
   if (get(check2,'Value')== 1) then 
     if (get(liste_signe,'Value') == 0 ) then
-      x_message(['veuillez renseigner le signe';'du discriminant non constant']); 
+      messagebox(['veuillez renseigner le signe';'du discriminant non constant'],"modal","error");
       fin=%t;
       fin=resume(fin);
     end
@@ -471,19 +471,19 @@ function do_valider()
   // verification des informations du choix manuel  
   if (get(rad_manuel,'Value')== 1) then     
     if (get(liste_meth,'Value') == 0 ) then
-      x_message(['veuillez renseigner le type';'de la methode de discretisation']); 
+      messagebox(['veuillez renseigner le type';'de la methode de discretisation'],"modal","error");
       fin=%t;
       fin=resume(fin);
     end
     
     if (get(editdegre,'String') == '' ) then
-      x_message(['veuillez renseigner le degre';'de la methode de discretisation']); 
+      messagebox(['veuillez renseigner le degre';'de la methode de discretisation'],"modal","error");
       fin=%t;
       fin=resume(fin);
     end
     
     if (get(editpas,'String') == '' ) then
-      x_message(['veuillez renseigner le nombre';'de points de discretisation']); 
+      messagebox(['veuillez renseigner le nombre';'de points de discretisation'],"modal","error");
       fin=%t;
       fin=resume(fin);
     end    
@@ -491,21 +491,21 @@ function do_valider()
   // verification du renseignement des conditions intiales
   if (get(check_op1,'Value')==1 | get(check_op3,'Value')== 1 | get(check_op4,'Value')== 1) then
     if (get(editCI,'String') == '' ) then
-      x_message(['veuillez renseigner la condition';'         initiale u(x,t0)']); 
+      messagebox(['veuillez renseigner la condition';'         initiale u(x,t0)'],"modal","error");
       fin=%t;
       fin=resume(fin);
     end
   end
   if (get(check_op1,'Value')== 1) then
     if (get(editCI1,'String') == '' ) then
-      x_message(['veuillez renseigner la condition';'         initiale du/dx|t0']); 
+      messagebox(['veuillez renseigner la condition';'         initiale du/dx|t0'],"modal","error");
       fin=%t;
       fin=resume(fin);
     end
   end
   // verification du renseignement des conditions aux limites
   if (get(editCLa,'String') == '' | get(editCLb,'String') == '' ) then
-    x_message(['veuillez renseigner les conditions';'         aux limites']);
+    messagebox(['veuillez renseigner les conditions';'         aux limites'],"modal","error");
     fin=%t;
     fin=resume(fin);
   end
@@ -523,7 +523,7 @@ function add_list_points()
     new = get(edit_pt,'String');
     newv=evstr(new);
     if (newv < evstr(get(edita,'String'))-%eps | newv > evstr(get(editb,'String'))+%eps) then
-      x_message('le point choisi est en dehors du domaine')
+      messagebox('le point choisi est en dehors du domaine',"modal","error");
       return;
     end
     if (list_points == '') then
index e9200c0..ed04dde 100644 (file)
@@ -78,7 +78,7 @@ case 'set' then
       label(3)=lab;
       rdnom=stripblanks(rdnom);     
       if rdnom==emptystr() then 
-        ok1=%f;x_message('sorry C file name not defined');
+        ok1=%f;messagebox('sorry C file name not defined',"modal","error");
       end
       if ok1 then break,end
     end
@@ -97,7 +97,7 @@ case 'set' then
         elseif (signe == 0) then,
           delta=0;
         else
-          x_message(['le discriminant n''est pas constant,'; 'Vous devez choisir son signe dans l''IHM']);
+          messagebox(['le discriminant n''est pas constant,'; 'Vous devez choisir son signe dans l''IHM'],"modal","error");
           return;
         end
       else
index be0e663..f6f976b 100644 (file)
@@ -78,7 +78,7 @@ select job
       xx=xx(:); yy=yy(:);
       [nx,mx] = size(xx); [ny,my]=size(yy);
       if ~((nx==ny)&(mx==my)) then
-         x_message("Incompatible size of [x] and [y]");
+         messagebox("Incompatible size of [x] and [y]","modal","error");
          Ask_again = %t;
       end
     end
@@ -577,7 +577,7 @@ while %t then //=================================================
     t3='Mouse-left double click: edit a point''s coordinates'
     t4='Mouse-left button press/drag/release: move a  point'
     t5='Change the window size: ''Data'' menu -> ''Databounds'''
-    x_message([t1;t2;t3;t4;t5]);
+    messagebox([t1;t2;t3;t4;t5],"modal","info");
     //---------------------------------------------------------------  
    case 'Load from Excel' then
     [tok,xytt]=ReadExcel()
index 57550db..8bdea8d 100644 (file)
@@ -43,17 +43,17 @@ case 'set' then
        list('str',1,'vec',1,'vec',1,'vec',1),exprs)
     if ~ok then break,end
     if ~(Method==0 | Method==1| Method==2| Method==3) then 
-      x_message('Interpolation method should be chosen in [0,1,2,3]');
+      messagebox('Interpolation method should be chosen in [0,1,2,3]',"modal","error");
       ok=%f;
     end
 
     if ~(ZC==0 | ZC==1) then 
-      x_message('Zero crossing should be either 0 or 1');
+      messagebox('Zero crossing should be either 0 or 1',"modal","error");
       ok=%f;
     end
 
     if ~(OutEnd==0 | OutEnd==1| OutEnd==2) then 
-      x_message('Output at end option should be either 0 or 1');
+      messagebox('Output at end option should be either 0 or 1',"modal","error");
       ok=%f;
     end
 
index 952101a..cd112ac 100644 (file)
@@ -31,12 +31,12 @@ for k=1:n,
   desc=[desc;'|'+num+'|'+ftyp+'|'+nl+'|'+nc+'|']
 end
 
-x_message(['       source code of Scilab function';..
+messagebox(['       source code of Scilab function';..
          '-----------------------------';' ';txt;..
          ' ';' ';..
          'type and dimension of input parameters';..
          '---------------------------------------';..
-         ' ';desc])
+         ' ';desc],"modal","info");
 
 write(%io(2),[' ';'Now translation is made...';' '])
 
index d1fef74..2fc263e 100644 (file)
@@ -79,8 +79,8 @@ if rhs<=0 then,
   
   if flag==1 then
     if forder-2*int(forder/2)==0 then
-      x_message([gettext('Even length high pass and stop band filters not allowed');
-        gettext('---Filter order is being incremented by 1')])
+      messagebox([gettext('Even length high pass and stop band filters not allowed');
+           gettext('---Filter order is being incremented by 1')],"modal","error");
       forder=forder+1;
     end
   end
@@ -114,7 +114,7 @@ if rhs<=0 then,
     elseif part(name,1:2)=='df' then
       fpar=[-1,value]
     else
-      x_message(gettext('Incorrect parameter name entered'))
+      messagebox(gettext('Incorrect parameter name entered'),"modal","error");
       return
     end
   case 3 then
index b854274..77668ac 100644 (file)
@@ -8,7 +8,7 @@ num2=num1+1
 num3=num1+2
 num4=num1+3
 
-x_message(["To load a sparse matrix  stored  in  the  Harwell";
+messagebox(["To load a sparse matrix  stored  in  the  Harwell";
           "Boeing format in scilab, you may use the function";
           "                                                 ";
           "                 ReadHBSparse                    ";
@@ -19,9 +19,7 @@ x_message(["To load a sparse matrix  stored  in  the  Harwell";
           "                                                 ";
           "    www.cise.ufl.edu/research/sparse/matrices    ";
           "                                                 ";    
-          "maintained by Tim Davis the author of UMFPACK    ";
-          "                                                 ";
-          "       CLICK ON OK TO CONTINUE                   "]);
+          "maintained by Tim Davis the author of UMFPACK    "],"modal","info");
 
 mode(1)
 [A1,descr1,ref1,mtype1] = ReadHBSparse(SCI+"/modules/umfpack/examples/arc130.rua");
@@ -30,14 +28,12 @@ mode(1)
 [A4,descr4,ref4,mtype4] = ReadHBSparse(SCI+"/modules/umfpack/examples/young1c.csa");
 
 mode(-1)
-x_message(["To see the pattern of non zeros elements";
+messagebox(["To see the pattern of non zeros elements";
           "you may use the function :              ";
           "                                        ";
           "         PlotSparse                     ";
           "                                        ";
-          "  here we will display the 4 matrices   ";
-          "                                        ";
-          "       CLICK ON OK TO CONTINUE          "]);
+          "  here we will display the 4 matrices   "],"modal","info");
 
 mode(1)
 
@@ -59,15 +55,13 @@ xtitle(ref4+"."+mtype4+" : "+descr4)
 
 mode(-1)
 
-x_message(["Now use umfpack to solve some linear system :      ";
+messagebox(["Now use umfpack to solve some linear system :      ";
           "                                                   ";
           "b1 = rand(size(A1,1),1);    -> to create a rhs     ";
           "x1 = umfpack(A1,""\"",b1);    -> to solve A1x1 = b1  ";
           "norm_res = norm(A1*x1-b1);  -> norm of the residual";
           "                                                   ";
-          "this is done for the 4 matrices A1, A2, A3 and A4  ";
-          "                                                   ";
-          "      CLICK ON OK TO CONTINUE                      "]);
+          "this is done for the 4 matrices A1, A2, A3 and A4  "],"modal","info");
 mode(1)
 n1 = size(A1,1);
 b1 = rand(n1,1);          
@@ -91,7 +85,7 @@ norm_res4 = norm(A4*x4-b4);
 
 mode(-1)
 
-x_message([" A1 ("+descr1+") : order = "+ string(n1) + " nnz = " + string(nnz(A1));
+messagebox([" A1 ("+descr1+") : order = "+ string(n1) + " nnz = " + string(nnz(A1));
           " norm of the residual = "+string(norm_res1) ;
           " computing time       = "+string(t1)  ;
           "                                     ";
@@ -105,11 +99,9 @@ x_message([" A1 ("+descr1+") : order = "+ string(n1) + " nnz = " + string(nnz(A1
           "                                     ";
           " A4 ("+descr4+") : order = "+ string(n4) + " nnz = " + string(nnz(A4));
           " norm of the residual = "+string(norm_res4) ;
-          " computing time       = "+string(t4)  ;
-          "                                     ";
-          "      CLICK ON OK TO CONTINUE        "]);
+          " computing time       = "+string(t4)],"modal","info");
 
-x_message(["             Now we will see how to use the lu factors                 ";
+messagebox(["             Now we will see how to use the lu factors                 ";
           "                                                                       ";
           " 1/ lu factors of a sparse matrix A are gotten with :                  ";
           "                                                                       ";
@@ -140,9 +132,8 @@ x_message(["             Now we will see how to use the lu factors
           "        umf_ludel(lup)                                                 ";
           "                                                                       ";
           " If you have lost your pointer you may use  umf_ludel() which free all the ";
-          " current umf lu factors.                                               ";
-          "                                                                       ";
-          "                       CLICK ON OK TO CONTINUE                         "]);
+          " current umf lu factors.                                               "],"modal","info");
+       
           
 mode(1)
 
@@ -180,7 +171,7 @@ umf_ludel(lup4);
 
 mode(-1)
 
-x_message([" A1 ("+descr1+") : order = "+ string(n1) + " nnz = " + string(nnz(A1));
+messagebox([" A1 ("+descr1+") : order = "+ string(n1) + " nnz = " + string(nnz(A1));
            " K1 = " + string(K1);
           " norm of the residual      = "+string(norm_res1) ;
           " idem but with raffinement = "+string(norm_res1r);
@@ -198,14 +189,12 @@ x_message([" A1 ("+descr1+") : order = "+ string(n1) + " nnz = " + string(nnz(A1
           " A4 ("+descr4+") : order = "+ string(n4) + " nnz = " + string(nnz(A4));
            " K4 = " + string(K4);
           " norm of the residual      = "+string(norm_res4) ;
-          " idem but with raffinement = "+string(norm_res4r);
-          "                                     ";
-          "      CLICK ON OK TO CONTINUE        "]);
+          " idem but with raffinement = "+string(norm_res4r)],"modal","info");
 
 
 clear A1 A3 A4 x1 x3 x4 b1 b3 b4
 
-x_message(["            Now we will see how to use the taucs snmf stuff            ";
+messagebox(["            Now we will see how to use the taucs snmf stuff            ";
           " This is useful and recommended when your matrix is symetric positive  ";
           " definite (s.p.d.)                                                     ";
           "                                                                       ";
@@ -235,9 +224,7 @@ x_message(["            Now we will see how to use the taucs snmf stuff
           "        taucs_chdel(Cp)                                                ";
           "                                                                       ";
           " If you have lost your pointer you may use  taucs_chdel() which free   ";
-          " memory for all the current Cholesky factorizations.                   ";
-          "                                                                       ";
-          "                       CLICK ON OK TO CONTINUE                         "]);
+          " memory for all the current Cholesky factorizations.                   "],"modal","info");
 
 mode(1)
 timer();
@@ -251,7 +238,7 @@ K2_norm2 = cond2sp(A2, Cp2);
 taucs_chdel(Cp2);
 mode(-1)
 
-x_message([" On the s.p.d. matrix A2 : ";
+messagebox([" On the s.p.d. matrix A2 : ";
           " A2 ("+descr2+") : order = "+ string(n2) + " nnz = " + string(nnz(A2));
            " K2 (1-norm) = " + string(K2);
            " K2 (2-norm) = " + string(K2_norm2);
@@ -269,15 +256,10 @@ x_message([" On the s.p.d. matrix A2 : ";
           "      CLICK ON OK TO CONTINUE        "]);
 
 
-x_message(["   Demo is out : I hope that this stuff will be  ";
+messagebox(["   Demo is out : I hope that this stuff will be  ";
           " useful for you ! Don''t hesitate to mail me about";
           " bugs (Bruno.Pincon@iecn.u-nancy.fr) or simply to";
-          " tell that this interface is of interest for you ";
-          "                                                 ";
-          "              CLICK ON OK TO FINISH              "]);
+          " tell that this interface is of interest for you "],"modal","info");
          
 xdel(num1); xdel(num2); xdel(num3) ; xdel(num4)
 if old_winsid == [] then, xdel(0), end
-
-
-
index 970445b..402f7e8 100644 (file)
@@ -1,5 +1,5 @@
 // display the file bench.txt
 
 txt = read(SCI+"/modules/umfpack/examples/bench.txt",-1,1,"(A)");
-x_message(txt)
+messagebox(txt,"modal","info");
 
index 20c1106..4eb4a33 100644 (file)
@@ -6,7 +6,7 @@ nb_tests = 20;
 n = 100;
 K1 = zeros(nb_tests,3);
  
-x_message(["A small test for the condestsp"     ;...
+messagebox(["A small test for the condestsp"     ;...
           "function : condestsp gives an"      ;...
           "estimate of the condition number K1";...
           "in 1-norm of a real sparse matrix A:";...
@@ -24,9 +24,7 @@ x_message(["A small test for the condestsp"     ;...
           "sparse matrices (so as to compute  ";...
           "exactly K1 with norm(inv(full(A)),1))";...
            "whose values are choosen from the"  ;...
-           "normal distribution.               ";...
-          "                                   ";...
-          "     CLICK ON OK TO CONTINUE       "]);
+           "normal distribution.               "],"modal","info");
 
 for k = 1:nb_tests
    m = grand(1,1,"uin",1000,2000);  // nnz