[gui] regen dia.ref for addmenu test
[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  
12   addmenu('Menu_without_submenu')
13   Menu_without_submenu='disp(''hello'')'
14   addmenu('Hello',['Franck';'Peter'])
15   Hello=['disp(''hello Franck'')';'disp(''hello Peter'')']
16   addmenu('Bye',list(0,'French_Bye'))
17   French_Bye='disp(''Au revoir'')'
18 end
19 // Add menus to a graphic window
20 addmenu(0, 'Menu_without_submenu')
21 Menu_without_submenu_0='disp(''hello'')'
22  Menu_without_submenu_0  = 
23   "disp('hello')"
24 addmenu(0,'Hello',['Franck';'Peter'])
25 Hello_0=['disp(''hello Franck'')';'disp(''hello Peter'')']
26  Hello_0  = 
27   "disp('hello Franck')"
28   "disp('hello Peter')" 
29 addmenu(0, 'Bye',list(0,'French_Bye'))
30 French_Bye_0='disp(''Au revoir'')'
31  French_Bye_0  = 
32   "disp('Au revoir')"
33 // a rough test which used to freeze Scilab
34 for i = 1:1000,
35   addmenu(0,'Hello',['john','micheal','ernest','franck','eddie','marcel','nestor','Hypolite','Peter','Jack','Patrick','Rodrigo']);
36   addmenu(0,'Hello2',['john','micheal','ernest','franck','eddie','marcel','nestor','Hypolite','Peter','Jack','Patrick','Rodrigo']);
37   delmenu(0,'Hello');
38   delmenu(0,'Hello2');
39 end