Subversion Repositories Kolibri OS

Rev

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

Rev 5575 Rev 5576
Line 70... Line 70...
70
	goto _MENU_DRAW;
70
	goto _MENU_DRAW;
Line 71... Line 71...
71
	
71
	
72
	loop() switch(WaitEvent())
72
	loop() switch(WaitEvent())
73
	{
73
	{
74
		case evMouse:
-
 
75
				if (!CheckActiveProcess(MenuForm.ID)) ExitProcess();
74
		case evMouse:
-
 
75
				mm.get();
76
				mm.get();
76
				if (!CheckActiveProcess(MenuForm.ID)){ cmd_free=1; ExitProcess();}
77
				if (menu.ProcessMouse(mm.x, mm.y)) MenuListRedraw();
77
				else if (mm.move)&&(menu.ProcessMouse(mm.x, mm.y)) MenuListRedraw();
78
				if (mm.key&MOUSE_LEFT)&&(m.click) {action_buf = cur_action_buf; pause(5); ExitProcess(); }
78
				else if (mm.key&MOUSE_LEFT)&&(mm.down) {action_buf = cur_action_buf; pause(5); cmd_free=1; ExitProcess(); }
Line 79... Line 79...
79
				break;
79
		break;
80
				
80
				
81
		case evKey:
81
		case evKey:
82
				key = GetKey();
82
				key = GetKey();
83
				if (key==27) ExitProcess();
83
				if (key==27){cmd_free=1;ExitProcess();}
84
				if (key == 13) {action_buf = cur_action_buf; ExitProcess(); }
84
				else if (key == 13) {action_buf = cur_action_buf; cmd_free=1; ExitProcess(); }
Line 85... Line 85...
85
				if (menu.ProcessKey(key)) MenuListRedraw();
85
				if (menu.ProcessKey(key)) MenuListRedraw();
86
				break;
86
				break;