blender-archive/source/blender/editors/space_sequencer/sequencer_edit.c

/*
 * ***** BEGIN GPL LICENSE BLOCK *****
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software Foundation,
 * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 *
 * The Original Code is Copyright (C) 2001-2002 by NaN Holding BV.
 * All rights reserved.
 *
 * Contributor(s): Blender Foundation, 2003-2009
 *
 * ***** END GPL LICENSE BLOCK *****
 */

/** \file blender/editors/space_sequencer/sequencer_edit.c
 *  \ingroup spseq
 */


#include <stdlib.h>
#include <math.h>
#include <string.h>

#ifndef WIN32
#include <unistd.h>
#else
#include <io.h>
#endif
#include <sys/types.h>

#include "MEM_guardedalloc.h"

#include "BLI_blenlib.h"
#include "BLI_math.h"
#include "BLI_utildefines.h"
#include "BLI_threads.h"

#include "DNA_scene_types.h"
#include "DNA_userdef_types.h"

#include "BKE_context.h"
#include "BKE_global.h"
#include "BKE_main.h"
#include "BKE_sequencer.h"
#include "BKE_report.h"
#include "BKE_sound.h"
#include "BKE_movieclip.h"

#include "IMB_imbuf.h"

#include "WM_api.h"
#include "WM_types.h"

#include "RNA_define.h"
#include "RNA_enum_types.h"

/* for menu/popup icons etc etc*/

#include "ED_screen.h"
#include "ED_transform.h"
#include "ED_sequencer.h"

#include "UI_view2d.h"

/* own include */
#include "sequencer_intern.h"

/* XXX */
/* RNA Enums, used in multiple files */
EnumPropertyItem sequencer_prop_effect_types[] = {
	{SEQ_CROSS, "CROSS", 0, "Crossfade", "Crossfade effect strip type"},
	{SEQ_ADD, "ADD", 0, "Add", "Add effect strip type"},
	{SEQ_SUB, "SUBTRACT", 0, "Subtract", "Subtract effect strip type"},
	{SEQ_ALPHAOVER, "ALPHA_OVER", 0, "Alpha Over", "Alpha Over effect strip type"},
	{SEQ_ALPHAUNDER, "ALPHA_UNDER", 0, "Alpha Under", "Alpha Under effect strip type"},
	{SEQ_GAMCROSS, "GAMMA_CROSS", 0, "Gamma Cross", "Gamma Cross effect strip type"},
	{SEQ_MUL, "MULTIPLY", 0, "Multiply", "Multiply effect strip type"},
	{SEQ_OVERDROP, "OVER_DROP", 0, "Alpha Over Drop", "Alpha Over Drop effect strip type"},
	{SEQ_WIPE, "WIPE", 0, "Wipe", "Wipe effect strip type"},
	{SEQ_GLOW, "GLOW", 0, "Glow", "Glow effect strip type"},
	{SEQ_TRANSFORM, "TRANSFORM", 0, "Transform", "Transform effect strip type"},
	{SEQ_COLOR, "COLOR", 0, "Color", "Color effect strip type"},
	{SEQ_SPEED, "SPEED", 0, "Speed", "Color effect strip type"},
	{SEQ_MULTICAM, "MULTICAM", 0, "Multicam Selector", ""},
	{SEQ_ADJUSTMENT, "ADJUSTMENT", 0, "Adjustment Layer", ""},
	{0, NULL, 0, NULL, NULL}
};

/* mute operator */

EnumPropertyItem prop_side_types[] = {
	{SEQ_SIDE_LEFT, "LEFT", 0, "Left", ""},
	{SEQ_SIDE_RIGHT, "RIGHT", 0, "Right", ""},
	{SEQ_SIDE_BOTH, "BOTH", 0, "Both", ""},
	{0, NULL, 0, NULL, NULL}
};

static EnumPropertyItem prop_side_lr_types[] = {
	{SEQ_SIDE_LEFT, "LEFT", 0, "Left", ""},
	{SEQ_SIDE_RIGHT, "RIGHT", 0, "Right", ""},
	{0, NULL, 0, NULL, NULL}
};

typedef struct TransSeq {
	int start, machine;
	int startstill, endstill;
	int startdisp, enddisp;
	int startofs, endofs;
	int anim_startofs, anim_endofs;
	/* int final_left, final_right; */ /* UNUSED */
	int len;
} TransSeq;

/* ********************************************************************** */

/* ***************** proxy job manager ********************** */

typedef struct ProxyBuildJob {
	Scene *scene; 
	struct Main *main;
	ListBase queue;
	int stop;
} ProxyJob;

static void proxy_freejob(void *pjv)
{
	ProxyJob *pj = pjv;

	BLI_freelistN(&pj->queue);

	MEM_freeN(pj);
}

/* only this runs inside thread */
static void proxy_startjob(void *pjv, short *stop, short *do_update, float *progress)
{
	ProxyJob *pj = pjv;
	LinkData *link;

	for (link = pj->queue.first; link; link = link->next) {
		struct SeqIndexBuildContext *context = link->data;

		seq_proxy_rebuild(context, stop, do_update, progress);
	}

	if (*stop) {
		pj->stop = 1;
		fprintf(stderr,  "Canceling proxy rebuild on users request...\n");
	}
}

static void proxy_endjob(void *pjv)
{
	ProxyJob *pj = pjv;
	Editing *ed = BKE_sequencer_editing_get(pj->scene, FALSE);
	LinkData *link;

	for (link = pj->queue.first; link; link = link->next) {
		seq_proxy_rebuild_finish(link->data, pj->stop);
	}

	free_imbuf_seq(pj->scene, &ed->seqbase, FALSE, FALSE);

	WM_main_add_notifier(NC_SCENE | ND_SEQUENCER, pj->scene);
}

static void seq_proxy_build_job(const bContext *C)
{
	wmJob *steve;
	ProxyJob *pj;
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	ScrArea *sa = CTX_wm_area(C);
	struct SeqIndexBuildContext *context;
	LinkData *link;
	Sequence *seq;

	steve = WM_jobs_get(CTX_wm_manager(C), CTX_wm_window(C), sa, "Building Proxies", WM_JOB_PROGRESS);

	pj = WM_jobs_get_customdata(steve);

	if (!pj) {
		pj = MEM_callocN(sizeof(ProxyJob), "proxy rebuild job");
	
		pj->scene = scene;
		pj->main = CTX_data_main(C);

		WM_jobs_customdata(steve, pj, proxy_freejob);
		WM_jobs_timer(steve, 0.1, NC_SCENE | ND_SEQUENCER, NC_SCENE | ND_SEQUENCER);
		WM_jobs_callbacks(steve, proxy_startjob, NULL, NULL, proxy_endjob);
	}

	SEQP_BEGIN (ed, seq)
	{
		if ((seq->flag & SELECT)) {
			context = seq_proxy_rebuild_context(pj->main, pj->scene, seq);
			link = BLI_genericNodeN(context);
			BLI_addtail(&pj->queue, link);
		}
	}
	SEQ_END

	if (!WM_jobs_is_running(steve)) {
		G.afbreek = 0;
		WM_jobs_start(CTX_wm_manager(C), steve);
	}

	ED_area_tag_redraw(CTX_wm_area(C));
}

/* ********************************************************************** */

void seq_rectf(Sequence *seq, rctf *rectf)
{
	if (seq->startstill) rectf->xmin = seq->start;
	else rectf->xmin = seq->startdisp;
	rectf->ymin = seq->machine + SEQ_STRIP_OFSBOTTOM;
	if (seq->endstill) rectf->xmax = seq->start + seq->len;
	else rectf->xmax = seq->enddisp;
	rectf->ymax = seq->machine + SEQ_STRIP_OFSTOP;
}

static void UNUSED_FUNCTION(change_plugin_seq) (Scene * scene, char *str) /* called from fileselect */
{
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	struct SeqEffectHandle sh;
	Sequence *last_seq = BKE_sequencer_active_get(scene);

	if (last_seq == NULL || last_seq->type != SEQ_PLUGIN) return;

	sh = get_sequence_effect(last_seq);
	sh.free(last_seq);
	sh.init_plugin(last_seq, str);

	last_seq->machine = MAX3(last_seq->seq1->machine,
	                         last_seq->seq2->machine,
	                         last_seq->seq3->machine);

	if (seq_test_overlap(ed->seqbasep, last_seq) ) shuffle_seq(ed->seqbasep, last_seq, scene);
	
}


void boundbox_seq(Scene *scene, rctf *rect)
{
	Sequence *seq;
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	float min[2], max[2];

	
	if (ed == NULL) return;

	min[0] = 0.0;
	max[0] = EFRA + 1;
	min[1] = 0.0;
	max[1] = 8.0;

	seq = ed->seqbasep->first;
	while (seq) {

		if (min[0] > seq->startdisp - 1) min[0] = seq->startdisp - 1;
		if (max[0] < seq->enddisp + 1) max[0] = seq->enddisp + 1;
		if (max[1] < seq->machine + 2) max[1] = seq->machine + 2;

		seq = seq->next;
	}

	rect->xmin = min[0];
	rect->xmax = max[0];
	rect->ymin = min[1];
	rect->ymax = max[1];

}

static int mouse_frame_side(View2D *v2d, short mouse_x, int frame)
{
	int mval[2];
	float mouseloc[2];
	
	mval[0] = mouse_x;
	mval[1] = 0;
	
	/* choose the side based on which side of the playhead the mouse is on */
	UI_view2d_region_to_view(v2d, mval[0], mval[1], &mouseloc[0], &mouseloc[1]);
	
	return mouseloc[0] > frame ? SEQ_SIDE_RIGHT : SEQ_SIDE_LEFT;
}


Sequence *find_neighboring_sequence(Scene *scene, Sequence *test, int lr, int sel) 
{
	/* sel - 0==unselected, 1==selected, -1==done care*/
	Sequence *seq;
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);

	if (ed == NULL) return NULL;

	if (sel > 0) sel = SELECT;
	
	for (seq = ed->seqbasep->first; seq; seq = seq->next) {
		if ((seq != test) &&
		    (test->machine == seq->machine) &&
		    ((sel == -1) || (sel && (seq->flag & SELECT)) || (sel == 0 && (seq->flag & SELECT) == 0)  ))
		{
			switch (lr) {
				case SEQ_SIDE_LEFT:
					if (test->startdisp == (seq->enddisp)) {
						return seq;
					}
					break;
				case SEQ_SIDE_RIGHT:
					if (test->enddisp == (seq->startdisp)) {
						return seq;
					}
					break;
			}
		}
	}
	return NULL;
}

static Sequence *find_next_prev_sequence(Scene *scene, Sequence *test, int lr, int sel) 
{
	/* sel - 0==unselected, 1==selected, -1==done care*/
	Sequence *seq, *best_seq = NULL;
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	
	int dist, best_dist;
	best_dist = MAXFRAME * 2;

	
	if (ed == NULL) return NULL;

	seq = ed->seqbasep->first;
	while (seq) {
		if ((seq != test) &&
		    (test->machine == seq->machine) &&
		    (test->depth == seq->depth) &&
		    ((sel == -1) || (sel == (seq->flag & SELECT))))
		{
			dist = MAXFRAME * 2;
			
			switch (lr) {
				case SEQ_SIDE_LEFT:
					if (seq->enddisp <= test->startdisp) {
						dist = test->enddisp - seq->startdisp;
					}
					break;
				case SEQ_SIDE_RIGHT:
					if (seq->startdisp >= test->enddisp) {
						dist = seq->startdisp - test->enddisp;
					}
					break;
			}
			
			if (dist == 0) {
				best_seq = seq;
				break;
			}
			else if (dist < best_dist) {
				best_dist = dist;
				best_seq = seq;
			}
		}
		seq = seq->next;
	}
	return best_seq; /* can be null */
}


