summaryrefslogtreecommitdiffstats
path: root/scilab/modules/tclsci
diff options
context:
space:
mode:
authorAllan CORNET <allan.cornet@scilab.org>2010-02-08 09:35:28 +0100
committerAllan CORNET <allan.cornet@scilab.org>2010-02-08 09:35:28 +0100
commit506ee2396e12c737e9484ce6aedf6b99c3b1e0f7 (patch)
tree67c23f9d7f22959f1195653f01c84e8f9823aff0 /scilab/modules/tclsci
parenta07605b9ae80f4bb497ec38792b021d236471966 (diff)
downloadscilab-506ee2396e12c737e9484ce6aedf6b99c3b1e0f7.zip
scilab-506ee2396e12c737e9484ce6aedf6b99c3b1e0f7.tar.gz
remove obsolete functions tk_savefile, tk_getdir
Diffstat (limited to 'scilab/modules/tclsci')
-rw-r--r--scilab/modules/tclsci/help/en_US/tk_getdir.xml84
-rw-r--r--scilab/modules/tclsci/help/en_US/tk_savefile.xml97
-rw-r--r--scilab/modules/tclsci/macros/tk_getdir.sci29
-rw-r--r--scilab/modules/tclsci/macros/tk_savefile.sci29
4 files changed, 0 insertions, 239 deletions
diff --git a/scilab/modules/tclsci/help/en_US/tk_getdir.xml b/scilab/modules/tclsci/help/en_US/tk_getdir.xml
deleted file mode 100644
index 3902cc0..0000000
--- a/scilab/modules/tclsci/help/en_US/tk_getdir.xml
+++ /dev/null
@@ -1,84 +0,0 @@
1<?xml version="1.0" encoding="UTF-8"?>
2<!--
3 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
4 * Copyright (C) INRIA
5 *
6 * This file must be used under the terms of the CeCILL.
7 * This source file is licensed as described in the file COPYING, which
8 * you should have received as part of this distribution. The terms
9 * are also available at
10 * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
11 *
12 -->
13<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" version="5.0-subset Scilab" xml:lang="en" xml:id="tk_getdir">
14 <info>
15 <pubdate>$LastChangedDate$</pubdate>
16 </info>
17 <refnamediv>
18 <refname>tk_getdir</refname>
19 <refpurpose> dialog to get a directory path</refpurpose>
20 </refnamediv>
21 <refsynopsisdiv>
22 <title>Calling Sequence</title>
23 <synopsis>
24 path=tk_getdir([Title="string"])
25 path=tk_getdir(startdir,[Title="string"])
26 path=tk_getdir(startdir,windowtitle)
27 </synopsis>
28 </refsynopsisdiv>
29 <refsection>
30 <title>Parameters</title>
31 <variablelist>
32 <varlistentry>
33 <term>startdir</term>
34 <listitem>
35 <para>a character string which gives the initial directory used for directory search. By default tk_getdir uses the previously selected directory.</para>
36 </listitem>
37 </varlistentry>
38 <varlistentry>
39 <term>path</term>
40 <listitem>
41 <para>is the user selected file path if user answers "Ok" or the " " string if user answers "Cancel"</para>
42 </listitem>
43 </varlistentry>
44 <varlistentry>
45 <term>Title="string"</term>
46 <listitem>
47 <para>Optional argument which gives the title for the tk_getdir window. <literal>Warning</literal>: Use the new variable
48 <literal>Title</literal> instead of the old variable <literal>title</literal>.</para>
49 </listitem>
50 </varlistentry>
51 </variablelist>
52 </refsection>
53 <refsection>
54 <title>Description</title>
55 <para>WARNING: this function is deprecated (see uigetdir as a replacement of tk_getdir). It will be removed in Scilab 5.3.</para>
56
57 <para>Creates a dialog window for file selection.</para>
58 </refsection>
59 <refsection>
60 <title>Examples</title>
61 <programlisting role="example"><![CDATA[
62tk_getdir()
63tk_getdir("SCI/modules/")
64tk_getdir(Title="Choose a directory name")
65 ]]></programlisting>
66 </refsection>
67 <refsection>
68 <title>See Also</title>
69 <simplelist type="inline">
70 <member>
71 <link linkend="uigetdir">uigetdir</link>
72 </member>
73 <member>
74 <link linkend="uigetfile">uigetfile</link>
75 </member>
76 <member>
77 <link linkend="file">file</link>
78 </member>
79 <member>
80 <link linkend="fileinfo">fileinfo</link>
81 </member>
82 </simplelist>
83 </refsection>
84</refentry>
diff --git a/scilab/modules/tclsci/help/en_US/tk_savefile.xml b/scilab/modules/tclsci/help/en_US/tk_savefile.xml
deleted file mode 100644
index 9e13405..0000000
--- a/scilab/modules/tclsci/help/en_US/tk_savefile.xml
+++ /dev/null
@@ -1,97 +0,0 @@
1<?xml version="1.0" encoding="UTF-8"?>
2<!--
3 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
4 * Copyright (C) INRIA
5 *
6 * This file must be used under the terms of the CeCILL.
7 * This source file is licensed as described in the file COPYING, which
8 * you should have received as part of this distribution. The terms
9 * are also available at
10 * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
11 *
12 -->
13<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" version="5.0-subset Scilab" xml:lang="en" xml:id="tk_savefile">
14 <info>
15 <pubdate>$LastChangedDate$</pubdate>
16 </info>
17 <refnamediv>
18 <refname>tk_savefile</refname>
19 <refpurpose>dialog to get a file path for
20 writing</refpurpose>
21 </refnamediv>
22 <refsynopsisdiv>
23 <title>Calling Sequence</title>
24 <synopsis>path=tk_savefile([Title='string'])
25path=tk_savefile(file_mask,[Title='string'])
26path=tk_savefile(file_mask,dir,[Title='string'])
27path=tk_savefile(file_mask,dir,'string')</synopsis>
28 </refsynopsisdiv>
29 <refsection>
30 <title>Parameters</title>
31 <variablelist>
32 <varlistentry>
33 <term>file_mask</term>
34 <listitem>
35 <para>a character string which gives the file mask to use for file
36 selection. <literal>file_mask</literal> is written with Unix convention.
37 the default value is '*'.</para>
38 </listitem>
39 </varlistentry>
40 <varlistentry>
41 <term>dir</term>
42 <listitem>
43 <para>a character string which gives the initial directory used for
44 file search. by default tk_savefile uses the previously selected
45 directory.</para>
46 </listitem>
47 </varlistentry>
48 <varlistentry>
49 <term>path</term>
50 <listitem>
51 <para>is the user selected file path if user answers "Ok" or the " "
52 string if user answers "Cancel"</para>
53 </listitem>
54 </varlistentry>
55 <varlistentry>
56 <term>Title='string'</term>
57 <listitem>
58 <para>Optional argument which gives the title for the tk_savefile
59 window. <literal>Warning</literal>: Use the new variable
60 <literal>Title</literal> instead of the old variable <literal>title</literal>.
61 </para>
62 </listitem>
63 </varlistentry>
64 </variablelist>
65 </refsection>
66 <refsection>
67 <title>Description</title>
68 <para>WARNING: this function is obsolete (see uigetfile as a replacement of tk_savefile). It will be removed in Scilab 5.3.</para>
69
70 <para>Creates a dialog window for output file selection</para>
71 </refsection>
72 <refsection>
73 <title>Examples</title>
74 <programlisting role="example"><![CDATA[
75tk_savefile()
76tk_savefile('*.sci','SCI/modules/graphics/macros')
77tk_savefile(Title='Choose a file name ')
78 ]]></programlisting>
79 </refsection>
80 <refsection>
81 <title>See Also</title>
82 <simplelist type="inline">
83 <member>
84 <link linkend="uigetfile">uigetfile</link>
85 </member>
86 <member>
87 <link linkend="uigetdir">uigetdir</link>
88 </member>
89 <member>
90 <link linkend="file">file</link>
91 </member>
92 <member>
93 <link linkend="fileinfo">fileinfo</link>
94 </member>
95 </simplelist>
96 </refsection>
97</refentry>
diff --git a/scilab/modules/tclsci/macros/tk_getdir.sci b/scilab/modules/tclsci/macros/tk_getdir.sci
deleted file mode 100644
index ca5f4f5..0000000
--- a/scilab/modules/tclsci/macros/tk_getdir.sci
+++ /dev/null
@@ -1,29 +0,0 @@
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
11function 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)
28endfunction
29
diff --git a/scilab/modules/tclsci/macros/tk_savefile.sci b/scilab/modules/tclsci/macros/tk_savefile.sci
deleted file mode 100644
index b85245e..0000000
--- a/scilab/modules/tclsci/macros/tk_savefile.sci
+++ /dev/null
@@ -1,29 +0,0 @@
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
11function 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')
28endfunction
29