Subversion Repositories Kolibri OS

Rev

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

Rev 2803 Rev 2825
Line 27... Line 27...
27 
	{
 27 
	{
28 
	case evMouse:
 28 
	case evMouse:
29 
				mm.get();
 29 
				mm.get();
Line 30... Line 30...
30 
 
 30 
 
31 
				GetProcessInfo(#MenuForm, SelfInfo);
 31 
				GetProcessInfo(#MenuForm, SelfInfo);
32 
				id1=GetSlot(MenuForm.ID);
 32 
				id1=GetProcessSlot(MenuForm.ID);
Line 33... Line 33...
33 
				if (id1<>ActiveProcess()) ExitProcess();
33 
				if (id1<>GetActiveProcess()) ExitProcess();
34
34
35 
				id1=mm.y/ITEM_HEIGHT;
 35 
				id1=mm.y/ITEM_HEIGHT;
36 
				if (id1<0) || (id1+1>items_num) || (mm.x<0) || (mm.x>ITEM_WIDTH) break;
 36 
				if (id1<0) || (id1+1>items_num) || (mm.x<0) || (mm.x>ITEM_WIDTH) break;