Subversion Repositories Kolibri OS

Rev

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

Rev 4022 Rev 4028
Line 1... Line 1...
1 
//Leency 2008-2013
 1 
//Leency 2008-2013
Line 2... Line 2...
2 
 
 2 
 
3 
 
 3 
 
4 
byte copy_from[4096], cut_active=0;
 4 
byte copy_from[4096], copy_to[4096], cut_active=0;
5 
enum {NOCUT, CUT};
 5 
enum {NOCUT, CUT, COPY_PASTE_END};
Line 6... Line 6...
6 
#define WIN_W 300
 6 
#define WIN_W 300
Line 26... Line 26...
26 
}
 26 
}
Line 27... Line 27...
27 
 
 27 
 
28 
 
 28 
 
29 
void Paste()
 29 
void Paste()
Line 30... Line 30...
30 
{
 30 
{
31 
	char copy_to[4096], copy_rezult;
 31 
	char copy_rezult;
32
32
33 
	if (!copy_from) ExitProcess();
 33 
	if (!copy_from) ExitProcess();
Line 53... Line 53...
53 
		strcpy(#file_path, #copy_from);
 53 
		strcpy(#file_path, #copy_from);
54 
		Del_File(true);
 54 
		Del_File(true);
55 
		copy_from=NULL;
 55 
		copy_from=NULL;
56 
		cut_active=false;
 56 
		cut_active=false;
57 
	}
 57 
	}
- 
 
 58 
	action_buf = COPY_PASTE_END;
58 
	ActivateWindow(GetProcessSlot(Form.ID));
 59 
	ActivateWindow(GetProcessSlot(Form.ID));
59 
	SendWindowMessage(evKey, 54);
 - 
 
60 
	SelectFile(#copy_to+strrchr(#copy_to,'/'));
 - 
 
61 
	pause(20);
 - 
 
62 
	ExitProcess();
 60 
	ExitProcess();
63 
}
 61 
}