Subversion Repositories Kolibri OS

Rev

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

Rev 6735 Rev 6746
Line 26... Line 26...
26 
	load_dll(boxlib, #box_lib_init,0);
 26 
	load_dll(boxlib, #box_lib_init,0);
27 
	load_dll(Proc_lib,  #OpenDialog_init,0);
 27 
	load_dll(Proc_lib,  #OpenDialog_init,0);
28 
	OpenDialog_init stdcall (#o_dialog);
 28 
	OpenDialog_init stdcall (#o_dialog);
29 
	SetEventMask(0x27);
 29 
	SetEventMask(0x27);
Line -... Line 30...
- 
 
 30 
 
- 
 
 31 
	debugln("GUI");
30 
 
 32 
 
31 
	loop() switch(WaitEvent())
 33 
	loop() switch(WaitEvent())
32 
	{
 34 
	{
33 
		case evMouse:
 35 
		case evMouse:
34 
			edit_box_mouse stdcall (#src_box);
 36 
			edit_box_mouse stdcall (#src_box);
Line 91... Line 93...
91 
}
 93 
}
Line 92... Line 94...
92 
 
 94 
 
93 
void draw_window()
 95 
void draw_window()
94 
{
 96 
{
95 
	system.color.get();
 97 
	system.color.get();
96 
	DefineAndDrawWindow(215, 100, 450, 195 + skin_height, 0x34, system.color.work, #window_title);
 98 
	DefineAndDrawWindow(215, 100, 450, 195 + skin_height, 0x34, system.color.work, #window_title,0);
Line 97... Line 99...
97 
	GetProcessInfo(#Form, SelfInfo);
 99 
	GetProcessInfo(#Form, SelfInfo);
98 
 
 100 
 
99 
	WriteText(src_box.left-2, src_box.top-21, 0x90, system.color.work_text, "First file:");
 101 
	WriteText(src_box.left-2, src_box.top-21, 0x90, system.color.work_text, "First file:");