correction path --> pathhelp variable
[scilab.git] / scilab / modules / tclsci / etc / tclsci.start
1 // ====================================================================
2 // tclsci module initialisation file 
3 // Copyright INRIA 2006
4 // ====================================================================
5 //Load  functions librarie
6 load('SCI/modules/tclsci/macros/lib');
7 // ====================================================================
8 //add help chapter
9 global LANGUAGE
10
11 path = get_absolute_file_path('tclsci.start');
12 path = getshortpathname(path);
13 pathdemos = pathconvert(part(path,1:(length(path)-5))+'/demos/tk/tk.dem',%f,%f);
14
15 if LANGUAGE == 'fr' then
16         pathhelp = pathconvert(part(path,1:(length(path)-5))+'/help/fr',%f,%f);
17         add_help_chapter("Interface Tcl/Tk",pathhelp);
18         add_demo('Interface Tcl/Tk',pathdemos);
19 elseif LANGUAGE == 'eng' then
20         pathhelp = pathconvert(part(path,1:(length(path)-5))+'/help/eng',%f,%f);
21         add_help_chapter("Tcl/Tk Interface",pathhelp);
22         add_demo('Tcl/Tk Interface',pathdemos);
23 end
24
25 clear pathhelp pathdemos get_absolute_file_path add_help_chapter LANGUAGE;
26 // ====================================================================