Set svn:eol-style to native
[scilab.git] / scilab / modules / gui / tests / unit_tests / lookandfeel.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2008 - DIGITEO - Allan CORNET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- TEST WITH GRAPHIC -->
9 // <-- INTERACTIVE TEST -->
10
11 plot3d();
12
13 lnf = getlookandfeel();
14 if lnf == [] then pause,end
15 if lnf == '' then pause,end
16
17 lnfs = getinstalledlookandfeels();
18 if lnfs == [] then pause,end
19 if lnfs == '' then pause,end
20 if size(lnfs,'*') == 0 then pause,end
21 if size(lnfs,'*') == 1 then pause,end
22
23 setlookandfeel(); // system look and feel
24 lnf = getlookandfeel();
25
26 for i=1:size(lnfs,'*')
27   setlookandfeel(lnfs(i));
28   sleep(2000);
29 end
30
31 setlookandfeel(); // system look and feel
32
33 xdel(winsid());