7cbcb1d479ce16d31ad54563ae931305cd6a99b5
[scilab.git] / scilab / modules / gui / tests / unit_tests / addmenu.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2008 - INRIA - Vincent COUVERT <vincent.couvert@inria.fr>
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- TEST WITH GRAPHIC -->
8 // Unitary tests for Scilab Java menu created using addmenu
9 // Add menus to main window (console)
10 if getscilabmode() == 'STD' then
11   addmenu('Menu_without_submenu')
12   Menu_without_submenu='disp(''hello'')'
13   addmenu('Hello',['Franck';'Peter'])
14   Hello=['disp(''hello Franck'')';'disp(''hello Peter'')']
15   addmenu('Bye',list(0,'French_Bye'))
16   French_Bye='disp(''Au revoir'')'
17 end
18 // Add menus to a graphic window
19 addmenu(0, 'Menu_without_submenu')
20 Menu_without_submenu_0='disp(''hello'')'
21  Menu_without_submenu_0  =
22  
23  disp('hello')   
24 addmenu(0,'Hello',['Franck';'Peter'])
25 Hello_0=['disp(''hello Franck'')';'disp(''hello Peter'')']
26  Hello_0  =
27  
28 !disp('hello Franck')  !
29 !                      !
30 !disp('hello Peter')   !
31 addmenu(0, 'Bye',list(0,'French_Bye'))
32 French_Bye_0='disp(''Au revoir'')'
33  French_Bye_0  =
34  
35  disp('Au revoir')   
36 // a rough test which used to freeze Scilab
37 for i = 1:1000,
38   addmenu(0,'Hello',['john','micheal','ernest','franck','eddie','marcel','nestor','Hypolite','Peter','Jack','Patrick','Rodrigo']);
39   addmenu(0,'Hello2',['john','micheal','ernest','franck','eddie','marcel','nestor','Hypolite','Peter','Jack','Patrick','Rodrigo']);
40   delmenu(0,'Hello');
41   delmenu(0,'Hello2');
42 end