Reset mark type to avoid ugly rectangle.
[scilab.git] / scilab / modules / tclsci / macros / winclose.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2004 - Jaime Urzua
3 // Copyright (C) 2008 - INRIA - Vincent COUVERT
4 //
5 // This file must be used under the terms of the CeCILL.
6 // This source file is licensed as described in the file COPYING, which
7 // you should have received as part of this distribution.  The terms
8 // are also available at
9 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
10
11
12 function sta=winclose(h)
13     // Close a window
14     // This file is part of sciGUI toolbox
15     // rev. 0.1
16     //
17     // This program is free software; you can redistribute it and/or modify
18     //it under the terms of the GNU General Public License as published by
19     //the Free Software Foundation; either version 2 of the License, or
20     //(at your option) any later version.
21
22     warnobsolete("close", "5.5.0");
23
24     // Java waitbar or progressbar
25     if type(h) == 9 then
26         delete(h);
27         sta=1
28         return
29     end
30
31     if execstr("TCL_GetVar(''sciGUITable(win,id)'')","errcatch")<>0 then
32         sta=1
33         return
34     end
35     sta=0;
36     for j=1:length(h),
37         TCL_EvalStr("sciGUIDestroy "+string(h(j)));
38     end
39 endfunction