Modify gcbo in callback
[scilab.git] / scilab / modules / m2sci / macros / m2sci_gui.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2002-2004 - INRIA - Vincent COUVERT 
3 // 
4 // This file must be used under the terms of the CeCILL.
5 // This source file is licensed as described in the file COPYING, which
6 // you should have received as part of this distribution.  The terms
7 // are also available at    
8 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
9
10 function res=m2sci_gui()
11 // Call m2sci.tcl to get file or path to convert using M2SCI and user defined options
12
13 if ~with_tk() then
14   error(gettext("Tcl/Tk interface not defined."));
15 end
16
17 // Default Options and Values
18 TCL_SetVar("ePathToConvert",getcwd());
19 TCL_SetVar("eFileToConvert",gettext("<enter a file name>"));
20 TCL_SetVar("eResDirName",getcwd());
21 TCL_SetVar("rRecMode",gettext("NO"));
22 TCL_SetVar("rOnlyDouble",gettext("NO"));
23 TCL_SetVar("rVerbMode","3");
24 TCL_SetVar("rPrettyPrint",gettext("NO"));
25 TCL_SetVar("rFlagWhatToConvert","0");
26 TCL_SetVar("rToDo","0");
27 TCL_SetVar("rWindowKilled","0");
28
29 TCL_EvalFile(SCI+"/modules/m2sci/tcl/m2sci.tcl");
30
31 rWindowKilled=TCL_GetVar("rWindowKilled");
32 rToDo=TCL_GetVar("rToDo");
33 while rToDo=="0" & rWindowKilled=="0"
34   rWindowKilled=TCL_GetVar("rWindowKilled");
35   rToDo=TCL_GetVar("rToDo");
36   sleep(1);
37 end
38
39 if rToDo=="1" then
40   DirName=TCL_GetVar("ePathToConvert");
41   FileName=TCL_GetVar("eFileToConvert");
42   ResDirName=TCL_GetVar("eResDirName");
43   RecMode=TCL_GetVar("rRecMode");
44   OnlyDouble=TCL_GetVar("rOnlyDouble");
45   VerbMode=TCL_GetVar("rVerbMode");
46   PrettyPrint=TCL_GetVar("rPrettyPrint");
47   FlagWhatToConvert=TCL_GetVar("rFlagWhatToConvert");
48   
49   // Modify Tcl/Tk values
50   if RecMode==gettext("YES") then
51     RecMode=%T
52   else  
53     RecMode=%F
54   end    
55   if OnlyDouble==gettext("YES") then
56     OnlyDouble=%T
57   else
58     OnlyDouble=%F
59   end    
60   if PrettyPrint==gettext("YES") then
61     PrettyPrint=%T
62   else
63     PrettyPrint=%F
64   end    
65   VerbMode=evstr(VerbMode);
66   
67   if FlagWhatToConvert=="0" then // Convert a whole directory
68     translatepaths(DirName,ResDirName);
69     res=0
70   else
71     res=mfile2sci(FileName,ResDirName,RecMode,OnlyDouble,VerbMode,PrettyPrint);
72   end
73 elseif rToDo=="-1" then
74   // Cancel button
75   res=0
76 else
77   // Window killed
78   res=0
79 end
80 endfunction