Sequence *find_nearest_seq(Scene *scene, View2D *v2d, int *hand, const int mval[2])
{
	Sequence *seq;
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	float x, y;
	float pixelx;
	float handsize;
	float displen;
	*hand = SEQ_SIDE_NONE;

	
	if (ed == NULL) return NULL;
	
	pixelx = (v2d->cur.xmax - v2d->cur.xmin) / (v2d->mask.xmax - v2d->mask.xmin);

	UI_view2d_region_to_view(v2d, mval[0], mval[1], &x, &y);
	
	seq = ed->seqbasep->first;
	
	while (seq) {
		if (seq->machine == (int)y) {
			/* check for both normal strips, and strips that have been flipped horizontally */
			if ( ((seq->startdisp < seq->enddisp) && (seq->startdisp <= x && seq->enddisp >= x)) ||
			     ((seq->startdisp > seq->enddisp) && (seq->startdisp >= x && seq->enddisp <= x)) )
			{
				if (seq_tx_test(seq)) {
					
					/* clamp handles to defined size in pixel space */
					
					handsize = seq->handsize;
					displen = (float)abs(seq->startdisp - seq->enddisp);
					
					if (displen / pixelx > 16) { /* don't even try to grab the handles of small strips */
						/* Set the max value to handle to 1/3 of the total len when its less then 28.
						 * This is important because otherwise selecting handles happens even when you click in the middle */
						
						if ((displen / 3) < 30 * pixelx) {
							handsize = displen / 3;
						}
						else {
							CLAMP(handsize, 7 * pixelx, 30 * pixelx);
						}
						
						if (handsize + seq->startdisp >= x)
							*hand = SEQ_SIDE_LEFT;
						else if (-handsize + seq->enddisp <= x)
							*hand = SEQ_SIDE_RIGHT;
					}
				}
				return seq;
			}
		}
		seq = seq->next;
	}
	return NULL;
}


static int seq_is_parent(Sequence *par, Sequence *seq)
{
	return ((par->seq1 == seq) || (par->seq2 == seq) || (par->seq3 == seq));
}

static int seq_is_predecessor(Sequence *pred, Sequence *seq)
{
	if (!pred) return 0;
	if (pred == seq) return 0;
	else if (seq_is_parent(pred, seq)) return 1;
	else if (pred->seq1 && seq_is_predecessor(pred->seq1, seq)) return 1;
	else if (pred->seq2 && seq_is_predecessor(pred->seq2, seq)) return 1;
	else if (pred->seq3 && seq_is_predecessor(pred->seq3, seq)) return 1;

	return 0;
}

void deselect_all_seq(Scene *scene)
{
	Sequence *seq;
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);

	
	if (ed == NULL) return;

	SEQP_BEGIN (ed, seq)
	{
		seq->flag &= ~SEQ_ALLSEL;
	}
	SEQ_END
		
}

void recurs_sel_seq(Sequence *seqm)
{
	Sequence *seq;

	seq = seqm->seqbase.first;
	while (seq) {

		if (seqm->flag & (SEQ_LEFTSEL + SEQ_RIGHTSEL)) seq->flag &= ~SEQ_ALLSEL;
		else if (seqm->flag & SELECT) seq->flag |= SELECT;
		else seq->flag &= ~SEQ_ALLSEL;

		if (seq->seqbase.first) recurs_sel_seq(seq);

		seq = seq->next;
	}
}

int seq_effect_find_selected(Scene *scene, Sequence *activeseq, int type, Sequence **selseq1, Sequence **selseq2, Sequence **selseq3, const char **error_str)
{
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	Sequence *seq1 = NULL, *seq2 = NULL, *seq3 = NULL, *seq;
	
	*error_str = NULL;

	if (!activeseq)
		seq2 = BKE_sequencer_active_get(scene);

	for (seq = ed->seqbasep->first; seq; seq = seq->next) {
		if (seq->flag & SELECT) {
			if (seq->type == SEQ_SOUND && get_sequence_effect_num_inputs(type) != 0) {
				*error_str = "Can't apply effects to audio sequence strips";
				return 0;
			}
			if ((seq != activeseq) && (seq != seq2)) {
				if (seq2 == NULL) seq2 = seq;
				else if (seq1 == NULL) seq1 = seq;
				else if (seq3 == NULL) seq3 = seq;
				else {
					*error_str = "Can't apply effect to more than 3 sequence strips";
					return 0;
				}
			}
		}
	}

	/* make sequence selection a little bit more intuitive
	 * for 3 strips: the last-strip should be sequence3 */
	if (seq3 != NULL && seq2 != NULL) {
		Sequence *tmp = seq2;
		seq2 = seq3;
		seq3 = tmp;
	}
	

	switch (get_sequence_effect_num_inputs(type)) {
		case 0:
			*selseq1 = *selseq2 = *selseq3 = NULL;
			return 1; /* succsess */
		case 1:
			if (seq2 == NULL) {
				*error_str = "Need at least one selected sequence strip";
				return 0;
			}
			if (seq1 == NULL) seq1 = seq2;
			if (seq3 == NULL) seq3 = seq2;
		case 2:
			if (seq1 == NULL || seq2 == NULL) {
				*error_str = "Need 2 selected sequence strips";
				return 0;
			}
			if (seq3 == NULL) seq3 = seq2;
	}
	
	if (seq1 == NULL && seq2 == NULL && seq3 == NULL) {
		*error_str = "TODO: in what cases does this happen?";
		return 0;
	}
	
	*selseq1 = seq1;
	*selseq2 = seq2;
	*selseq3 = seq3;

	return 1;
}

static Sequence *del_seq_find_replace_recurs(Scene *scene, Sequence *seq)
{
	Sequence *seq1, *seq2, *seq3;

	/* try to find a replacement input sequence, and flag for later deletion if
	 * no replacement can be found */

	if (!seq)
		return NULL;
	else if (!(seq->type & SEQ_EFFECT))
		return ((seq->flag & SELECT) ? NULL : seq);
	else if (!(seq->flag & SELECT)) {
		/* try to find replacement for effect inputs */
		seq1 = del_seq_find_replace_recurs(scene, seq->seq1);
		seq2 = del_seq_find_replace_recurs(scene, seq->seq2);
		seq3 = del_seq_find_replace_recurs(scene, seq->seq3);

		if (seq1 == seq->seq1 && seq2 == seq->seq2 && seq3 == seq->seq3) ;
		else if (seq1 || seq2 || seq3) {
			seq->seq1 = (seq1) ? seq1 : (seq2) ? seq2 : seq3;
			seq->seq2 = (seq2) ? seq2 : (seq1) ? seq1 : seq3;
			seq->seq3 = (seq3) ? seq3 : (seq1) ? seq1 : seq2;

			update_changed_seq_and_deps(scene, seq, 1, 1);
		}
		else
			seq->flag |= SELECT;  /* mark for delete */
	}

	if (seq->flag & SELECT) {
		if ((seq1 = del_seq_find_replace_recurs(scene, seq->seq1))) return seq1;
		if ((seq2 = del_seq_find_replace_recurs(scene, seq->seq2))) return seq2;
		if ((seq3 = del_seq_find_replace_recurs(scene, seq->seq3))) return seq3;
		else return NULL;
	}
	else
		return seq;
}

static void recurs_del_seq_flag(Scene *scene, ListBase *lb, short flag, short deleteall)
{
	Sequence *seq, *seqn;
	Sequence *last_seq = BKE_sequencer_active_get(scene);

	seq = lb->first;
	while (seq) {
		seqn = seq->next;
		if ((seq->flag & flag) || deleteall) {
			BLI_remlink(lb, seq);
			if (seq == last_seq) BKE_sequencer_active_set(scene, NULL);
			if (seq->type == SEQ_META) recurs_del_seq_flag(scene, &seq->seqbase, flag, 1);
			seq_free_sequence(scene, seq);
		}
		seq = seqn;
	}
}


static Sequence *cut_seq_hard(Scene *scene, Sequence *seq, int cutframe)
{
	TransSeq ts;
	Sequence *seqn = NULL;
	int skip_dup = FALSE;

	/* backup values */
	ts.start = seq->start;
	ts.machine = seq->machine;
	ts.startstill = seq->startstill;
	ts.endstill = seq->endstill;
	ts.startdisp = seq->startdisp;
	ts.enddisp = seq->enddisp;
	ts.startofs = seq->startofs;
	ts.endofs = seq->endofs;
	ts.anim_startofs = seq->anim_startofs;
	ts.anim_endofs = seq->anim_endofs;
	ts.len = seq->len;
	
	/* First Strip! */
	/* strips with extended stillfames before */
	
	if ((seq->startstill) && (cutframe < seq->start)) {
		/* don't do funny things with METAs ... */
		if (seq->type == SEQ_META) {
			skip_dup = TRUE;
			seq->startstill = seq->start - cutframe;
		}
		else {
			seq->start = cutframe - 1;
			seq->startstill = cutframe - seq->startdisp - 1;
			seq->anim_endofs += seq->len - 1;
			seq->endstill = 0;
		}
	}
	/* normal strip */
	else if ((cutframe >= seq->start) && (cutframe <= (seq->start + seq->len))) {
		seq->endofs = 0;
		seq->endstill = 0;
		seq->anim_endofs += (seq->start + seq->len) - cutframe;
	}
	/* strips with extended stillframes after */
	else if (((seq->start + seq->len) < cutframe) && (seq->endstill)) {
		seq->endstill -= seq->enddisp - cutframe;
		/* don't do funny things with METAs ... */
		if (seq->type == SEQ_META) {
			skip_dup = TRUE;
		}
	}
	
	reload_sequence_new_file(scene, seq, FALSE);
	calc_sequence(scene, seq);

	if (!skip_dup) {
		/* Duplicate AFTER the first change */
		seqn = seq_dupli_recursive(scene, NULL, seq, SEQ_DUPE_UNIQUE_NAME | SEQ_DUPE_ANIM);
	}
	
	if (seqn) { 
		seqn->flag |= SELECT;
			
		/* Second Strip! */
		/* strips with extended stillframes before */
		if ((seqn->startstill) && (cutframe == seqn->start + 1)) {
			seqn->start = ts.start;
			seqn->startstill = ts.start - cutframe;
			seqn->anim_endofs = ts.anim_endofs;
			seqn->endstill = ts.endstill;
		}
		
		/* normal strip */
		else if ((cutframe >= seqn->start) && (cutframe <= (seqn->start + seqn->len))) {
			seqn->start = cutframe;
			seqn->startstill = 0;
			seqn->startofs = 0;
			seqn->endofs = ts.endofs;
			seqn->anim_startofs += cutframe - ts.start;
			seqn->anim_endofs = ts.anim_endofs;
			seqn->endstill = ts.endstill;
		}				
		
		/* strips with extended stillframes after */
		else if (((seqn->start + seqn->len) < cutframe) && (seqn->endstill)) {
			seqn->start = cutframe;
			seqn->startofs = 0;
			seqn->anim_startofs += ts.len - 1;
			seqn->endstill = ts.enddisp - cutframe - 1;
			seqn->startstill = 0;
		}
		
		reload_sequence_new_file(scene, seqn, FALSE);
		calc_sequence(scene, seqn);
	}
	return seqn;
}

