a2e4f74a357020ccdc88aed919e78d2ed81a5e16
[scilab.git] / scilab / modules / xcos / demos / xcos_demos.sce
1 //
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2009 - DIGITEO - Vincent COUVERT
4 // Copyright (C) 2010 - DIGITEO - Allan CORNET
5 //
6 // This file must be used under the terms of the CeCILL.
7 // This source file is licensed as described in the file COPYING, which
8 // you should have received as part of this distribution.  The terms
9 // are also available at
10 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
11 //
12 //
13
14 function demo_xcos()
15
16     bResumeSomeVariables = %t;
17     // check if some variables used by demo_gui already exist
18     if isdef("demo_gui_update") & isdef("resize_gui") & isdef("create_frame") then
19         bResumeSomeVariables = %f;
20     end
21
22     // Launch Scilab standard demo GUI
23     demo_gui();
24
25     // Get main list
26     frame1 = findobj("tag", "listbox_1");
27
28     // Select Xcos
29     allitems = frame1.string;
30     xcosItem = find(allitems == gettext("Xcos"));
31     frame1.value = xcosItem;
32
33     // Exec callback to display Xcos demos list
34     gcbo = frame1;
35     execstr(frame1.callback, "errcatch");
36
37     // resume some variables
38     if bResumeSomeVariables then
39         [demo_gui_update, resize_gui, create_frame] = resume(demo_gui_update, resize_gui, create_frame);
40     end
41
42 endfunction
43
44 demo_xcos();
45 clear demo_xcos;