Subversion Repositories Kolibri OS

Rev

Rev 6782 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6782 Rev 7252
Line 1... Line -...
1
struct _menu
-
 
-
 
1
dword menu_process_id;
Line 2... Line 2...
2
{
2
 
3
	dword appear_x, appear_y, text, identifier, selected;	
3
struct _menu
4
	llist list;
4
{
5
	void show();
5
	dword appear_x, appear_y, text, identifier, selected;	
Line 18... Line 18...
18
	list.count = chrnum(text, '\n')+1;
18
	list.cur_y = -1;
19
	list.SetSizes(2,2,_menu_width,list.count*24,24);
19
	list.ClearList();
20
 
20
	list.count = chrnum(text, '\n')+1;
21
	CreateThread(#_menu_thread,#stak+4092);
21
	list.SetSizes(2,2,_menu_width,list.count*24,24);
Line 22... Line 22...
22
}
22
 
23
 
23
	menu_process_id = CreateThread(#_menu_thread,#stak+4092);
Line 24... Line 24...
24
void _menu_thread()
24
}
25
{
25
 
26
	proc_info MenuForm;
26
void _menu_thread()
Line 62... Line 62...
62
void _menu_item_click()
62
}
Line 63... Line 63...
63
{
63
 
64
	menu.list.cur_y = menu.identifier + menu.list.cur_y;
64
void _menu_item_click()
65
	ExitProcess();
65
{
66
}
66
	menu.list.cur_y = menu.identifier + menu.list.cur_y;
67
 
67
	KillProcess(menu_process_id);
Line 68... Line 68...
68
void _menu_no_item_click()
68
}
69
{
69
 
70
	menu.list.cur_y = 0;
70
void _menu_no_item_click()
71
	ExitProcess();
71
{
72
}
72
	menu.list.cur_y = 0;
73
73
	KillProcess(menu_process_id);