static Sequence *cut_seq_soft(Scene *scene, Sequence *seq, int cutframe)
{
	TransSeq ts;
	Sequence *seqn = NULL;
	int skip_dup = FALSE;

	/* backup values */
	ts.start = seq->start;
	ts.machine = seq->machine;
	ts.startstill = seq->startstill;
	ts.endstill = seq->endstill;
	ts.startdisp = seq->startdisp;
	ts.enddisp = seq->enddisp;
	ts.startofs = seq->startofs;
	ts.endofs = seq->endofs;
	ts.anim_startofs = seq->anim_startofs;
	ts.anim_endofs = seq->anim_endofs;
	ts.len = seq->len;
	
	/* First Strip! */
	/* strips with extended stillfames before */
	
	if ((seq->startstill) && (cutframe < seq->start)) {
		/* don't do funny things with METAs ... */
		if (seq->type == SEQ_META) {
			skip_dup = TRUE;
			seq->startstill = seq->start - cutframe;
		}
		else {
			seq->start = cutframe - 1;
			seq->startstill = cutframe - seq->startdisp - 1;
			seq->endofs = seq->len - 1;
			seq->endstill = 0;
		}
	}
	/* normal strip */
	else if ((cutframe >= seq->start) && (cutframe <= (seq->start + seq->len))) {
		seq->endofs = (seq->start + seq->len) - cutframe;
	}
	/* strips with extended stillframes after */
	else if (((seq->start + seq->len) < cutframe) && (seq->endstill)) {
		seq->endstill -= seq->enddisp - cutframe;
		/* don't do funny things with METAs ... */
		if (seq->type == SEQ_META) {
			skip_dup = TRUE;
		}
	}
	
	calc_sequence(scene, seq);

	if (!skip_dup) {
		/* Duplicate AFTER the first change */
		seqn = seq_dupli_recursive(scene, NULL, seq, SEQ_DUPE_UNIQUE_NAME | SEQ_DUPE_ANIM);
	}
	
	if (seqn) { 
		seqn->flag |= SELECT;
			
		/* Second Strip! */
		/* strips with extended stillframes before */
		if ((seqn->startstill) && (cutframe == seqn->start + 1)) {
			seqn->start = ts.start;
			seqn->startstill = ts.start - cutframe;
			seqn->endofs = ts.endofs;
			seqn->endstill = ts.endstill;
		}
		
		/* normal strip */
		else if ((cutframe >= seqn->start) && (cutframe <= (seqn->start + seqn->len))) {
			seqn->startstill = 0;
			seqn->startofs = cutframe - ts.start;
			seqn->endofs = ts.endofs;
			seqn->endstill = ts.endstill;
		}				
		
		/* strips with extended stillframes after */
		else if (((seqn->start + seqn->len) < cutframe) && (seqn->endstill)) {
			seqn->start = cutframe - ts.len + 1;
			seqn->startofs = ts.len - 1;
			seqn->endstill = ts.enddisp - cutframe - 1;
			seqn->startstill = 0;
		}
		
		calc_sequence(scene, seqn);
	}
	return seqn;
}


/* like duplicate, but only duplicate and cut overlapping strips,
 * strips to the left of the cutframe are ignored and strips to the right are moved into the new list */
static int cut_seq_list(Scene *scene, ListBase *old, ListBase *new, int cutframe,
                        Sequence * (*cut_seq)(Scene *, Sequence *, int))
{
	int did_something = FALSE;
	Sequence *seq, *seq_next_iter;
	
	seq = old->first;
	
	while (seq) {
		seq_next_iter = seq->next; /* we need this because we may remove seq */
		
		seq->tmp = NULL;
		if (seq->flag & SELECT) {
			if (cutframe > seq->startdisp && 
			    cutframe < seq->enddisp)
			{
				Sequence *seqn = cut_seq(scene, seq, cutframe);
				if (seqn) {
					BLI_addtail(new, seqn);
				}
				did_something = TRUE;
			}
			else if (seq->enddisp <= cutframe) {
				/* do nothing */
			}
			else if (seq->startdisp >= cutframe) {
				/* move into new list */
				BLI_remlink(old, seq);
				BLI_addtail(new, seq);
			}
		}
		seq = seq_next_iter;
	}
	return did_something;
}

static int insert_gap(Scene *scene, int gap, int cfra)
{
	Sequence *seq;
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	int done = FALSE;

	/* all strips >= cfra are shifted */
	
	if (ed == NULL) return 0;

	SEQP_BEGIN (ed, seq)
	{
		if (seq->startdisp >= cfra) {
			seq->start += gap;
			calc_sequence(scene, seq);
			done = TRUE;
		}
	}
	SEQ_END

	return done;
}

static void UNUSED_FUNCTION(touch_seq_files) (Scene * scene)
{
	Sequence *seq;
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	char str[256];

	/* touch all strips with movies */
	
	if (ed == NULL) return;

	// XXX25 if (okee("Touch and print selected movies")==0) return;

	WM_cursor_wait(1);

	SEQP_BEGIN (ed, seq)
	{
		if (seq->flag & SELECT) {
			if (seq->type == SEQ_MOVIE) {
				if (seq->strip && seq->strip->stripdata) {
					BLI_make_file_string(G.main->name, str, seq->strip->dir, seq->strip->stripdata->name);
					BLI_file_touch(seq->name);
				}
			}

		}
	}
	SEQ_END

	WM_cursor_wait(0);
}

#if 0
static void set_filter_seq(Scene *scene)
{
	Sequence *seq;
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);

	
	if (ed == NULL) return;

	if (okee("Set Deinterlace") == 0) return;

	SEQP_BEGIN (ed, seq)
	{
		if (seq->flag & SELECT) {
			if (seq->type == SEQ_MOVIE) {
				seq->flag |= SEQ_FILTERY;
				reload_sequence_new_file(scene, seq, FALSE);
				calc_sequence(scene, seq);
			}

		}
	}
	SEQ_END
}
#endif

static void UNUSED_FUNCTION(seq_remap_paths) (Scene * scene)
{
	Sequence *seq, *last_seq = BKE_sequencer_active_get(scene);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	char from[FILE_MAX], to[FILE_MAX], stripped[FILE_MAX];
	
	
	if (last_seq == NULL)
		return;
	
	BLI_strncpy(from, last_seq->strip->dir, sizeof(from));
// XXX	if (0==sbutton(from, 0, sizeof(from)-1, "From: "))
//		return;
	
	BLI_strncpy(to, from, sizeof(to));
// XXX	if (0==sbutton(to, 0, sizeof(to)-1, "To: "))
//		return;
	
	if (strcmp(to, from) == 0)
		return;
	
	SEQP_BEGIN (ed, seq)
	{
		if (seq->flag & SELECT) {
			if (strncmp(seq->strip->dir, from, strlen(from)) == 0) {
				printf("found %s\n", seq->strip->dir);
				
				/* strip off the beginning */
				stripped[0] = 0;
				BLI_strncpy(stripped, seq->strip->dir + strlen(from), FILE_MAX);
				
				/* new path */
				BLI_snprintf(seq->strip->dir, sizeof(seq->strip->dir), "%s%s", to, stripped);
				printf("new %s\n", seq->strip->dir);
			}
		}
	}
	SEQ_END
		
}


static void UNUSED_FUNCTION(no_gaps) (Scene * scene)
{
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	int cfra, first = 0, done;

	
	if (ed == NULL) return;

	for (cfra = CFRA; cfra <= EFRA; cfra++) {
		if (first == 0) {
			if (evaluate_seq_frame(scene, cfra) ) first = 1;
		}
		else {
			done = TRUE;
			while (evaluate_seq_frame(scene, cfra) == 0) {
				done = insert_gap(scene, -1, cfra);
				if (done == 0) break;
			}
			if (done == 0) break;
		}
	}

}

#if 0
static int seq_get_snaplimit(View2D *v2d)
{
	/* fake mouse coords to get the snap value
	 * a bit lazy but its only done once pre transform */
	float xmouse, ymouse, x;
	int mval[2] = {24, 0}; /* 24 screen px snap */
	
	UI_view2d_region_to_view(v2d, mval[0], mval[1], &xmouse, &ymouse);
	x = xmouse;
	mval[0] = 0;
	UI_view2d_region_to_view(v2d, mval[0], mval[1], &xmouse, &ymouse);
	return (int)(x - xmouse);
}
#endif

/* Operator functions */
int sequencer_edit_poll(bContext *C)
{
	return (BKE_sequencer_editing_get(CTX_data_scene(C), FALSE) != NULL);
}

#if 0 /* UNUSED */
int sequencer_strip_poll(bContext *C)
{
	Editing *ed;
	return (((ed = BKE_sequencer_editing_get(CTX_data_scene(C), FALSE)) != NULL) && (ed->act_seq != NULL));
}
#endif

int sequencer_strip_has_path_poll(bContext *C)
{
	Editing *ed;
	Sequence *seq;
	return (((ed = BKE_sequencer_editing_get(CTX_data_scene(C), FALSE)) != NULL) && ((seq = ed->act_seq) != NULL) && (SEQ_HAS_PATH(seq)));
}

int sequencer_view_poll(bContext *C)
{
	SpaceSeq *sseq = CTX_wm_space_seq(C);
	Editing *ed = BKE_sequencer_editing_get(CTX_data_scene(C), FALSE);
	if (ed && sseq && (sseq->mainb == SEQ_DRAW_IMG_IMBUF))
		return 1;

	return 0;
}

/* snap operator*/
static int sequencer_snap_exec(bContext *C, wmOperator *op)
{
	Scene *scene = CTX_data_scene(C);
	
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	Sequence *seq;
	int snap_frame;

	snap_frame = RNA_int_get(op->ptr, "frame");

	/* also check metas */
	for (seq = ed->seqbasep->first; seq; seq = seq->next) {
		if (seq->flag & SELECT && !(seq->depth == 0 && seq->flag & SEQ_LOCK) &&
		    seq_tx_test(seq))
		{
			if ((seq->flag & (SEQ_LEFTSEL + SEQ_RIGHTSEL)) == 0) {
				/* simple but no anim update */
				/* seq->start= snap_frame-seq->startofs+seq->startstill; */

				seq_translate(scene, seq, (snap_frame - seq->startofs + seq->startstill) - seq->start);
			}
			else {
				if (seq->flag & SEQ_LEFTSEL) {
					seq_tx_set_final_left(seq, snap_frame);
				}
				else { /* SEQ_RIGHTSEL */
					seq_tx_set_final_right(seq, snap_frame);
				}
				seq_tx_handle_xlimits(seq, seq->flag & SEQ_LEFTSEL, seq->flag & SEQ_RIGHTSEL);
			}
			calc_sequence(scene, seq);
		}
	}

	/* test for effects and overlap
	 * don't use SEQP_BEGIN since that would be recursive */
	for (seq = ed->seqbasep->first; seq; seq = seq->next) {
		if (seq->flag & SELECT && !(seq->depth == 0 && seq->flag & SEQ_LOCK)) {
			seq->flag &= ~SEQ_OVERLAP;
			if (seq_test_overlap(ed->seqbasep, seq) ) {
				shuffle_seq(ed->seqbasep, seq, scene);
			}
		}
		else if (seq->type & SEQ_EFFECT) {
			if (seq->seq1 && (seq->seq1->flag & SELECT)) 
				calc_sequence(scene, seq);
			else if (seq->seq2 && (seq->seq2->flag & SELECT)) 
				calc_sequence(scene, seq);
			else if (seq->seq3 && (seq->seq3->flag & SELECT)) 
				calc_sequence(scene, seq);
		}
	}

	/* as last: */
	BKE_sequencer_sort(scene);
	
	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
	
	return OPERATOR_FINISHED;
}

