remove functions declared obsolete for scilab 5.2
[scilab.git] / scilab / modules / tclsci / macros / tk_savefile.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) INRIA
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
11 function p=tk_savefile(file_mask,path,Title,foo)
12   warnobsolete("uigetfile", "5.2.1");
13   if ~with_tk() then error(gettext("Tcl/Tk interface not loaded.")),end
14   arg=''
15   if exists('file_mask','local')==1 then 
16     TCL_SetVar("ftypes",'{""Requested Extensions"" {'+file_mask+'} }')
17     arg=arg+' -filetypes $ftypes',
18   end
19   if exists('path','local')==1 then arg=arg+' -initialdir ""'+path+'""',end
20   if exists('Title','local')==1 then arg=arg+' -title ""'+Title+'""',end
21   if exists('title','local')==1 then 
22   Title=title
23   arg=arg+' -title ""'+Title+'""'
24   end
25   if exists('ini','local')==1 then arg=arg+' -initialfile ""'+ini+'""',end
26   TCL_EvalStr('set scifilepath [tk_getSaveFile'+arg+']')
27   p=TCL_GetVar('scifilepath')
28 endfunction
29