Subversion Repositories Kolibri OS

Rev

Rev 5640 | Rev 5646 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
3363 leency 1
#define MEMSIZE 0x3E80
3225 leency 2
 
5640 pavelyakov 3
#include "../lib/io.h"
4
 
3225 leency 5
void main()
6
{
5641 pavelyakov 7
	int id, key, i;
8
	dword file;
5640 pavelyakov 9
	mem_Init();
5641 pavelyakov 10
	io.dir_buffer("/sys/",DIR_ONLYREAL);
3225 leency 11
	loop()
12
   {
13
      switch(WaitEvent())
14
      {
15
         case evButton:
16
            id=GetButtonID();
17
            if (id==1) ExitProcess();
18
			break;
19
 
20
        case evKey:
21
			key = GetKey();
5598 pavelyakov 22
			if (key==013){ //Enter
5641 pavelyakov 23
				draw_window();
24
				WriteText(50,90,0x80,0xFF00FF,io.dir_position(i));
25
				if(i
3225 leency 26
			}
27
			break;
28
 
29
         case evReDraw:
30
			draw_window();
31
			break;
32
      }
33
   }
34
}
35
void draw_window()
36
{
3363 leency 37
	proc_info Form;
3225 leency 38
	DefineAndDrawWindow(215,100,250,200,0x34,0xFFFFFF,"Window header");
3363 leency 39
	GetProcessInfo(#Form, SelfInfo);
4718 leency 40
	WriteText(10,110,0x80,0,#param);
3225 leency 41
}
42
 
43
stop: