1//
2// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3// Copyright (C) ????-2008 - INRIA
4// Copyright (C) 2010 - DIGITEO - Allan CORNET
5//
6// This file is distributed under the same license as the Scilab package.
7//
8
9function demo_tclsci_rolodex()
10    tkpath = SCI + "/modules/tclsci/demos/tk/";
11    TCL_EvalFile(tkpath+"rolodex")
12    while %t //wait for toplevel to disapear
13        TCL_EvalStr("set h [winfo exists .top]");
14        if TCL_GetVar("h")=="0" then break,end
15        sleep(1);
16    end
17endfunction
18
19demo_tclsci_rolodex()
20clear demo_tclsci_rolodex;
21