Subversion Repositories Kolibri OS

Rev

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

Rev 4077 Rev 4081
Line 62... Line 62...
62 
	#define OPEN_LIST_LINE_H 20
 62 
	#define OPEN_LIST_LINE_H 20
63 
	#define PANEL_H 40
 63 
	#define PANEL_H 40
64 
	#define PADDING 8
 64 
	#define PADDING 8
65 
	int WIN_H;
 65 
	int WIN_H;
66 
	mouse mm;
 66 
	mouse mm;
67 
	word key, slot;
 67 
	word key;
68 
	proc_info MenuForm;
 68 
	proc_info MenuForm;
Line 69... Line 69...
69 
 
 69 
 
70 
	app_list.ClearList();
 - 
 
71 
	app_list.SetSizes(PADDING,PANEL_H+1,WIN_W-PADDING-PADDING,OPEN_LIST_VISIBLE_N*OPEN_LIST_LINE_H,150,OPEN_LIST_LINE_H);
 70 
	app_list.ClearList();
- 
 
 71 
	if (!app_list.count) if (GetListOfPrograms()==-1) return;
72 
	if (!app_list.count) if (GetListOfPrograms()==-1) return;
 72 
	app_list.SetSizes(PADDING,PANEL_H+1,WIN_W-PADDING-PADDING,OPEN_LIST_VISIBLE_N*OPEN_LIST_LINE_H,150,OPEN_LIST_LINE_H);
73 
	SetEventMask(100111b);
 73 
	SetEventMask(100111b);
Line 74... Line 74...
74 
	goto _APP_LIST_DRAW;
 74 
	goto _APP_LIST_DRAW;
75 
 
 75 
 
76 
	loop() switch(WaitEvent())
 76 
	loop() switch(WaitEvent())
77 
	{
 - 
 
78 
		case evMouse:
 77 
	{
79 
				slot = GetProcessSlot(MenuForm.ID);
 78 
		case evMouse:
80 
				if (slot != GetActiveProcess()) ExitProcess();
 79 
				if (!CheckActiveProcess(MenuForm.ID)) ExitProcess();
81 
				mm.get();
 80 
				mm.get();
82 
				if (mm.vert) && (app_list.MouseScroll(mm.vert)) DrawAppList();
 81 
				if (mm.vert) && (app_list.MouseScroll(mm.vert)) DrawAppList();
83 
				if (app_list.ProcessMouse(mm.x, mm.y)) DrawAppList();
 82 
				if (app_list.ProcessMouse(mm.x, mm.y)) DrawAppList();