Subversion Repositories Kolibri OS

Rev

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

Rev 7770 Rev 7778
Line 77... Line 77...
77 
{
 77 
{
78 
	menu.cur_y = 0;
 78 
	menu.cur_y = 0;
79 
	KillProcess(menu_process_id);
 79 
	KillProcess(menu_process_id);
80 
}
 80 
}
Line -... Line 81...
- 
 
 81 
 
- 
 
 82 
 
- 
 
 83 
:dword shared_mem = NULL;
- 
 
 84 
:char shared_name[] = "LMENU";
- 
 
 85 
:void open_lmenu(dword _x, _y, _position, _selected, _text)
- 
 
 86 
{
- 
 
 87 
	if (!shared_mem) {
- 
 
 88 
		shared_mem = memopen(#shared_name, 20, SHM_CREATE);
- 
 
 89 
		if (EDX) shared_mem = memopen(#shared_name, 20, SHM_WRITE);
- 
 
 90 
	}
- 
 
 91 
	ESDWORD[shared_mem +  4] = _x;
- 
 
 92 
	ESDWORD[shared_mem +  8] = _y;
- 
 
 93 
	ESDWORD[shared_mem + 12] = _position;
- 
 
 94 
	ESDWORD[shared_mem + 16] = _selected;
- 
 
 95 
	RunProgram("/sys/develop/menu", _text);
- 
 
 96 
}
- 
 
 97 
 
- 
 
 98 
:dword get_menu_click()
- 
 
 99 
{
- 
 
 100 
	dword res = ESDWORD[shared_mem];
- 
 
 101 
	ESDWORD[shared_mem] = 0;
- 
 
 102 
	return res;
- 
 
 103 
}
81 
 
 104 
 
82 
#endif
 105 
#endif