remove functions declared obsolete for scilab 5.2
[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   warnobsolete("uigetdir", "5.2.1");
13   if ~with_tk() then error(gettext("Tcl/Tk interface not loaded.")),end
14   arg=''
15   if exists("startdir","local")==1 then 
16     startdir=pathconvert(startdir,%f,%t)
17     startdir=strsubst(startdir,"\","/")
18     arg=arg+" -initialdir {"+startdir+"}"
19   end
20   if exists("title","local")==1 then
21     Title=title
22     arg = arg+" -title {"+Title+"}",
23   elseif exists("Title","local")==1 then
24     arg=arg+" -title {"+Title+"}";
25   end
26   arg=arg+" -parent $root"
27   p=TCL_EvalStr("tk_chooseDirectory"+arg)
28 endfunction
29