21e4e23e65eabfe05a6e0e0ae3ce624426bdd9c0
[scilab.git] / scilab / modules / tclsci / demos / tk / scale.dem.sce
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) ????-2008 - INRIA
3 // Copyright (C) 2010 - DIGITEO - Allan CORNET
4 //
5 // This file is released under the 3-clause BSD license. See COPYING-BSD.
6
7 function demo_tclsci_scale()
8
9     tkpath = SCI + "/modules/tclsci/demos/tk/";
10     exec(tkpath + "/demredraw.sci");
11     plot3d();
12     handle_demo_scale = gcf();
13
14     done = %t;
15     TCL_EvalFile(tkpath+"/vscale");
16     while %t //wait for toplevel to disapear
17         TCL_EvalStr("set h [winfo exists .vscale]");
18         if TCL_GetVar("h")=="0" | ~is_handle_valid(handle_demo_scale) then
19             break;
20         end
21         sleep(1)
22     end
23
24 endfunction
25
26 demo_tclsci_scale();
27 clear demo_tclsci_scale;