Subversion Repositories Kolibri OS

//Leency 2008-2013

byte copy_from[4096], cut_active=0;

enum {NOCUT, CUT};

#define WIN_W 300

#define WIN_H 50

void Copy(dword pcth, char cut)

{

	strcpy(#copy_from, pcth);

	cut_active = cut;

}

void copyf_Action(dword filename) {

	DefineAndDrawWindow(Form.left+Form.width-200,Form.top+90,WIN_W,GetSkinHeight()+WIN_H-1,0x34,col_work,T_PASTE_WINDOW);

	WriteText(5,8, 0x80, 0, T_PASTE_WINDOW_TEXT);

	DrawBar(5, 26, WIN_W-10, 10, col_work);

	WriteText(5,26, 0x80, 0, filename);

	//pause(20);

}

void Paste()

{

	char copy_to[4096], copy_rezult;

	if (!copy_from) ExitProcess();

	strcpy(#copy_to, #path);

	strcat(#copy_to, #copy_from+strrchr(#copy_from,'/'));

	if (!strcmp(#copy_from,#copy_to))

	{

		strcpy(#copy_to, #path);

		strcat(#copy_to, "new_");

		strcat(#copy_to, #copy_from+strrchr(#copy_from,'/'));

	}

	if (strstr(#copy_to, #copy_from))

	{

		notify("Copy directory into itself is a bad idea...");

		ExitProcess();

	}

	if (copy_rezult = copyf(#copy_from,#copy_to))

	{

		Write_Error(copy_rezult);

	}

	else if (cut_active)

	{

		strcpy(#file_path, #copy_from);

		Del_File(true);

		copy_from=NULL;

		cut_active=false;

	}

	ActivateWindow(GetProcessSlot(Form.ID));

	SendWindowMessage(evKey, 54);

	SelectFile(#copy_to+strrchr(#copy_to,'/'));

	pause(20);

	ExitProcess();

}