Subversion Repositories Kolibri OS

Rev

Rev 7770 | Rev 7779 | Go to most recent revision | Show entire file | Ignore 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