sequencer_edit.c

Go to the documentation of this file.

/*
 * ***** 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 *****
 */

#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 "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"

static int okee(const char *UNUSED(dummy)) {return 0;}


/* 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_PLUGIN, "PLUGIN", 0, "Plugin", "Plugin 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;
    ThreadMutex queue_lock;
} ProxyJob;

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

    for (seq = pj->queue.first; seq; seq = seq->next) {
        BLI_remlink(&pj->queue, seq);
        seq_free_sequence_recurse(pj->scene, seq);
    }

    BLI_mutex_end(&pj->queue_lock);

    MEM_freeN(pj);
}

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

    while (!*stop) {
        Sequence * seq;

        BLI_mutex_lock(&pj->queue_lock);
        
        if (!pj->queue.first) {
            BLI_mutex_unlock(&pj->queue_lock);
            break;
        }

        seq = pj->queue.first;

        BLI_remlink(&pj->queue, seq);
        BLI_mutex_unlock(&pj->queue_lock);

        seq_proxy_rebuild(pj->main, pj->scene, seq, 
                          stop, do_update, progress);
        seq_free_sequence_recurse(pj->scene, seq);
    }

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

static void proxy_endjob(void *UNUSED(customdata))
{

}

static void seq_proxy_build_job(const bContext *C, Sequence * seq)
{
    wmJob * steve;
    ProxyJob *pj;
    Scene *scene= CTX_data_scene(C);
    ScrArea * sa= CTX_wm_area(C);

    seq = seq_dupli_recursive(scene, scene, seq, 0);

    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);

        BLI_mutex_init(&pj->queue_lock);

        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);
    }

    BLI_mutex_lock(&pj->queue_lock);
    BLI_addtail(&pj->queue, seq);
    BLI_mutex_unlock(&pj->queue_lock);

    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= seq_give_editing(scene, FALSE);
    struct SeqEffectHandle sh;
    Sequence *last_seq= seq_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= seq_give_editing(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= seq_give_editing(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= seq_give_editing(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= seq_give_editing(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) { /* dont 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= seq_give_editing(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 = seq_give_editing(scene, FALSE);
    Sequence *seq1= NULL, *seq2= NULL, *seq3= NULL, *seq;
    
    *error_str= NULL;

    if (!activeseq)
        seq2= seq_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 = seq_active_get(scene);

    seq= lb->first;
    while(seq) {
        seqn= seq->next;
        if((seq->flag & flag) || deleteall) {
            BLI_remlink(lb, seq);
            if(seq==last_seq) seq_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);
    new_tstripdata(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);
        new_tstripdata(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);
    new_tstripdata(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);
        new_tstripdata(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= seq_give_editing(scene, FALSE);
    int done=0;

    /* 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= 1;
        }
    }
    SEQ_END

    return done;
}

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

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

    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);
}

/*
static void set_filter_seq(Scene *scene)
{
    Sequence *seq;
    Editing *ed= seq_give_editing(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
}
*/

static void UNUSED_FUNCTION(seq_remap_paths)(Scene *scene)
{
    Sequence *seq, *last_seq = seq_active_get(scene);
    Editing *ed= seq_give_editing(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= seq_give_editing(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= 1;
            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 (seq_give_editing(CTX_data_scene(C), FALSE) != NULL);
}

int sequencer_strip_poll(bContext *C)
{
    Editing *ed;
    return (((ed= seq_give_editing(CTX_data_scene(C), FALSE)) != NULL) && (ed->act_seq != NULL));
}

int sequencer_strip_has_path_poll(bContext *C)
{
    Editing *ed;
    Sequence *seq;
    return (((ed= seq_give_editing(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= seq_give_editing(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= seq_give_editing(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
     * dont 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: */
    sort_seq(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= seq_give_editing(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= seq_give_editing(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= seq_give_editing(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= seq_give_editing(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 *UNUSED(op))
{
    Scene *scene= CTX_data_scene(C);
    Editing *ed= seq_give_editing(scene, FALSE);
    Sequence *seq;

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

    WM_event_add_notifier(C, NC_SCENE|ND_SEQUENCER, scene);

    return OPERATOR_FINISHED;
}

void SEQUENCER_OT_reload(struct wmOperatorType *ot)
{
    /* 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' */
}

/* reload operator */
static int sequencer_refresh_all_exec(bContext *C, wmOperator *UNUSED(op))
{
    Scene *scene= CTX_data_scene(C);
    Editing *ed= seq_give_editing(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 = seq_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= seq_give_editing(scene, FALSE);

    if(ed) {
        Sequence *last_seq= seq_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 = seq_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= seq_give_editing(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: */
        sort_seq(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= seq_give_editing(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= seq_give_editing(scene, FALSE);
    Sequence *seq;
    MetaStack *ms;
    int nothingSelected = TRUE;

    seq=seq_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) {
        ms->parseq->strip->len= 0;      /* force new alloc */
        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= seq_give_editing(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= seq_give_editing(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 dont 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->len= 1;
                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: */
    sort_seq(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= seq_give_editing(scene, FALSE);
    Sequence *last_seq= seq_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;

        seq_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);

        seq_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= seq_give_editing(scene, FALSE);
    
    Sequence *seq, *seqm, *next, *last_seq = seq_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->len= seqm->len;
    seqm->strip->us= 1;
    
    seq_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= seq_give_editing(scene, FALSE);

    Sequence *seq, *last_seq = seq_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
     * dont 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);
            }
        }
    }

    sort_seq(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= seq_give_editing(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= seq_give_editing(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= seq_give_editing(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= seq_give_editing(scene, FALSE);
    Sequence *active_seq = seq_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);
                }
            }
        }



        sort_seq(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 = seq_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_del_sound(Scene *scene, Sequence *seq)
{
    if(seq->type == SEQ_META) {
        Sequence *iseq;
        for(iseq= seq->seqbase.first; iseq; iseq= iseq->next) {
            seq_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= seq_give_editing(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_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= seq_give_editing(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(seq_active_pair_get(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= seq_give_editing(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))
{
    Scene *scene = CTX_data_scene(C);
    Editing *ed = seq_give_editing(scene, FALSE);
    Sequence * seq;

    SEQP_BEGIN(ed, seq) {
        if ((seq->flag & SELECT)) {
            seq_proxy_build_job(C, seq);
        }
    }
    SEQ_END
        
    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= seq_give_editing(scene, FALSE);
    Sequence *seq= seq_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 dont 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= seq_give_editing(scene, FALSE);
    Sequence *seq= seq_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 increse 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 dont 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= seq_give_editing(scene, FALSE);
    Sequence *seq= seq_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 dont 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 dont 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= seq_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);
}