bug 4852
[scilab.git] / scilab / modules / tclsci / macros / tk_getfile.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 // @OBSOLETE
11
12 function [p] = tk_getfile(file_mask,path,Title,multip)
13
14 warnobsolete("uigetfile", "5.2");
15
16 if exists("file_mask","local")==1 then
17   filemask = file_mask;
18 else
19   filemask = "*";
20 end;
21
22 initialdir = pwd();
23 if exists("path","local")==1 then
24   initialdir = pathconvert(path,%f,%t)
25   initialdir = strsubst(initialdir,"\","/")
26 else
27   global("%tk_getfile_defaultpath")
28   if typeof(%tk_getfile_defaultpath)=="string" then
29     initialdir = %tk_getfile_defaultpath;
30   end
31 end;
32
33 thetitle = gettext("Open");
34 if exists("title","local")==1 then
35   thetitle = title
36 elseif exists("Title","local")==1 then
37   thetitle = Title
38 end;
39
40 if ~exists("multip","local")==1 then
41   multip = %F
42 end;
43 if multip~="1" then
44   multip = %F
45 else
46   multip = %T
47 end;
48
49 p = uigetfile(filemask, initialdir, thetitle, multip)';
50
51 if MSDOS then
52   if ~p=="" then
53     global("%tk_getfile_defaultpath");
54     %tk_getfile_defaultpath = dirname(p(1));
55     %tk_getfile_defaultpath=strsubst(%tk_getfile_defaultpath,"\","/")
56   end;
57 end;
58
59 endfunction
60