Subversion Repositories Kolibri OS

Rev

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

Rev 7972 Rev 7984
Line 102... Line 102...
102
 
102
 
103
void main()
103
void main()
104
{
104
{
Line 105... Line 105...
105
	proc_info Form;
105
	proc_info Form;
Line 106... Line 106...
106
 
106
 
107
	if (!param) die("'Menu component is for developers only' -I");
107
	if (!param) RunProgram("/sys/network/WebView", "http://board.kolibrios.org/viewtopic.php?f=24&t=4233#p74599");
Line 108... Line 108...
108
 
108
 
Line 118... Line 118...
118
	menu1.SetSizes(2,2, menu_w, menu_h, ITEM_H);
118
	menu1.SetSizes(2,2, menu_w, menu_h, ITEM_H);
119
	menu1.cur_y = -1;
119
	menu1.cur_y = -1;
Line 120... Line 120...
120
 
120
 
Line 121... Line 121...
121
	GetWindowPosition();
121
	GetWindowPosition();
122
 
122
 
123
	SetEventMask(EVM_REDRAW + EVM_KEY + EVM_BUTTON + EVM_MOUSE);
123
	@SetEventMask(EVM_REDRAW + EVM_KEY + EVM_BUTTON + EVM_MOUSE);
124
	loop() switch(WaitEvent())
124
	loop() switch(WaitEvent())
125
	{
125
	{
126
		case evMouse:			
126
		case evMouse:			
Line 133... Line 133...
133
				if (mouse.lkm)&&(mouse.up) click();	
133
				if (mouse.lkm)&&(mouse.up) click();	
134
			} 
134
			} 
135
			break;
135
			break;
Line 136... Line 136...
136
 
136
 
137
		case evKey:
-
 
138
			GetKeys();
137
		case evKey:
139
			ProcessKeys();
138
			ProcessKeys();
Line 140... Line 139...
140
			break;
139
			break;
141
 
140
 
Line 152... Line 151...
152
	if (menu1.cur_y > menu1.count - GetSeparatorsCount() - 1) {
151
	if (menu1.cur_y > menu1.count - GetSeparatorsCount() - 1) {
153
		menu1.cur_y = menu1.count - GetSeparatorsCount() - 1;
152
		menu1.cur_y = menu1.count - GetSeparatorsCount() - 1;
154
	}
153
	}
155
}
154
}
Line 156... Line 155...
156
 
155
 
157
void ProcessKeys()
156
inline ProcessKeys()
-
 
157
{
158
{
158
	key_scancode = @GetKeyScancode();
159
	switch(key_scancode) 
159
	switch(key_scancode) 
160
	{
160
	{
161
		case SCAN_CODE_ESC:
161
		case SCAN_CODE_ESC: