d22a3980b41e258b79953d8204a8a43476857b93
[scilab.git] / scilab / modules / tclsci / macros / tk_getdir.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_getdir(startdir,Title)
12   if ~with_tk() then error(gettext("Tcl/Tk interface not loaded.")),end
13   arg=''
14   if exists("startdir","local")==1 then 
15     startdir=pathconvert(startdir,%f,%t)
16     startdir=strsubst(startdir,"\","/")
17     arg=arg+" -initialdir {"+startdir+"}"
18   end
19   if exists("title","local")==1 then
20     Title=title
21     arg = arg+" -title {"+Title+"}",
22   elseif exists("Title","local")==1 then
23     arg=arg+" -title {"+Title+"}";
24   end
25   arg=arg+" -parent $root"
26   p=TCL_EvalStr("tk_chooseDirectory"+arg)
27 endfunction
28