Xcos: scicos compatibility 78/178/1
Clément DAVID [Tue, 20 Apr 2010 14:34:35 +0000 (16:34 +0200)]
The scicos base must work for testing purpose.
Patch to correct the menu libs, empty diagram printing and TCL invocation.

Change-Id: Ifde526c76f3c3d970da336fee6b33c40613c0984

scilab/modules/scicos/macros/scicos_auto/scicos.sci
scilab/modules/scicos/macros/scicos_scicos/%diagram_p.sci
scilab/modules/xcos/macros/loadScicosLibs.sci

index d9df03a..129af44 100644 (file)
@@ -141,7 +141,7 @@ return
 
 
 
-    TCL_EvalFile(SCI+"/modules/scicos/macros/scicos_scicos/MIHM.tcl")
+    TCL_EvalFile(SCI+"/modules/scicos/tcl/MIHM.tcl")
 
 
 
index 02a7485..a022baf 100644 (file)
@@ -27,6 +27,8 @@ function %diagram_p(scs_m)
        nams=[nams;o.gui]
      end
    end
-   nums=part(string(1:size(nams,'*'))',1:6)
-   write(%io(2),nums+nams,'(a)')
+   if nams <> [] then
+     nums=part(string(1:size(nams,'*'))',1:6)
+     write(%io(2),nums+nams,'(a)')
+   end
 endfunction
index 3887f29..2ae4e84 100644 (file)
@@ -40,6 +40,11 @@ function loadScicosLibs()
   end
   clear theLib;
 
+  if isfile('SCI/modules/scicos/macros/scicos_menus/lib') then
+    load('SCI/modules/scicos/macros/scicos_menus/lib');
+    listlibsname = [listlibsname, 'scicos_menus'];
+  end
+
   if isfile('SCI/modules/scicos/macros/scicos_scicos/lib') then
     load('SCI/modules/scicos/macros/scicos_scicos/lib');
     listlibsname = [listlibsname, 'scicos_scicos'];