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
7function demo_tclsci_scroll()
8
9    mprintf("\n");
10
11    tkpath = SCI + "/modules/tclsci/demos/tk/";
12
13    TCL_EvalFile(tkpath + "cscroll")
14
15    while %t //wait for toplevel to disapear
16        TCL_EvalStr("set h [winfo exists .cscroll]");
17        if TCL_GetVar("h")=="0" then break,end
18        sleep(1);
19    end
20
21    mprintf("\n");
22
23endfunction
24
25demo_tclsci_scroll();
26clear demo_tclsci_scroll;
27