static int sequencer_snap_invoke(bContext *C, wmOperator *op, wmEvent *UNUSED(event))
{
	Scene *scene = CTX_data_scene(C);
	
	int snap_frame;
	
	snap_frame = CFRA;
	
	RNA_int_set(op->ptr, "frame", snap_frame);
	return sequencer_snap_exec(C, op);
}

void SEQUENCER_OT_snap(struct wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Snap strips";
	ot->idname = "SEQUENCER_OT_snap";
	ot->description = "Frame where selected strips will be snapped";
	
	/* api callbacks */
	ot->invoke = sequencer_snap_invoke;
	ot->exec = sequencer_snap_exec;
	ot->poll = sequencer_edit_poll;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
	
	RNA_def_int(ot->srna, "frame", 0, INT_MIN, INT_MAX, "Frame", "Frame where selected strips will be snapped", INT_MIN, INT_MAX);
}

/* mute operator */
static int sequencer_mute_exec(bContext *C, wmOperator *op)
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	Sequence *seq;
	int selected;

	selected = !RNA_boolean_get(op->ptr, "unselected");
	
	for (seq = ed->seqbasep->first; seq; seq = seq->next) {
		if ((seq->flag & SEQ_LOCK) == 0) {
			if (selected) { /* mute unselected */
				if (seq->flag & SELECT)
					seq->flag |= SEQ_MUTE;
			}
			else {
				if ((seq->flag & SELECT) == 0)
					seq->flag |= SEQ_MUTE;
			}
		}
	}
	
	seq_update_muting(ed);
	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
	
	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_mute(struct wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Mute Strips";
	ot->idname = "SEQUENCER_OT_mute";
	ot->description = "Mute selected strips";
	
	/* api callbacks */
	ot->exec = sequencer_mute_exec;
	ot->poll = sequencer_edit_poll;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
	
	RNA_def_boolean(ot->srna, "unselected", 0, "Unselected", "Mute unselected rather than selected strips");
}


/* unmute operator */
static int sequencer_unmute_exec(bContext *C, wmOperator *op)
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	Sequence *seq;
	int selected;

	selected = !RNA_boolean_get(op->ptr, "unselected");
	
	for (seq = ed->seqbasep->first; seq; seq = seq->next) {
		if ((seq->flag & SEQ_LOCK) == 0) {
			if (selected) { /* unmute unselected */
				if (seq->flag & SELECT)
					seq->flag &= ~SEQ_MUTE;
			}
			else {
				if ((seq->flag & SELECT) == 0)
					seq->flag &= ~SEQ_MUTE;
			}
		}
	}
	
	seq_update_muting(ed);
	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
	
	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_unmute(struct wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Un-Mute Strips";
	ot->idname = "SEQUENCER_OT_unmute";
	ot->description = "Un-Mute unselected rather than selected strips";
	
	/* api callbacks */
	ot->exec = sequencer_unmute_exec;
	ot->poll = sequencer_edit_poll;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
	
	RNA_def_boolean(ot->srna, "unselected", 0, "Unselected", "UnMute unselected rather than selected strips");
}


/* lock operator */
static int sequencer_lock_exec(bContext *C, wmOperator *UNUSED(op))
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	Sequence *seq;

	for (seq = ed->seqbasep->first; seq; seq = seq->next) {
		if (seq->flag & SELECT) {
			seq->flag |= SEQ_LOCK;
		}
	}

	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);

	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_lock(struct wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Lock Strips";
	ot->idname = "SEQUENCER_OT_lock";
	ot->description = "Lock the active strip so that it can't be transformed";
	
	/* api callbacks */
	ot->exec = sequencer_lock_exec;
	ot->poll = sequencer_edit_poll;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
}

/* unlock operator */
static int sequencer_unlock_exec(bContext *C, wmOperator *UNUSED(op))
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	Sequence *seq;

	for (seq = ed->seqbasep->first; seq; seq = seq->next) {
		if (seq->flag & SELECT) {
			seq->flag &= ~SEQ_LOCK;
		}
	}

	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);

	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_unlock(struct wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "UnLock Strips";
	ot->idname = "SEQUENCER_OT_unlock";
	ot->description = "Unlock the active strip so that it can't be transformed";
	
	/* api callbacks */
	ot->exec = sequencer_unlock_exec;
	ot->poll = sequencer_edit_poll;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
}

/* reload operator */
static int sequencer_reload_exec(bContext *C, wmOperator *op)
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	Sequence *seq;
	int adjust_length = RNA_boolean_get(op->ptr, "adjust_length");

	for (seq = ed->seqbasep->first; seq; seq = seq->next) {
		if (seq->flag & SELECT) {
			update_changed_seq_and_deps(scene, seq, 0, 1);
			reload_sequence_new_file(scene, seq, !adjust_length);

			if (adjust_length) {
				if (seq_test_overlap(ed->seqbasep, seq))
					shuffle_seq(ed->seqbasep, seq, scene);
			}
		}
	}

	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);

	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_reload(struct wmOperatorType *ot)
{
	PropertyRNA *prop;

	/* identifiers */
	ot->name = "Reload Strips";
	ot->idname = "SEQUENCER_OT_reload";
	ot->description = "Reload strips in the sequencer";
	
	/* api callbacks */
	ot->exec = sequencer_reload_exec;
	ot->poll = sequencer_edit_poll;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER; /* no undo, the data changed is stored outside 'main' */

	prop = RNA_def_boolean(ot->srna, "adjust_length", 0, "Adjust Length",
	                       "Adjust length of strips to their data length");
	RNA_def_property_flag(prop, PROP_SKIP_SAVE);
}

/* reload operator */
static int sequencer_refresh_all_exec(bContext *C, wmOperator *UNUSED(op))
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);

	free_imbuf_seq(scene, &ed->seqbase, FALSE, FALSE);

	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);

	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_refresh_all(struct wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Refresh Sequencer";
	ot->idname = "SEQUENCER_OT_refresh_all";
	ot->description = "Refresh the sequencer editor";
	
	/* api callbacks */
	ot->exec = sequencer_refresh_all_exec;
	ot->poll = sequencer_edit_poll;
}

static int sequencer_reassign_inputs_exec(bContext *C, wmOperator *op)
{
	Scene *scene = CTX_data_scene(C);
	Sequence *seq1, *seq2, *seq3, *last_seq = BKE_sequencer_active_get(scene);
	const char *error_msg;

	if (!seq_effect_find_selected(scene, last_seq, last_seq->type, &seq1, &seq2, &seq3, &error_msg)) {
		BKE_report(op->reports, RPT_ERROR, error_msg);
		return OPERATOR_CANCELLED;
	}
	/* see reassigning would create a cycle */
	if (seq_is_predecessor(seq1, last_seq) ||
	    seq_is_predecessor(seq2, last_seq) ||
	    seq_is_predecessor(seq3, last_seq)
	    ) {
		BKE_report(op->reports, RPT_ERROR, "Can't reassign inputs: no cycles allowed");
		return OPERATOR_CANCELLED;
	}

	last_seq->seq1 = seq1;
	last_seq->seq2 = seq2;
	last_seq->seq3 = seq3;

	update_changed_seq_and_deps(scene, last_seq, 1, 1);

	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);

	return OPERATOR_FINISHED;
}

static int sequencer_effect_poll(bContext *C)
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);

	if (ed) {
		Sequence *last_seq = BKE_sequencer_active_get(scene);
		if (last_seq && (last_seq->type & SEQ_EFFECT)) {
			return 1;
		}
	}

	return 0;
}

void SEQUENCER_OT_reassign_inputs(struct wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Reassign Inputs";
	ot->idname = "SEQUENCER_OT_reassign_inputs";
	ot->description = "Reassign the inputs for the effect strip";

	/* api callbacks */
	ot->exec = sequencer_reassign_inputs_exec;
	ot->poll = sequencer_effect_poll;

	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
}


static int sequencer_swap_inputs_exec(bContext *C, wmOperator *op)
{
	Scene *scene = CTX_data_scene(C);
	Sequence *seq, *last_seq = BKE_sequencer_active_get(scene);

	if (last_seq->seq1 == NULL || last_seq->seq2 == NULL) {
		BKE_report(op->reports, RPT_ERROR, "No valid inputs to swap");
		return OPERATOR_CANCELLED;
	}

	seq = last_seq->seq1;
	last_seq->seq1 = last_seq->seq2;
	last_seq->seq2 = seq;

	update_changed_seq_and_deps(scene, last_seq, 1, 1);

	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);

	return OPERATOR_FINISHED;
}
void SEQUENCER_OT_swap_inputs(struct wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Swap Inputs";
	ot->idname = "SEQUENCER_OT_swap_inputs";
	ot->description = "Swap the first two inputs for the effect strip";

	/* api callbacks */
	ot->exec = sequencer_swap_inputs_exec;
	ot->poll = sequencer_effect_poll;

	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
}


/* cut operator */
static EnumPropertyItem prop_cut_types[] = {
	{SEQ_CUT_SOFT, "SOFT", 0, "Soft", ""},
	{SEQ_CUT_HARD, "HARD", 0, "Hard", ""},
	{0, NULL, 0, NULL, NULL}
};

static int sequencer_cut_exec(bContext *C, wmOperator *op)
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	int cut_side, cut_hard, cut_frame;

	ListBase newlist;
	int changed;

	cut_frame = RNA_int_get(op->ptr, "frame");
	cut_hard = RNA_enum_get(op->ptr, "type");
	cut_side = RNA_enum_get(op->ptr, "side");
	
	newlist.first = newlist.last = NULL;

	if (cut_hard == SEQ_CUT_HARD) {
		changed = cut_seq_list(scene, ed->seqbasep, &newlist, cut_frame, cut_seq_hard);
	}
	else {
		changed = cut_seq_list(scene, ed->seqbasep, &newlist, cut_frame, cut_seq_soft);
	}
	
	if (newlist.first) { /* got new strips ? */
		Sequence *seq;
		BLI_movelisttolist(ed->seqbasep, &newlist);

		if (cut_side != SEQ_SIDE_BOTH) {
			SEQP_BEGIN (ed, seq)
			{
				if (cut_side == SEQ_SIDE_LEFT) {
					if (seq->startdisp >= cut_frame) {
						seq->flag &= ~SEQ_ALLSEL;
					}
				}
				else {
					if (seq->enddisp <= cut_frame) {
						seq->flag &= ~SEQ_ALLSEL;
					}
				}
			}
			SEQ_END;
		}
		/* as last: */
		BKE_sequencer_sort(scene);
	}

	if (changed) {
		WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
		return OPERATOR_FINISHED;
	}
	else {
		return OPERATOR_CANCELLED;
	}
}


static int sequencer_cut_invoke(bContext *C, wmOperator *op, wmEvent *event)
{
	Scene *scene = CTX_data_scene(C);
	View2D *v2d = UI_view2d_fromcontext(C);

	int cut_side = SEQ_SIDE_BOTH;
	int cut_frame = CFRA;

	if (ED_operator_sequencer_active(C) && v2d)
		cut_side = mouse_frame_side(v2d, event->mval[0], cut_frame);
	
	RNA_int_set(op->ptr, "frame", cut_frame);
	RNA_enum_set(op->ptr, "side", cut_side);
	/*RNA_enum_set(op->ptr, "type", cut_hard); */ /*This type is set from the key shortcut */

	return sequencer_cut_exec(C, op);
}


void SEQUENCER_OT_cut(struct wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Cut Strips";
	ot->idname = "SEQUENCER_OT_cut";
	ot->description = "Cut the selected strips";
	
	/* api callbacks */
	ot->invoke = sequencer_cut_invoke;
	ot->exec = sequencer_cut_exec;
	ot->poll = sequencer_edit_poll;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
	
	RNA_def_int(ot->srna, "frame", 0, INT_MIN, INT_MAX, "Frame", "Frame where selected strips will be cut", INT_MIN, INT_MAX);
	RNA_def_enum(ot->srna, "type", prop_cut_types, SEQ_CUT_SOFT, "Type", "The type of cut operation to perform on strips");
	RNA_def_enum(ot->srna, "side", prop_side_types, SEQ_SIDE_BOTH, "Side", "The side that remains selected after cutting");
}

/* duplicate operator */
static int apply_unique_name_cb(Sequence *seq, void *arg_pt)
{
	Scene *scene = (Scene *)arg_pt;
	char name[sizeof(seq->name) - 2];

	strcpy(name, seq->name + 2);
	seqbase_unique_name_recursive(&scene->ed->seqbase, seq);
	seq_dupe_animdata(scene, name, seq->name + 2);
	return 1;

}

static int sequencer_add_duplicate_exec(bContext *C, wmOperator *UNUSED(op))
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);

	ListBase nseqbase = {NULL, NULL};

	if (ed == NULL)
		return OPERATOR_CANCELLED;

	seqbase_dupli_recursive(scene, NULL, &nseqbase, ed->seqbasep, SEQ_DUPE_CONTEXT);

	if (nseqbase.first) {
		Sequence *seq = nseqbase.first;
		/* rely on the nseqbase list being added at the end */
		BLI_movelisttolist(ed->seqbasep, &nseqbase);

		for (; seq; seq = seq->next)
			seq_recursive_apply(seq, apply_unique_name_cb, scene);

		WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
		return OPERATOR_FINISHED;
	}

	return OPERATOR_CANCELLED;
}

static int sequencer_add_duplicate_invoke(bContext *C, wmOperator *op, wmEvent *UNUSED(event))
{
	sequencer_add_duplicate_exec(C, op);

	RNA_enum_set(op->ptr, "mode", TFM_TRANSLATION);
	WM_operator_name_call(C, "TRANSFORM_OT_transform", WM_OP_INVOKE_REGION_WIN, op->ptr);

	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_duplicate(wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Duplicate Strips";
	ot->idname = "SEQUENCER_OT_duplicate";
	ot->description = "Duplicate the selected strips";
	
	/* api callbacks */
	ot->invoke = sequencer_add_duplicate_invoke;
	ot->exec = sequencer_add_duplicate_exec;
	ot->poll = ED_operator_sequencer_active;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
	
	/* to give to transform */
	RNA_def_enum(ot->srna, "mode", transform_mode_types, TFM_TRANSLATION, "Mode", "");
}

/* delete operator */
static int sequencer_delete_exec(bContext *C, wmOperator *UNUSED(op))
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	Sequence *seq;
	MetaStack *ms;
	int nothingSelected = TRUE;

	seq = BKE_sequencer_active_get(scene);
	if (seq && seq->flag & SELECT) { /* avoid a loop since this is likely to be selected */
		nothingSelected = FALSE;
	}
	else {
		for (seq = ed->seqbasep->first; seq; seq = seq->next) {
			if (seq->flag & SELECT) {
				nothingSelected = FALSE;
				break;
			}
		}
	}

	if (nothingSelected)
		return OPERATOR_FINISHED;

	/* for effects, try to find a replacement input */
	for (seq = ed->seqbasep->first; seq; seq = seq->next)
		if ((seq->type & SEQ_EFFECT) && !(seq->flag & SELECT))
			del_seq_find_replace_recurs(scene, seq);

	/* delete all selected strips */
	recurs_del_seq_flag(scene, ed->seqbasep, SELECT, 0);

	/* updates lengths etc */
	seq = ed->seqbasep->first;
	while (seq) {
		calc_sequence(scene, seq);
		seq = seq->next;
	}

	/* free parent metas */
	ms = ed->metastack.last;
	while (ms) {
		calc_sequence(scene, ms->parseq);
		ms = ms->prev;
	}

	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
	
	return OPERATOR_FINISHED;
}


void SEQUENCER_OT_delete(wmOperatorType *ot)
{

	/* identifiers */
	ot->name = "Erase Strips";
	ot->idname = "SEQUENCER_OT_delete";
	ot->description = "Erase selected strips from the sequencer";
	
	/* api callbacks */
	ot->invoke = WM_operator_confirm;
	ot->exec = sequencer_delete_exec;
	ot->poll = sequencer_edit_poll;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
}


/* offset clear operator */
static int sequencer_offset_clear_exec(bContext *C, wmOperator *UNUSED(op))
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	Sequence *seq;

	/* for effects, try to find a replacement input */
	for (seq = ed->seqbasep->first; seq; seq = seq->next) {
		if ((seq->type & SEQ_EFFECT) == 0 && (seq->flag & SELECT)) {
			seq->startofs = seq->endofs = seq->startstill = seq->endstill = 0;
		}
	}

	/* updates lengths etc */
	seq = ed->seqbasep->first;
	while (seq) {
		calc_sequence(scene, seq);
		seq = seq->next;
	}

	for (seq = ed->seqbasep->first; seq; seq = seq->next) {
		if ((seq->type & SEQ_EFFECT) == 0 && (seq->flag & SELECT)) {
			if (seq_test_overlap(ed->seqbasep, seq)) {
				shuffle_seq(ed->seqbasep, seq, scene);
			}
		}
	}

	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);

	return OPERATOR_FINISHED;
}


void SEQUENCER_OT_offset_clear(wmOperatorType *ot)
{

	/* identifiers */
	ot->name = "Clear Strip Offset";
	ot->idname = "SEQUENCER_OT_offset_clear";
	ot->description = "Clear strip offsets from the start and end frames";

	/* api callbacks */
	ot->exec = sequencer_offset_clear_exec;
	ot->poll = sequencer_edit_poll;

	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
}


/* separate_images operator */
static int sequencer_separate_images_exec(bContext *C, wmOperator *op)
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	
	Sequence *seq, *seq_new;
	Strip *strip_new;
	StripElem *se, *se_new;
	int start_ofs, cfra, frame_end;
	int step = RNA_int_get(op->ptr, "length");

	seq = ed->seqbasep->first; /* poll checks this is valid */

	while (seq) {
		if ((seq->flag & SELECT) && (seq->type == SEQ_IMAGE) && (seq->len > 1)) {
			/* remove seq so overlap tests don't conflict,
			 * see seq_free_sequence below for the real free'ing */
			BLI_remlink(ed->seqbasep, seq);
			/* if (seq->ipo) seq->ipo->id.us--; */
			/* XXX, remove fcurve and assign to split image strips */

			start_ofs = cfra = seq_tx_get_final_left(seq, 0);
			frame_end = seq_tx_get_final_right(seq, 0);

			while (cfra < frame_end) {
				/* new seq */
				se = give_stripelem(seq, cfra);

				seq_new = seq_dupli_recursive(scene, scene, seq, SEQ_DUPE_UNIQUE_NAME);
				BLI_addtail(ed->seqbasep, seq_new);

				seq_new->start = start_ofs;
				seq_new->type = SEQ_IMAGE;
				seq_new->len = 1;
				seq_new->endstill = step - 1;

				/* new strip */
				strip_new = seq_new->strip;
				strip_new->us = 1;

				/* new stripdata */
				se_new = strip_new->stripdata;
				BLI_strncpy(se_new->name, se->name, sizeof(se_new->name));
				calc_sequence(scene, seq_new);

				if (step > 1) {
					seq_new->flag &= ~SEQ_OVERLAP;
					if (seq_test_overlap(ed->seqbasep, seq_new)) {
						shuffle_seq(ed->seqbasep, seq_new, scene);
					}
				}

				/* XXX, COPY FCURVES */

				cfra++;
				start_ofs += step;
			}

			seq_free_sequence(scene, seq);
			seq = seq->next;
		}
		else {
			seq = seq->next;
		}
	}

	/* as last: */
	BKE_sequencer_sort(scene);
	
	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);

	return OPERATOR_FINISHED;
}


void SEQUENCER_OT_images_separate(wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Separate Images";
	ot->idname = "SEQUENCER_OT_images_separate";
	ot->description = "On image sequence strips, it returns a strip for each image";
	
	/* api callbacks */
	ot->exec = sequencer_separate_images_exec;
	ot->poll = sequencer_edit_poll;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;

	RNA_def_int(ot->srna, "length", 1, 1, 1000, "Length", "Length of each frame", 1, INT_MAX);
}


/* META Operators */

/* separate_meta_toggle operator */
static int sequencer_meta_toggle_exec(bContext *C, wmOperator *UNUSED(op))
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	Sequence *last_seq = BKE_sequencer_active_get(scene);
	MetaStack *ms;

	if (last_seq && last_seq->type == SEQ_META && last_seq->flag & SELECT) {
		/* Enter Metastrip */
		ms = MEM_mallocN(sizeof(MetaStack), "metastack");
		BLI_addtail(&ed->metastack, ms);
		ms->parseq = last_seq;
		ms->oldbasep = ed->seqbasep;

		ed->seqbasep = &last_seq->seqbase;

		BKE_sequencer_active_set(scene, NULL);

	}
	else {
		/* Exit Metastrip (if possible) */

		Sequence *seq;

		if (ed->metastack.first == NULL)
			return OPERATOR_CANCELLED;

		ms = ed->metastack.last;
		BLI_remlink(&ed->metastack, ms);

		ed->seqbasep = ms->oldbasep;

		/* recalc all: the meta can have effects connected to it */
		for (seq = ed->seqbasep->first; seq; seq = seq->next)
			calc_sequence(scene, seq);

		BKE_sequencer_active_set(scene, ms->parseq);

		ms->parseq->flag |= SELECT;
		recurs_sel_seq(ms->parseq);

		MEM_freeN(ms);

	}

	seq_update_muting(ed);
	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);

	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_meta_toggle(wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Toggle Meta Strip";
	ot->idname = "SEQUENCER_OT_meta_toggle";
	ot->description = "Toggle a metastrip (to edit enclosed strips)";
	
	/* api callbacks */
	ot->exec = sequencer_meta_toggle_exec;
	ot->poll = sequencer_edit_poll;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
}


/* separate_meta_make operator */
static int sequencer_meta_make_exec(bContext *C, wmOperator *op)
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	
	Sequence *seq, *seqm, *next, *last_seq = BKE_sequencer_active_get(scene);
	int channel_max = 1;

	if (seqbase_isolated_sel_check(ed->seqbasep) == FALSE) {
		BKE_report(op->reports, RPT_ERROR, "Please select all related strips");
		return OPERATOR_CANCELLED;
	}

	/* remove all selected from main list, and put in meta */

	seqm = alloc_sequence(ed->seqbasep, 1, 1); /* channel number set later */
	strcpy(seqm->name + 2, "MetaStrip");
	seqm->type = SEQ_META;
	seqm->flag = SELECT;

	seq = ed->seqbasep->first;
	while (seq) {
		next = seq->next;
		if (seq != seqm && (seq->flag & SELECT)) {
			channel_max = MAX2(seq->machine, channel_max);
			BLI_remlink(ed->seqbasep, seq);
			BLI_addtail(&seqm->seqbase, seq);
		}
		seq = next;
	}
	seqm->machine = last_seq ? last_seq->machine : channel_max;
	calc_sequence(scene, seqm);

	seqm->strip = MEM_callocN(sizeof(Strip), "metastrip");
	seqm->strip->us = 1;
	
	BKE_sequencer_active_set(scene, seqm);

	if (seq_test_overlap(ed->seqbasep, seqm) ) shuffle_seq(ed->seqbasep, seqm, scene);

	seq_update_muting(ed);

	seqbase_unique_name_recursive(&scene->ed->seqbase, seqm);

	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);

	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_meta_make(wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Make Meta Strip";
	ot->idname = "SEQUENCER_OT_meta_make";
	ot->description = "Group selected strips into a metastrip";
	
	/* api callbacks */
	ot->invoke = WM_operator_confirm;
	ot->exec = sequencer_meta_make_exec;
	ot->poll = sequencer_edit_poll;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
}


static int seq_depends_on_meta(Sequence *seq, Sequence *seqm)
{
	if (seq == seqm) return 1;
	else if (seq->seq1 && seq_depends_on_meta(seq->seq1, seqm)) return 1;
	else if (seq->seq2 && seq_depends_on_meta(seq->seq2, seqm)) return 1;
	else if (seq->seq3 && seq_depends_on_meta(seq->seq3, seqm)) return 1;
	else return 0;
}

/* separate_meta_make operator */
static int sequencer_meta_separate_exec(bContext *C, wmOperator *UNUSED(op))
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);

	Sequence *seq, *last_seq = BKE_sequencer_active_get(scene); /* last_seq checks ed==NULL */

	if (last_seq == NULL || last_seq->type != SEQ_META)
		return OPERATOR_CANCELLED;

	BLI_movelisttolist(ed->seqbasep, &last_seq->seqbase);

	last_seq->seqbase.first = NULL;
	last_seq->seqbase.last = NULL;

	BLI_remlink(ed->seqbasep, last_seq);
	seq_free_sequence(scene, last_seq);

	/* emtpy meta strip, delete all effects depending on it */
	for (seq = ed->seqbasep->first; seq; seq = seq->next)
		if ((seq->type & SEQ_EFFECT) && seq_depends_on_meta(seq, last_seq))
			seq->flag |= SEQ_FLAG_DELETE;

	recurs_del_seq_flag(scene, ed->seqbasep, SEQ_FLAG_DELETE, 0);

	/* test for effects and overlap
	 * don't use SEQP_BEGIN since that would be recursive */
	for (seq = ed->seqbasep->first; seq; seq = seq->next) {
		if (seq->flag & SELECT) {
			seq->flag &= ~SEQ_OVERLAP;
			if (seq_test_overlap(ed->seqbasep, seq)) {
				shuffle_seq(ed->seqbasep, seq, scene);
			}
		}
	}

	BKE_sequencer_sort(scene);
	seq_update_muting(ed);

	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);

	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_meta_separate(wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "UnMeta Strip";
	ot->idname = "SEQUENCER_OT_meta_separate";
	ot->description = "Put the contents of a metastrip back in the sequencer";
	
	/* api callbacks */
	ot->invoke = WM_operator_confirm;
	ot->exec = sequencer_meta_separate_exec;
	ot->poll = sequencer_edit_poll;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
}

/* view_all operator */
static int sequencer_view_all_exec(bContext *C, wmOperator *UNUSED(op))
{
	//Scene *scene= CTX_data_scene(C);
	bScreen *sc = CTX_wm_screen(C);
	ScrArea *area = CTX_wm_area(C);
	//ARegion *ar= CTX_wm_region(C);
	View2D *v2d = UI_view2d_fromcontext(C);

	v2d->cur = v2d->tot;
	UI_view2d_curRect_validate(v2d);
	UI_view2d_sync(sc, area, v2d, V2D_LOCK_COPY);
	
	ED_area_tag_redraw(CTX_wm_area(C));
	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_view_all(wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "View All";
	ot->idname = "SEQUENCER_OT_view_all";
	ot->description = "View all the strips in the sequencer";
	
	/* api callbacks */
	ot->exec = sequencer_view_all_exec;
	ot->poll = ED_operator_sequencer_active;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER;
}

/* view_all operator */
static int sequencer_view_all_preview_exec(bContext *C, wmOperator *UNUSED(op))
{
	bScreen *sc = CTX_wm_screen(C);
	ScrArea *area = CTX_wm_area(C);
#if 0
	ARegion *ar = CTX_wm_region(C);
	SpaceSeq *sseq = area->spacedata.first;
	Scene *scene = CTX_data_scene(C);
#endif
	View2D *v2d = UI_view2d_fromcontext(C);

	v2d->cur = v2d->tot;
	UI_view2d_curRect_validate(v2d);
	UI_view2d_sync(sc, area, v2d, V2D_LOCK_COPY);
	
#if 0
	/* Like zooming on an image view */
	float zoomX, zoomY;
	int width, height, imgwidth, imgheight;

	width = ar->winx;
	height = ar->winy;

	seq_reset_imageofs(sseq);

	imgwidth = (scene->r.size * scene->r.xsch) / 100;
	imgheight = (scene->r.size * scene->r.ysch) / 100;

	/* Apply aspect, dosnt need to be that accurate */
	imgwidth = (int)(imgwidth * (scene->r.xasp / scene->r.yasp));

	if (((imgwidth >= width) || (imgheight >= height)) &&
	    ((width > 0) && (height > 0))) {

		/* Find the zoom value that will fit the image in the image space */
		zoomX = ((float)width) / ((float)imgwidth);
		zoomY = ((float)height) / ((float)imgheight);
		sseq->zoom = (zoomX < zoomY) ? zoomX : zoomY;

		sseq->zoom = 1.0f / power_of_2(1 / MIN2(zoomX, zoomY) );
	}
	else {
		sseq->zoom = 1.0f;
	}
#endif

	ED_area_tag_redraw(CTX_wm_area(C));
	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_view_all_preview(wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "View All";
	ot->idname = "SEQUENCER_OT_view_all_preview";
	ot->description = "Zoom preview to fit in the area";
	
	/* api callbacks */
	ot->exec = sequencer_view_all_preview_exec;
	ot->poll = ED_operator_sequencer_active;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER;
}


static int sequencer_view_zoom_ratio_exec(bContext *C, wmOperator *op)
{
	RenderData *r = &CTX_data_scene(C)->r;
	View2D *v2d = UI_view2d_fromcontext(C);

	float ratio = RNA_float_get(op->ptr, "ratio");

	float winx = (int)(r->size * r->xsch) / 100;
	float winy = (int)(r->size * r->ysch) / 100;

	float facx = (v2d->mask.xmax - v2d->mask.xmin) / winx;
	float facy = (v2d->mask.ymax - v2d->mask.ymin) / winy;

	BLI_resize_rctf(&v2d->cur, (int)(winx * facx * ratio) + 1, (int)(winy * facy * ratio) + 1);

	ED_region_tag_redraw(CTX_wm_region(C));

	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_view_zoom_ratio(wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Sequencer View Zoom Ratio";
	ot->idname = "SEQUENCER_OT_view_zoom_ratio";
	ot->description = "Change zoom ratio of sequencer preview";

	/* api callbacks */
	ot->exec = sequencer_view_zoom_ratio_exec;
	ot->poll = ED_operator_sequencer_active;

	/* properties */
	RNA_def_float(ot->srna, "ratio", 1.0f, 0.0f, FLT_MAX,
	              "Ratio", "Zoom ratio, 1.0 is 1:1, higher is zoomed in, lower is zoomed out", -FLT_MAX, FLT_MAX);
}


#if 0
static EnumPropertyItem view_type_items[] = {
	{SEQ_VIEW_SEQUENCE, "SEQUENCER", ICON_SEQ_SEQUENCER, "Sequencer", ""},
	{SEQ_VIEW_PREVIEW,  "PREVIEW", ICON_SEQ_PREVIEW, "Image Preview", ""},
	{SEQ_VIEW_SEQUENCE_PREVIEW,  "SEQUENCER_PREVIEW", ICON_SEQ_SEQUENCER, "Sequencer and Image Preview", ""},
	{0, NULL, 0, NULL, NULL}
};
#endif

/* view_all operator */
static int sequencer_view_toggle_exec(bContext *C, wmOperator *UNUSED(op))
{
	SpaceSeq *sseq = (SpaceSeq *)CTX_wm_space_data(C);

	sseq->view++;
	if (sseq->view > SEQ_VIEW_SEQUENCE_PREVIEW) sseq->view = SEQ_VIEW_SEQUENCE;

	ED_area_tag_refresh(CTX_wm_area(C));

	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_view_toggle(wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "View Toggle";
	ot->idname = "SEQUENCER_OT_view_toggle";
	ot->description = "Toggle between sequencer views (sequence, preview, both)";
	
	/* api callbacks */
	ot->exec = sequencer_view_toggle_exec;
	ot->poll = ED_operator_sequencer_active;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER;
}


/* view_selected operator */
static int sequencer_view_selected_exec(bContext *C, wmOperator *UNUSED(op))
{
	Scene *scene = CTX_data_scene(C);
	View2D *v2d = UI_view2d_fromcontext(C);
	ScrArea *area = CTX_wm_area(C);
	bScreen *sc = CTX_wm_screen(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	Sequence *seq;

	int xmin =  MAXFRAME * 2;
	int xmax = -MAXFRAME * 2;
	int ymin =  MAXSEQ + 1;
	int ymax = 0;
	int orig_height;
	int ymid;
	int ymargin = 1;
	int xmargin = FPS;

	if (ed == NULL)
		return OPERATOR_CANCELLED;

	for (seq = ed->seqbasep->first; seq; seq = seq->next) {
		if (seq->flag & SELECT) {
			xmin = MIN2(xmin, seq->startdisp);
			xmax = MAX2(xmax, seq->enddisp);

			ymin = MIN2(ymin, seq->machine);
			ymax = MAX2(ymax, seq->machine);
		}
	}

	if (ymax != 0) {
		
		xmax += xmargin;
		xmin -= xmargin;
		ymax += ymargin;
		ymin -= ymargin;

		orig_height = v2d->cur.ymax - v2d->cur.ymin;

		v2d->cur.xmin = xmin;
		v2d->cur.xmax = xmax;

		v2d->cur.ymin = ymin;
		v2d->cur.ymax = ymax;

		/* only zoom out vertically */
		if (orig_height > v2d->cur.ymax - v2d->cur.ymin) {
			ymid = (v2d->cur.ymax + v2d->cur.ymin) / 2;

			v2d->cur.ymin = ymid - (orig_height / 2);
			v2d->cur.ymax = ymid + (orig_height / 2);
		}

		UI_view2d_curRect_validate(v2d);
		UI_view2d_sync(sc, area, v2d, V2D_LOCK_COPY);

		ED_area_tag_redraw(CTX_wm_area(C));
	}
	
	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_view_selected(wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "View Selected";
	ot->idname = "SEQUENCER_OT_view_selected";
	ot->description = "Zoom the sequencer on the selected strips";
	
	/* api callbacks */
	ot->exec = sequencer_view_selected_exec;
	ot->poll = ED_operator_sequencer_active;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER;
}


static int find_next_prev_edit(Scene *scene, int cfra, int side)
{
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	Sequence *seq, *best_seq = NULL, *frame_seq = NULL;
	
	int dist, best_dist;
	best_dist = MAXFRAME * 2;

	if (ed == NULL) return cfra;
	
	for (seq = ed->seqbasep->first; seq; seq = seq->next) {
		dist = MAXFRAME * 2;
			
		switch (side) {
			case SEQ_SIDE_LEFT:
				if (seq->startdisp < cfra) {
					dist = cfra - seq->startdisp;
				}
				break;
			case SEQ_SIDE_RIGHT:
				if (seq->startdisp > cfra) {
					dist = seq->startdisp - cfra;
				}
				else if (seq->startdisp == cfra) {
					frame_seq = seq;
				}
				break;
		}

		if (dist < best_dist) {
			best_dist = dist;
			best_seq = seq;
		}
	}

	/* if no sequence to the right is found and the
	 * frame is on the start of the last sequence,
	 * move to the end of the last sequence */
	if (frame_seq) cfra = frame_seq->enddisp;

	return best_seq ? best_seq->startdisp : cfra;
}

static int next_prev_edit_internal(Scene *scene, int side)
{
	int change = 0;
	int cfra = CFRA;
	int nfra = find_next_prev_edit(scene, cfra, side);
	
	if (nfra != cfra) {
		CFRA = nfra;
		change = 1;
	}

	return change;
}

/* move frame to next edit point operator */
static int sequencer_next_edit_exec(bContext *C, wmOperator *UNUSED(op))
{
	Scene *scene = CTX_data_scene(C);
	
	if (!next_prev_edit_internal(scene, SEQ_SIDE_RIGHT))
		return OPERATOR_CANCELLED;

	WM_event_add_notifier(C, NC_SCENE | ND_FRAME, scene);

	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_next_edit(wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Next Edit";
	ot->idname = "SEQUENCER_OT_next_edit";
	ot->description = "Move frame to next edit point";
	
	/* api callbacks */
	ot->exec = sequencer_next_edit_exec;
	ot->poll = sequencer_edit_poll;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
	
	/* properties */
}

/* move frame to previous edit point operator */
static int sequencer_previous_edit_exec(bContext *C, wmOperator *UNUSED(op))
{
	Scene *scene = CTX_data_scene(C);
	
	if (!next_prev_edit_internal(scene, SEQ_SIDE_LEFT))
		return OPERATOR_CANCELLED;

	WM_event_add_notifier(C, NC_SCENE | ND_FRAME, scene);
	
	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_previous_edit(wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Previous Edit";
	ot->idname = "SEQUENCER_OT_previous_edit";
	ot->description = "Move frame to previous edit point";
	
	/* api callbacks */
	ot->exec = sequencer_previous_edit_exec;
	ot->poll = sequencer_edit_poll;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
	
	/* properties */
}

static void swap_sequence(Scene *scene, Sequence *seqa, Sequence *seqb)
{
	int gap = seqb->startdisp - seqa->enddisp;
	seqb->start = (seqb->start - seqb->startdisp) + seqa->startdisp;
	calc_sequence(scene, seqb);
	seqa->start = (seqa->start - seqa->startdisp) + seqb->enddisp + gap;
	calc_sequence(scene, seqa);
}

#if 0
static Sequence *sequence_find_parent(Scene *scene, Sequence *child)
{
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	Sequence *parent = NULL;
	Sequence *seq;

	if (ed == NULL) return NULL;

	for (seq = ed->seqbasep->first; seq; seq = seq->next) {
		if ( (seq != child) && seq_is_parent(seq, child) ) {
			parent = seq;
			break;
		}
	}

	return parent;
}
#endif

static int sequencer_swap_exec(bContext *C, wmOperator *op)
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	Sequence *active_seq = BKE_sequencer_active_get(scene);
	Sequence *seq, *iseq;
	int side = RNA_enum_get(op->ptr, "side");

	if (active_seq == NULL) return OPERATOR_CANCELLED;

	seq = find_next_prev_sequence(scene, active_seq, side, -1);
	
	if (seq) {
		
		/* disallow effect strips */
		if (get_sequence_effect_num_inputs(seq->type) >= 1 && (seq->effectdata || seq->seq1 || seq->seq2 || seq->seq3))
			return OPERATOR_CANCELLED;
		if ((get_sequence_effect_num_inputs(active_seq->type) >= 1) && (active_seq->effectdata || active_seq->seq1 || active_seq->seq2 || active_seq->seq3))
			return OPERATOR_CANCELLED;

		switch (side) {
			case SEQ_SIDE_LEFT: 
				swap_sequence(scene, seq, active_seq);
				break;
			case SEQ_SIDE_RIGHT: 
				swap_sequence(scene, active_seq, seq);
				break;
		}

		// XXX - should be a generic function
		for (iseq = scene->ed->seqbasep->first; iseq; iseq = iseq->next) {
			if ((iseq->type & SEQ_EFFECT) && (seq_is_parent(iseq, active_seq) || seq_is_parent(iseq, seq))) {
				calc_sequence(scene, iseq);
			}
		}

		/* do this in a new loop since both effects need to be calculated first */
		for (iseq = scene->ed->seqbasep->first; iseq; iseq = iseq->next) {
			if ((iseq->type & SEQ_EFFECT) && (seq_is_parent(iseq, active_seq) || seq_is_parent(iseq, seq))) {
				/* this may now overlap */
				if (seq_test_overlap(ed->seqbasep, iseq) ) {
					shuffle_seq(ed->seqbasep, iseq, scene);
				}
			}
		}



		BKE_sequencer_sort(scene);

		WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);

		return OPERATOR_FINISHED;
	}

	return OPERATOR_CANCELLED;
}

void SEQUENCER_OT_swap(wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Swap Strip";
	ot->idname = "SEQUENCER_OT_swap";
	ot->description = "Swap active strip with strip to the right or left";
	
	/* api callbacks */
	ot->exec = sequencer_swap_exec;
	ot->poll = sequencer_edit_poll;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
	
	/* properties */
	RNA_def_enum(ot->srna, "side", prop_side_lr_types, SEQ_SIDE_RIGHT, "Side", "Side of the strip to swap");
}

static int sequencer_rendersize_exec(bContext *C, wmOperator *UNUSED(op))
{
	int retval = OPERATOR_CANCELLED;
	Scene *scene = CTX_data_scene(C);
	Sequence *active_seq = BKE_sequencer_active_get(scene);
	StripElem *se = NULL;

	if (active_seq == NULL)
		return OPERATOR_CANCELLED;


	if (active_seq->strip) {
		switch (active_seq->type) {
			case SEQ_IMAGE:
				se = give_stripelem(active_seq, scene->r.cfra);
				break;
			case SEQ_MOVIE:
				se = active_seq->strip->stripdata;
				break;
			case SEQ_SCENE:
			case SEQ_META:
			case SEQ_RAM_SOUND:
			case SEQ_HD_SOUND:
			default:
				break;
		}
	}

	if (se) {
		// prevent setting the render size if sequence values aren't initialized
		if ( (se->orig_width > 0) && (se->orig_height > 0) ) {
			scene->r.xsch = se->orig_width;
			scene->r.ysch = se->orig_height;
			WM_event_add_notifier(C, NC_SCENE | ND_RENDER_OPTIONS, scene);
			retval = OPERATOR_FINISHED;
		}
	}

	return retval;
}

void SEQUENCER_OT_rendersize(wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Set Render Size";
	ot->idname = "SEQUENCER_OT_rendersize";
	ot->description = "Set render size and aspect from active sequence";
	
	/* api callbacks */
	ot->exec = sequencer_rendersize_exec;
	ot->poll = sequencer_edit_poll;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
	
	/* properties */
}

static void seq_copy_del_sound(Scene *scene, Sequence *seq)
{
	if (seq->type == SEQ_META) {
		Sequence *iseq;
		for (iseq = seq->seqbase.first; iseq; iseq = iseq->next) {
			seq_copy_del_sound(scene, iseq);
		}
	}
	else if (seq->scene_sound) {
		sound_remove_scene_sound(scene, seq->scene_sound);
		seq->scene_sound = NULL;
	}
}

/* TODO, validate scenes */
static int sequencer_copy_exec(bContext *C, wmOperator *op)
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	Sequence *seq;

	ListBase nseqbase = {NULL, NULL};

	seq_free_clipboard();

	if (seqbase_isolated_sel_check(ed->seqbasep) == FALSE) {
		BKE_report(op->reports, RPT_ERROR, "Please select all related strips");
		return OPERATOR_CANCELLED;
	}

	seqbase_dupli_recursive(scene, NULL, &nseqbase, ed->seqbasep, SEQ_DUPE_UNIQUE_NAME);

	/* To make sure the copied strips have unique names between each other add
	 * them temporarily to the end of the original seqbase. (bug 25932)
	 */
	if (nseqbase.first) {
		Sequence *seq, *first_seq = nseqbase.first;
		BLI_movelisttolist(ed->seqbasep, &nseqbase);

		for (seq = first_seq; seq; seq = seq->next)
			seq_recursive_apply(seq, apply_unique_name_cb, scene);

		seqbase_clipboard.first = first_seq;
		seqbase_clipboard.last = ed->seqbasep->last;

		if (first_seq->prev) {
			first_seq->prev->next = NULL;
			ed->seqbasep->last = first_seq->prev;
			first_seq->prev = NULL;
		}
	}

	seqbase_clipboard_frame = scene->r.cfra;

	/* Need to remove anything that references the current scene */
	for (seq = seqbase_clipboard.first; seq; seq = seq->next) {
		seq_copy_del_sound(scene, seq);
	}

	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_copy(wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Copy";
	ot->idname = "SEQUENCER_OT_copy";
	ot->description = "";

	/* api callbacks */
	ot->exec = sequencer_copy_exec;
	ot->poll = sequencer_edit_poll;

	/* flags */
	ot->flag = OPTYPE_REGISTER;

	/* properties */
}

static int sequencer_paste_exec(bContext *C, wmOperator *UNUSED(op))
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, TRUE); /* create if needed */
	ListBase nseqbase = {NULL, NULL};
	int ofs;
	Sequence *iseq;

	deselect_all_seq(scene);
	ofs = scene->r.cfra - seqbase_clipboard_frame;

	seqbase_dupli_recursive(scene, NULL, &nseqbase, &seqbase_clipboard, SEQ_DUPE_UNIQUE_NAME);

	/* transform pasted strips before adding */
	if (ofs) {
		for (iseq = nseqbase.first; iseq; iseq = iseq->next) {
			seq_translate(scene, iseq, ofs);
			seq_sound_init(scene, iseq);
		}
	}

	iseq = nseqbase.first;

	BLI_movelisttolist(ed->seqbasep, &nseqbase);

	/* make sure the pasted strips have unique names between them */
	for (; iseq; iseq = iseq->next) {
		seq_recursive_apply(iseq, apply_unique_name_cb, scene);
	}

	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);

	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_paste(wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Paste";
	ot->idname = "SEQUENCER_OT_paste";
	ot->description = "";

	/* api callbacks */
	ot->exec = sequencer_paste_exec;
	ot->poll = ED_operator_sequencer_active;

	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;

	/* properties */
}

static int sequencer_swap_data_exec(bContext *C, wmOperator *op)
{
	Scene *scene = CTX_data_scene(C);
	Sequence *seq_act;
	Sequence *seq_other;
	const char *error_msg;

	if (BKE_sequencer_active_get_pair(scene, &seq_act, &seq_other) == 0) {
		BKE_report(op->reports, RPT_ERROR, "Must select 2 strips");
		return OPERATOR_CANCELLED;
	}

	if (seq_swap(seq_act, seq_other, &error_msg) == 0) {
		BKE_report(op->reports, RPT_ERROR, error_msg);
		return OPERATOR_CANCELLED;
	}

	sound_remove_scene_sound(scene, seq_act->scene_sound);
	sound_remove_scene_sound(scene, seq_other->scene_sound);

	seq_act->scene_sound = NULL;
	seq_other->scene_sound = NULL;

	calc_sequence(scene, seq_act);
	calc_sequence(scene, seq_other);

	if (seq_act->sound) sound_add_scene_sound_defaults(scene, seq_act);
	if (seq_other->sound) sound_add_scene_sound_defaults(scene, seq_other);

	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);

	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_swap_data(wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Sequencer Swap Data";
	ot->idname = "SEQUENCER_OT_swap_data";
	ot->description = "Swap 2 sequencer strips";

	/* api callbacks */
	ot->exec = sequencer_swap_data_exec;
	ot->poll = ED_operator_sequencer_active;

	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;

	/* properties */
}

/* borderselect operator */
static int view_ghost_border_exec(bContext *C, wmOperator *op)
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	View2D *v2d = UI_view2d_fromcontext(C);

	rctf rect;

	/* convert coordinates of rect to 'tot' rect coordinates */
	UI_view2d_region_to_view(v2d, RNA_int_get(op->ptr, "xmin"), RNA_int_get(op->ptr, "ymin"), &rect.xmin, &rect.ymin);
	UI_view2d_region_to_view(v2d, RNA_int_get(op->ptr, "xmax"), RNA_int_get(op->ptr, "ymax"), &rect.xmax, &rect.ymax);

	if (ed == NULL)
		return OPERATOR_CANCELLED;

	rect.xmin /=  (float)(ABS(v2d->tot.xmax - v2d->tot.xmin));
	rect.ymin /=  (float)(ABS(v2d->tot.ymax - v2d->tot.ymin));

	rect.xmax /=  (float)(ABS(v2d->tot.xmax - v2d->tot.xmin));
	rect.ymax /=  (float)(ABS(v2d->tot.ymax - v2d->tot.ymin));

	rect.xmin += 0.5f;
	rect.xmax += 0.5f;
	rect.ymin += 0.5f;
	rect.ymax += 0.5f;

	CLAMP(rect.xmin, 0.0f, 1.0f);
	CLAMP(rect.ymin, 0.0f, 1.0f);
	CLAMP(rect.xmax, 0.0f, 1.0f);
	CLAMP(rect.ymax, 0.0f, 1.0f);

	scene->ed->over_border = rect;

	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);

	return OPERATOR_FINISHED;
}

/* ****** Border Select ****** */
void SEQUENCER_OT_view_ghost_border(wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Border Offset View";
	ot->idname = "SEQUENCER_OT_view_ghost_border";
	ot->description = "Enable border select mode";

	/* api callbacks */
	ot->invoke = WM_border_select_invoke;
	ot->exec = view_ghost_border_exec;
	ot->modal = WM_border_select_modal;
	ot->poll = sequencer_view_poll;
	ot->cancel = WM_border_select_cancel;

	/* flags */
	ot->flag = 0;

	/* rna */
	WM_operator_properties_gesture_border(ot, FALSE);
}

/* rebuild_proxy operator */
static int sequencer_rebuild_proxy_exec(bContext *C, wmOperator *UNUSED(op))
{
	seq_proxy_build_job(C);

	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_rebuild_proxy(wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Rebuild Proxy and Timecode Indices";
	ot->idname = "SEQUENCER_OT_rebuild_proxy";
	ot->description = "Rebuild all selected proxies and timecode indeces using the job system";
	
	/* api callbacks */
	ot->exec = sequencer_rebuild_proxy_exec;
	ot->poll = ED_operator_sequencer_active;
	
	/* flags */
	ot->flag = OPTYPE_REGISTER;
}

/* change ops */

static EnumPropertyItem prop_change_effect_input_types[] = {
	{0, "A_B", 0, "A -> B", ""},
	{1, "B_C", 0, "B -> C", ""},
	{2, "A_C", 0, "A -> C", ""},
	{0, NULL, 0, NULL, NULL}
};

static int sequencer_change_effect_input_exec(bContext *C, wmOperator *op)
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	Sequence *seq = BKE_sequencer_active_get(scene);

	Sequence **seq_1, **seq_2;

	switch (RNA_enum_get(op->ptr, "swap")) {
		case 0:
			seq_1 = &seq->seq1;
			seq_2 = &seq->seq2;
			break;
		case 1:
			seq_1 = &seq->seq2;
			seq_2 = &seq->seq3;
			break;
		default: /* 2 */
			seq_1 = &seq->seq1;
			seq_2 = &seq->seq3;
			break;
	}

	if (*seq_1 == NULL || *seq_2 == NULL) {
		BKE_report(op->reports, RPT_ERROR, "One of the effect inputs is unset, can't swap");
		return OPERATOR_CANCELLED;
	}
	else {
		SWAP(Sequence *, *seq_1, *seq_2);
	}

	update_changed_seq_and_deps(scene, seq, 0, 1);

	/* important else we don't get the imbuf cache flushed */
	free_imbuf_seq(scene, &ed->seqbase, FALSE, FALSE);

	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);

	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_change_effect_input(struct wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Change Effect Input";
	ot->idname = "SEQUENCER_OT_change_effect_input";
	ot->description = "";

	/* api callbacks */
	ot->exec = sequencer_change_effect_input_exec;
	ot->poll = sequencer_effect_poll;

	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;

	ot->prop = RNA_def_enum(ot->srna, "swap", prop_change_effect_input_types, 0, "Swap", "The effect inputs to swap");
}

static int sequencer_change_effect_type_exec(bContext *C, wmOperator *op)
{
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	Sequence *seq = BKE_sequencer_active_get(scene);
	const int new_type = RNA_enum_get(op->ptr, "type");

	/* free previous effect and init new effect */
	struct SeqEffectHandle sh;

	if ((seq->type & SEQ_EFFECT) == 0) {
		return OPERATOR_CANCELLED;
	}

	/* can someone explain the logic behind only allowing to increase this,
	 * copied from 2.4x - campbell */
	if (get_sequence_effect_num_inputs(seq->type) <
	    get_sequence_effect_num_inputs(new_type))
	{
		BKE_report(op->reports, RPT_ERROR, "New effect needs more input strips");
		return OPERATOR_CANCELLED;
	}
	else {
		sh = get_sequence_effect(seq);
		sh.free(seq);

		seq->type = new_type;

		sh = get_sequence_effect(seq);
		sh.init(seq);
	}

	/* update */
	update_changed_seq_and_deps(scene, seq, 0, 1);

	/* important else we don't get the imbuf cache flushed */
	free_imbuf_seq(scene, &ed->seqbase, FALSE, FALSE);

	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);

	return OPERATOR_FINISHED;
}

void SEQUENCER_OT_change_effect_type(struct wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Change Effect Type";
	ot->idname = "SEQUENCER_OT_change_effect_type";
	ot->description = "";

	/* api callbacks */
	ot->exec = sequencer_change_effect_type_exec;
	ot->poll = sequencer_effect_poll;

	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;

	ot->prop = RNA_def_enum(ot->srna, "type", sequencer_prop_effect_types, SEQ_CROSS, "Type", "Sequencer effect type");
}

static int sequencer_change_path_exec(bContext *C, wmOperator *op)
{
	Main *bmain = CTX_data_main(C);
	Scene *scene = CTX_data_scene(C);
	Editing *ed = BKE_sequencer_editing_get(scene, FALSE);
	Sequence *seq = BKE_sequencer_active_get(scene);
	const int is_relative_path = RNA_boolean_get(op->ptr, "relative_path");

	if (seq->type == SEQ_IMAGE) {
		char directory[FILE_MAX];
		const int len = RNA_property_collection_length(op->ptr, RNA_struct_find_property(op->ptr, "files"));
		StripElem *se;

		if (len == 0)
			return OPERATOR_CANCELLED;

		RNA_string_get(op->ptr, "directory", directory);
		if (is_relative_path) {
			/* TODO, shouldn't this already be relative from the filesel?
			 * (as the 'filepath' is) for now just make relative here,
			 * but look into changing after 2.60 - campbell */
			BLI_path_rel(directory, bmain->name);
		}
		BLI_strncpy(seq->strip->dir, directory, sizeof(seq->strip->dir));

		if (seq->strip->stripdata) {
			MEM_freeN(seq->strip->stripdata);
		}
		seq->strip->stripdata = se = MEM_callocN(len * sizeof(StripElem), "stripelem");

		RNA_BEGIN (op->ptr, itemptr, "files")
		{
			char *filename = RNA_string_get_alloc(&itemptr, "name", NULL, 0);
			BLI_strncpy(se->name, filename, sizeof(se->name));
			MEM_freeN(filename);
			se++;
		}
		RNA_END;

		/* reset these else we wont see all the images */
		seq->anim_startofs = seq->anim_endofs = 0;

		/* correct start/end frames so we don't move
		 * important not to set seq->len= len; allow the function to handle it */
		reload_sequence_new_file(scene, seq, TRUE);

		calc_sequence(scene, seq);

		/* important else we don't get the imbuf cache flushed */
		free_imbuf_seq(scene, &ed->seqbase, FALSE, FALSE);
	}
	else {
		/* lame, set rna filepath */
		PointerRNA seq_ptr;
		PropertyRNA *prop;
		char filepath[FILE_MAX];

		RNA_pointer_create(&scene->id, &RNA_Sequence, seq, &seq_ptr);

		RNA_string_get(op->ptr, "filepath", filepath);
		prop = RNA_struct_find_property(&seq_ptr, "filepath");
		RNA_property_string_set(&seq_ptr, prop, filepath);
		RNA_property_update(C, &seq_ptr, prop);
	}

	WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);

	return OPERATOR_FINISHED;
}

static int sequencer_change_path_invoke(bContext *C, wmOperator *op, wmEvent *UNUSED(event))
{
	Scene *scene = CTX_data_scene(C);
	Sequence *seq = BKE_sequencer_active_get(scene);

	RNA_string_set(op->ptr, "directory", seq->strip->dir);

	/* set default display depending on seq type */
	if (seq->type == SEQ_IMAGE) {
		RNA_boolean_set(op->ptr, "filter_movie", FALSE);
	}
	else {
		RNA_boolean_set(op->ptr, "filter_image", FALSE);
	}

	WM_event_add_fileselect(C, op);

	return OPERATOR_RUNNING_MODAL;
}

void SEQUENCER_OT_change_path(struct wmOperatorType *ot)
{
	/* identifiers */
	ot->name = "Change Data/Files";
	ot->idname = "SEQUENCER_OT_change_path";
	ot->description = "";

	/* api callbacks */
	ot->exec = sequencer_change_path_exec;
	ot->invoke = sequencer_change_path_invoke;
	ot->poll = sequencer_strip_has_path_poll;

	/* flags */
	ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;

	WM_operator_properties_filesel(ot, FOLDERFILE | IMAGEFILE | MOVIEFILE, FILE_SPECIAL, FILE_OPENFILE, WM_FILESEL_DIRECTORY | WM_FILESEL_RELPATH | WM_FILESEL_FILEPATH | WM_FILESEL_FILES, FILE_DEFAULTDISPLAY);
}