Subversion Repositories Kolibri OS

Rev

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

Rev 5640 Rev 5641
Line 1... Line 1...
1 
#define MEMSIZE 0x3E80
 1 
#define MEMSIZE 0x3E80
Line 2... Line 2...
2 
 
 2 
 
3 
#include "../lib/io.h"
 - 
 
Line 4... Line 3...
4 
#include "../lib/draw.h"
 3 
#include "../lib/io.h"
5 
 
 4 
 
6 
void main()
 5 
void main()
- 
 
 6 
{
7 
{
7 
	int id, key, i;
8 
	int id, key;
 8 
	dword file;
9 
	mem_Init();
 9 
	mem_Init();
10 
	io.set("/sys/RUN",ATR_HIDDEN);
 10 
	io.dir_buffer("/sys/",DIR_ONLYREAL);
11 
	loop()
 11 
	loop()
12 
   {
 12 
   {
13 
      switch(WaitEvent())
 13 
      switch(WaitEvent())
Line 18... Line 18...
18 
			break;
 18 
			break;
Line 19... Line 19...
19
19
20 
        case evKey:
 20 
        case evKey:
21 
			key = GetKey();
 21 
			key = GetKey();
- 
 
 22 
			if (key==013){ //Enter
22 
			if (key==013){ //Enter
 23 
				draw_window();
- 
 
 24 
				WriteText(50,90,0x80,0xFF00FF,io.dir_position(i));
23 
				WriteText(50,90,0x80,0xFF00FF,"Pressed Enter");
 25 
				if(i
24 
			}
 26 
			}
Line 25... Line 27...
25 
			break;
 27 
			break;
26
28
Line 31... Line 33...
31 
   }
 33 
   }
32 
}
 34 
}
33 
void draw_window()
 35 
void draw_window()
34 
{
 36 
{
35 
	proc_info Form;
 37 
	proc_info Form;
36 
	dword pos;
 - 
 
37 
	//float zz=0.944,ret;
 - 
 
38 
	DefineAndDrawWindow(215,100,250,200,0x34,0xFFFFFF,"Window header");
 38 
	DefineAndDrawWindow(215,100,250,200,0x34,0xFFFFFF,"Window header");
39 
	//draw.gradient(pos,10,10,0x0,20,20,0x0);
 - 
 
40 
	GetProcessInfo(#Form, SelfInfo);
 39 
	GetProcessInfo(#Form, SelfInfo);
41 
	draw.circle(60,60,5);
 - 
 
42 
 
 - 
 
43 
	WriteText(10,110,0x80,0,#param);
 40 
	WriteText(10,110,0x80,0,#param);
44 
}
 41 
}
Line 45... Line 42...
45 
 
 42