g_editor.c 264 KB
Newer Older
1 2 3
/* Copyright (c) 2009-2013 Ivica Ico Bukvic and others. Code based on Pure-Data source

Original Pure-Data source copyright (c) 1997-2001 Miller Puckette and others.
Miller Puckette's avatar
Miller Puckette committed
4
* For information on usage and redistribution, and for a DISCLAIMER OF ALL
5 6 7
* WARRANTIES, see the file, "LICENSE.txt," in this distribution.

*/
Miller Puckette's avatar
Miller Puckette committed
8 9 10 11 12 13

#include <stdlib.h>
#include <stdio.h>
#include "m_pd.h"
#include "m_imp.h"
#include "s_stuff.h"
14
#include "g_magicglass.h"
Miller Puckette's avatar
Miller Puckette committed
15
#include "g_canvas.h"
16
#include "s_utf8.h" /*-- moo --*/
17
#include "g_undo.h"
18
#include "x_preset.h"
Miller Puckette's avatar
Miller Puckette committed
19
#include <string.h>
20
#include <math.h>
21
#include "g_all_guis.h"
Miller Puckette's avatar
Miller Puckette committed
22 23 24 25 26 27 28

void glist_readfrombinbuf(t_glist *x, t_binbuf *b, char *filename,
    int selectem);

void open_via_helppath(const char *name, const char *dir);
char *class_gethelpdir(t_class *c);

29 30
//static int toggle_moving = 0; //global variable

Miller Puckette's avatar
Miller Puckette committed
31 32
/* ------------------ forward declarations --------------- */
static void canvas_doclear(t_canvas *x);
33
void glist_setlastxymod(t_glist *gl, int xval, int yval, int mod);
34
void glist_setlastxy(t_glist *gl, int xval, int yval);
Miller Puckette's avatar
Miller Puckette committed
35 36 37 38 39 40
static void glist_donewloadbangs(t_glist *x);
static t_binbuf *canvas_docopy(t_canvas *x);
static void canvas_dopaste(t_canvas *x, t_binbuf *b);
static void canvas_paste(t_canvas *x);
static void canvas_clearline(t_canvas *x);
static t_binbuf *copy_binbuf;
41
static int clipboard_istext = 0;
42 43
//static char *canvas_textcopybuf;
//static int canvas_textcopybufsize;
Miller Puckette's avatar
Miller Puckette committed
44
static t_glist *glist_finddirty(t_glist *x);
45 46
static void canvas_reselect(t_canvas *x);
static void canvas_cut(t_canvas *x);
Hans-Christoph Steiner's avatar
Hans-Christoph Steiner committed
47
static int paste_xyoffset = 0; /* a counter of pastes to make x,y offsets */
48
//static void canvas_mouseup_gop(t_canvas *x, t_gobj *g);
49
void canvas_done_popup(t_canvas *x, t_float which, t_float xpos,
50 51 52
    t_float ypos);
static void canvas_doarrange(t_canvas *x, t_float which, t_gobj *oldy,
    t_gobj *oldy_prev, t_gobj *oldy_next);
53
static void canvas_paste_xyoffset(t_canvas *x);
54
void canvas_setgraph(t_glist *x, int flag, int nogoprect);
55 56
void canvas_mouseup(t_canvas *x, t_floatarg fxpos, t_floatarg fypos,
    t_floatarg fwhich);
57 58 59 60
static int outlet_issignal = 0;
static int inlet_issignal = 0;
static int last_inlet_filter = 0;
static int last_outlet_filter = 0;
61
static int copyfromexternalbuffer = 0;
62
static int tooltips = 0;
63
static int objtooltip = 0;
64
static int screenx1; /* screen coordinates when doing copyfromexternalbuffer */
65 66 67 68 69
static int screeny1;
static int screenx2;
static int screeny2;
static int copiedfont;
static void canvas_dofont(t_canvas *x, t_floatarg font, t_floatarg xresize,
70
    t_floatarg yresize);
71
int canvas_apply_restore_original_position(t_canvas *x, int orig_pos);
72
extern void canvas_draw_gop_resize_hooks(t_canvas *x);
73 74
static void canvas_font(t_canvas *x, t_floatarg font, t_floatarg oldfont,
    t_floatarg resize, t_floatarg preview);
75
void canvas_displaceselection(t_canvas *x, int dx, int dy);
76 77 78 79
void canvas_motion(t_canvas *x, t_floatarg xpos, t_floatarg ypos,
    t_floatarg fmod);
/* for updating preset_node locations in case of operations that alter
   glist object locations (tofront/back, cut, delete, undo/redo cut/delete) */
80
extern void glob_preset_node_list_check_loc_and_update(void);
81 82
// for preset_node
extern t_class *text_class;
83 84 85
// for iemgui objects' wonky click area
//extern void iemgui_getrect_mouse(t_gobj *x, int *xp1, int *yp1,
//    int *xp2, int *yp2);
86

87
int do_not_redraw = 0;     // used to optimize redrawing
88 89
int old_displace = 0;      // for legacy displaces within gop that are not
                           // visible to displaceselection
90

91 92 93 94
/* used when autopatching to bypass check whether one is trying to
   connect signal with non-signal nlet since this is impossible to
   figure out when the newly created object is an empty one */
int connect_exception = 0;
95

96 97
/* used to test whether the shift is pressed and if so,
   handle various connection exceptions (e.g. multiconnect) */
98 99
int glob_lmclick = 0;
int glob_shift = 0;
100 101 102 103
int glob_ctrl = 0;
int glob_alt = 0;

static t_glist *canvas_last_glist;
104
static int canvas_last_glist_x=20, canvas_last_glist_y=20, canvas_last_glist_mod;
105

106 107 108 109 110 111 112 113 114 115 116 117 118
struct _outlet
{
    t_object *o_owner;
    struct _outlet *o_next;
    t_outconnect *o_connections;
    t_symbol *o_sym;
};

/* used for new duplicate behavior where we can "duplicate" into new window */
static t_canvas *c_selection;

/* iemgui uses black inlets and outlets while default objects use gray ones
   add here more as necessary */
119 120 121
int gobj_filter_highlight_behavior(t_text *y)
{
    return (y->te_iemgui);
122
}
Miller Puckette's avatar
Miller Puckette committed
123

124 125 126
/* ---------------- mathieu 2014.08 --------------------------------- */

void canvas_raise_all_cords (t_canvas *x) {
127 128 129 130 131
    /* I think this is deprecated... instead of raising cords, we
       just insert all gobjs (and scalars) before the first patch
       cord.  This way we don't have to constantly raise all the
       patch cords above everything else. */
    //sys_vgui(".x%lx.c raise all_cords\n", x);
132
}
133

134
static void canvas_enteritem (t_canvas *x, int xpos, int ypos, const char *tag) {
135 136 137 138
    // This will be replaced by GUI-side functionality once we combine
    // object and xlet drawing in a single command from Pd.
    //sys_vgui("pdtk_canvas_enteritem .x%x.c %d %d %s -1\n",
    //    x, xpos, ypos, tag);
139
}
140

141
static void canvas_leaveitem (t_canvas *x) {
142 143
    // See comment above
    //sys_vgui("pdtk_canvas_leaveitem .x%x.c\n", x);
144
}
145

146 147 148 149 150 151
static void tooltip_erase (t_canvas *x) {
    if (objtooltip) {
        objtooltip = 0;
        canvas_leaveitem(x);
    }
}
152

153
static void canvas_nlet_conf (t_canvas *x, int type) {
154
    int isiemgui = type=='o' ? last_outlet_filter : last_inlet_filter;
155
    int issignal = type=='o' ? outlet_issignal : inlet_issignal;
156 157 158 159 160 161 162 163
    //sys_vgui(".x%x.c itemconfigure %s -stroke %s -fill %s -strokewidth 1\n", x,
    //  type=='o' ? x->gl_editor->canvas_cnct_outlet_tag : x->gl_editor->canvas_cnct_inlet_tag,
    //  (isiemgui ? "$pd_colors(iemgui_nlet)" : 
    //    (issignal ? "$pd_colors(signal_cord)" : "$pd_colors(control_cord)")),
    //    (issignal ? "$pd_colors(signal_nlet)" : "$pd_colors(control_nlet)"));

    /* this is rather confusing, but the canvas_cnct_[xlet]_tag already
       includes the type and index concatenated to the end. */
164
    gui_vmess("gui_gobj_configure_io", "xsiii",
Jonathan Wilkes's avatar
Jonathan Wilkes committed
165 166
        x,
        type == 'o' ? x->gl_editor->canvas_cnct_outlet_tag :
167
            x->gl_editor->canvas_cnct_inlet_tag,
Jonathan Wilkes's avatar
Jonathan Wilkes committed
168 169 170
        isiemgui,
        issignal,
        1);
171
}
172

173
void canvas_getscroll (t_canvas *x) {
174
    //sys_vgui("pdtk_canvas_getscroll .x%lx.c\n",(long)x);
175
    gui_vmess("gui_canvas_get_scroll", "x", x);
176 177
}

Miller Puckette's avatar
Miller Puckette committed
178 179 180 181 182 183 184 185 186 187 188 189 190 191 192
/* ---------------- generic widget behavior ------------------------- */

void gobj_getrect(t_gobj *x, t_glist *glist, int *x1, int *y1,
    int *x2, int *y2)
{
    if (x->g_pd->c_wb && x->g_pd->c_wb->w_getrectfn)
        (*x->g_pd->c_wb->w_getrectfn)(x, glist, x1, y1, x2, y2);
}

void gobj_displace(t_gobj *x, t_glist *glist, int dx, int dy)
{
    if (x->g_pd->c_wb && x->g_pd->c_wb->w_displacefn)
        (*x->g_pd->c_wb->w_displacefn)(x, glist, dx, dy);
}

193 194 195 196 197 198
void gobj_displace_withtag(t_gobj *x, t_glist *glist, int dx, int dy)
{
    if (x->g_pd->c_wb && x->g_pd->c_wb->w_displacefnwtag)
        (*x->g_pd->c_wb->w_displacefnwtag)(x, glist, dx, dy);
}

Miller Puckette's avatar
Miller Puckette committed
199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216
void gobj_select(t_gobj *x, t_glist *glist, int state)
{
    if (x->g_pd->c_wb && x->g_pd->c_wb->w_selectfn)
        (*x->g_pd->c_wb->w_selectfn)(x, glist, state);
}

void gobj_activate(t_gobj *x, t_glist *glist, int state)
{
    if (x->g_pd->c_wb && x->g_pd->c_wb->w_activatefn)
        (*x->g_pd->c_wb->w_activatefn)(x, glist, state);
}

void gobj_delete(t_gobj *x, t_glist *glist)
{
    if (x->g_pd->c_wb && x->g_pd->c_wb->w_deletefn)
        (*x->g_pd->c_wb->w_deletefn)(x, glist);
}

217 218 219
int gobj_shouldvis(t_gobj *x, struct _glist *glist)
{
    t_object *ob;
220 221 222
    //fprintf(stderr,"shouldvis %d %d %d %d\n",
    //    glist->gl_havewindow, glist->gl_isgraph,
    //    glist->gl_goprect, glist->gl_owner != NULL);
223 224 225 226 227 228 229
        /* if our parent is a graph, and if that graph itself isn't
        visible, then we aren't either. */
    if (!glist->gl_havewindow && glist->gl_isgraph && glist->gl_owner
        && !gobj_shouldvis(&glist->gl_gobj, glist->gl_owner))
            return (0);
        /* if we're graphing-on-parent and the object falls outside the
        graph rectangle, don't draw it. */
230
    if (!glist->gl_havewindow && glist->gl_isgraph && glist->gl_goprect &&
231 232
        glist->gl_owner && (pd_class(&x->g_pd) != scalar_class) &&
        (pd_class(&x->g_pd) != garray_class))
233 234 235 236 237 238 239 240 241 242
    {
        /* if we're graphing-on-parent and the object falls outside the
        graph rectangle, don't draw it. */
        int x1, y1, x2, y2, gx1, gy1, gx2, gy2, m;
        gobj_getrect(&glist->gl_gobj, glist->gl_owner, &x1, &y1, &x2, &y2);
        if (x1 > x2)
            m = x1, x1 = x2, x2 = m;
        if (y1 > y2)
            m = y1, y1 = y2, y2 = m;
        gobj_getrect(x, glist, &gx1, &gy1, &gx2, &gy2);
243 244 245
        //fprintf(stderr,
        //    "gobj_shouldvis gop: %d %d %d %d || object %d %d %d %d\n",
        //    x1, x2, y1, y2, gx1, gx2, gy1, gy2);
246
        if (gx1 < x1 || gx1 > x2 || gx2 < x1 || gx2 > x2 ||
247 248 249
            gy1 < y1 || gy1 > y2 || gy2 < y1 || gy2 > y2)
        {
                //fprintf(stderr,"does not fit within boundaries\n");
250
                return (0);
251 252
        }
        if (glist==glist_getcanvas(glist))
253
            canvas_raise_all_cords(glist);
254 255 256 257 258 259
    }
    if (ob = pd_checkobject(&x->g_pd))
    {
        /* return true if the text box should be drawn.  We don't show text
        boxes inside graphs---except comments, if we're doing the new
        (goprect) style. */
260 261 262
        //fprintf(stderr,"pd_checkobject %lx\n", x);
        /*fprintf(stderr,"pd_checkobject %d %d %d %d %d %d %d\n",
            glist->gl_havewindow, 
263
            (ob->te_pd != canvas_class ? 1:0),
264 265 266
            (ob->te_pd->c_wb != &text_widgetbehavior ? 1:0),
            (ob->te_pd == canvas_class ? 1:0),
            ((t_glist *)ob)->gl_isgraph,
267
            glist->gl_goprect,
268 269 270 271 272 273 274 275 276
            (ob->te_type == T_TEXT ? 1:0));*/
        if (sys_k12_mode && x->g_pd == preset_hub_class)
        {
            //fprintf(stderr, "glist_select do not select invised preset_hub "
            //                "in K12 mode\n");
            t_preset_hub *ph = (t_preset_hub *)x;
            if (ph->ph_invis > 0) return(0);
        }
        /*fprintf(stderr,"checking %d\n", (glist->gl_havewindow ||
Ivica Bukvic's avatar
Ivica Bukvic committed
277 278 279 280
            (ob->te_pd != canvas_class &&
                ob->te_pd->c_wb != &text_widgetbehavior) ||
            (ob->te_pd == canvas_class && (((t_glist *)ob)->gl_isgraph)) ||
            (glist->gl_goprect && (ob->te_type == T_TEXT))));*/
281 282 283 284 285 286
        return (glist->gl_havewindow ||
            (ob->te_pd != canvas_class &&
                ob->te_pd->c_wb != &text_widgetbehavior) ||
            (ob->te_pd == canvas_class && (((t_glist *)ob)->gl_isgraph)) ||
            (glist->gl_goprect && (ob->te_type == T_TEXT)));
    }
287
    else {
288 289 290
        //fprintf(stderr,"else return 1\n");
        return (1);
    }
291 292
}

Miller Puckette's avatar
Miller Puckette committed
293 294
void gobj_vis(t_gobj *x, struct _glist *glist, int flag)
{
295
    if (do_not_redraw) return;
296
    if (x->g_pd->c_wb && x->g_pd->c_wb->w_visfn && gobj_shouldvis(x, glist))
Miller Puckette's avatar
Miller Puckette committed
297 298 299 300 301 302 303 304 305 306 307 308 309 310
        (*x->g_pd->c_wb->w_visfn)(x, glist, flag);
}

int gobj_click(t_gobj *x, struct _glist *glist,
    int xpix, int ypix, int shift, int alt, int dbl, int doit)
{
    if (x->g_pd->c_wb && x->g_pd->c_wb->w_clickfn)
        return ((*x->g_pd->c_wb->w_clickfn)(x,
            glist, xpix, ypix, shift, alt, dbl, doit));
    else return (0);
}

/* ------------------------ managing the selection ----------------- */

311
// direction -1 = lower, 1 = raise
312 313 314 315 316 317 318 319 320 321 322 323 324
int canvas_restore_original_position(t_glist *x, t_gobj *y, const char* objtag,
    int dir)
{
    /* we do this instead to save us costly redraw of the canvas */
    //fprintf(stderr,"canvas_restore_original_position %lx %lx %s %d\n",
    //    (t_int)x, (t_int)y, objtag, dir);
    int ret = 0;
    // we only do this if we are not embedded inside gop, otherwise
    // when gop is done redrawing we will get properly repositioned
    // by gop's call to restore original position
    if (pd_class(&y->g_pd) != canvas_class || ((t_glist *)y)->gl_owner == x)
    {
        t_object *ob = NULL;
325
        t_rtext *yrnxt = NULL;
326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350

        if (y->g_next)
        {
            ob = pd_checkobject(&y->g_next->g_pd);
        }
        if (ob)
        {
            yrnxt = glist_findrtext(x, (t_text *)&ob->ob_g);
        }
        if (y)
        {
            ob = pd_checkobject(&y->g_pd);
        }
        else
        {
            ret = 1;
        }
        if (ret != 1)
        {
            if (dir == -1)
            {
                if (x->gl_list == y)
                {
                    /* we get here if we are supposed to go all the way
                       to the bottom */
user's avatar
user committed
351
                    gui_vmess("gui_lower", "xs",
352
                        x, objtag ? objtag : "selected");
353 354 355 356
                }
                else if (yrnxt)
                {
                    /* lower into middle */
user's avatar
user committed
357 358
                    gui_vmess("gui_find_lowest_and_arrange", "xss",
                        x, rtext_gettag(yrnxt), objtag ? objtag : "selected");
359 360 361 362 363 364 365 366 367 368 369 370 371 372
                }
                else
                {
                    /* fall back to legacy redraw for objects
                       that are not patchable */
                    canvas_redraw(x);
                    ret = -1;
                }
            }
            else
            {
                if (yrnxt)
                {
                    /* raise into middle */
user's avatar
user committed
373 374
                    gui_vmess("gui_find_lowest_and_arrange", "xss",
                        x, rtext_gettag(yrnxt), objtag ? objtag : "selected");
375 376 377 378 379
                }
                else if (y->g_next == NULL)
                {
                    /* we get here if we are supposed to go all the way
                       to the top */
user's avatar
user committed
380
                    gui_vmess("gui_raise", "xs",
381
                        x, objtag ? objtag : "selected");
382 383 384 385 386 387 388 389 390 391 392 393
                }
                else
                {
                    /* fall back to legacy redraw for objects
                       that are not patchable */
                    canvas_redraw(x);
                    ret = -1;
                }
            }
        }
    }
    return(ret);
394 395
}

396 397
void canvas_check_nlet_highlights(t_glist *x)
{
398 399
    if (x->gl_editor->canvas_cnct_inlet_tag[0] != 0)
    {
400 401
        canvas_nlet_conf(x,'i');
        tooltip_erase(x);
402 403 404 405 406 407 408 409 410 411
        x->gl_editor->canvas_cnct_inlet_tag[0] = 0;
        //if (x->gl_editor->e_onmotion == MA_CONNECT) {
            x->gl_editor->e_onmotion = MA_NONE;
            canvas_setcursor(x, CURSOR_EDITMODE_NOTHING);
        //}
    }

    if (x->gl_editor->canvas_cnct_outlet_tag[0] != 0 &&
        x->gl_editor->e_onmotion != MA_CONNECT)
    {
412 413
        canvas_nlet_conf(x,'o');
        tooltip_erase(x);
414 415 416 417 418 419
        x->gl_editor->canvas_cnct_outlet_tag[0] = 0;
        //if (x->gl_editor->e_onmotion == MA_CONNECT) {
            x->gl_editor->e_onmotion = MA_NONE;
            canvas_setcursor(x, CURSOR_EDITMODE_NOTHING);
        //}            
    }
420 421
}

Miller Puckette's avatar
Miller Puckette committed
422 423 424
void glist_selectline(t_glist *x, t_outconnect *oc, int index1,
    int outno, int index2, int inno)
{
425
    char tagbuf[MAXPDSTRING];
Miller Puckette's avatar
Miller Puckette committed
426 427 428 429 430 431 432 433 434
    if (x->gl_editor)
    {
        glist_noselect(x);
        x->gl_editor->e_selectedline = 1;
        x->gl_editor->e_selectline_index1 = index1;
        x->gl_editor->e_selectline_outno = outno;
        x->gl_editor->e_selectline_index2 = index2;
        x->gl_editor->e_selectline_inno = inno;
        x->gl_editor->e_selectline_tag = oc;
Jonathan Wilkes's avatar
Jonathan Wilkes committed
435
        sprintf(tagbuf, "l%lx", (long unsigned int)oc);
436
        gui_vmess("gui_canvas_select_line", "xs", x, tagbuf);
437 438
        c_selection = x;
        canvas_draw_gop_resize_hooks(x);
439
    }
Miller Puckette's avatar
Miller Puckette committed
440 441 442 443
}

void glist_deselectline(t_glist *x)
{
444
    char tagbuf[MAXPDSTRING];
Miller Puckette's avatar
Miller Puckette committed
445 446
    if (x->gl_editor)
    {
Hans-Christoph Steiner's avatar
Hans-Christoph Steiner committed
447 448
        t_linetraverser t;
        t_outconnect *oc;
Miller Puckette's avatar
Miller Puckette committed
449
        x->gl_editor->e_selectedline = 0;
Hans-Christoph Steiner's avatar
Hans-Christoph Steiner committed
450 451 452 453
        linetraverser_start(&t, glist_getcanvas(x));
        do {
            oc = linetraverser_next(&t);
        } while (oc && oc != x->gl_editor->e_selectline_tag);
454
        canvas_draw_gop_resize_hooks(x);
455 456
        sprintf(tagbuf, "l%lx",
            (long unsigned int)x->gl_editor->e_selectline_tag);
457
        gui_vmess("gui_canvas_deselect_line", "xs", x, tagbuf);
Miller Puckette's avatar
Miller Puckette committed
458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474
    }    
}

int glist_isselected(t_glist *x, t_gobj *y)
{
    if (x->gl_editor)
    {
        t_selection *sel;
        for (sel = x->gl_editor->e_selection; sel; sel = sel->sel_next)
            if (sel->sel_what == y) return (1);
    }
    return (0);
}

    /* call this for unselected objects only */
void glist_select(t_glist *x, t_gobj *y)
{
475 476
    //fprintf(stderr,"glist_select c_selection=%lx x=%lx\n",
    //    (t_int)c_selection, (t_int)x);
Miller Puckette's avatar
Miller Puckette committed
477 478
    if (x->gl_editor)
    {
479
        //fprintf(stderr,"have editor\n");
480
#ifdef PDL2ORK
481 482 483 484 485 486 487 488 489
        // exception: if we are in K12 mode and preset_hub is hidden,
        // do not select it
        if (sys_k12_mode && y->g_pd == preset_hub_class)
        {
            //fprintf(stderr,"glist_select do not select invised preset_hub
            //in K12 mode\n");
            t_preset_hub *ph = (t_preset_hub *)y;
            if (ph->ph_invis > 0) return;
        }
490
#endif
491 492 493 494 495
        if (c_selection && c_selection != x)
        {
            //fprintf(stderr,"deselecting\n");
            glist_noselect(c_selection);
        }
Miller Puckette's avatar
Miller Puckette committed
496
        t_selection *sel = (t_selection *)getbytes(sizeof(*sel));
497 498 499
        if (x->gl_editor->e_selectedline)
        {
            //fprintf(stderr,"deselecting line\n");
Miller Puckette's avatar
Miller Puckette committed
500
            glist_deselectline(x);
501
        }
Miller Puckette's avatar
Miller Puckette committed
502 503 504 505 506 507
            /* LATER #ifdef out the following check */
        if (glist_isselected(x, y)) bug("glist_select");
        sel->sel_next = x->gl_editor->e_selection;
        sel->sel_what = y;
        x->gl_editor->e_selection = sel;
        gobj_select(y, x, 1);
508
        c_selection = x;
509

510 511
        /* Not sure if this is still needed */
        //sys_vgui("pdtk_canvas_update_edit_menu .x%lx 1\n", x);
512
        canvas_draw_gop_resize_hooks(x);
Miller Puckette's avatar
Miller Puckette committed
513
    }
514
    //fprintf(stderr,"select done\n");
Miller Puckette's avatar
Miller Puckette committed
515 516
}

Miller Puckette's avatar
Miller Puckette committed
517 518 519 520 521 522 523 524 525 526 527 528 529 530
    /* recursively deselect everything in a gobj "g", if it happens to be
    a glist, in preparation for deselecting g itself in glist_dselect() */
static void glist_checkanddeselectall(t_glist *gl, t_gobj *g)
{
    t_glist *gl2;
    t_gobj *g2;
    if (pd_class(&g->g_pd) != canvas_class)
        return;
    gl2 = (t_glist *)g;
    for (g2 = gl2->gl_list; g2; g2 = g2->g_next)
        glist_checkanddeselectall(gl2, g2);
    glist_noselect(gl2);
}

531 532
int glist_getindex(t_glist *x, t_gobj *y);

Miller Puckette's avatar
Miller Puckette committed
533 534 535
    /* call this for selected objects only */
void glist_deselect(t_glist *x, t_gobj *y)
{
536
    //fprintf(stderr, "deselect\n");
Miller Puckette's avatar
Miller Puckette committed
537
    int fixdsp = 0;
Mathieu L Bouchard's avatar
Mathieu L Bouchard committed
538
    //static int reenter = 0;
Miller Puckette's avatar
Miller Puckette committed
539
    /* if (reenter) return; */
Mathieu L Bouchard's avatar
Mathieu L Bouchard committed
540
    //reenter = 1;
Miller Puckette's avatar
Miller Puckette committed
541 542 543
    if (x->gl_editor)
    {
        t_selection *sel, *sel2;
544
        t_rtext *fuddy = 0;
Miller Puckette's avatar
Miller Puckette committed
545 546
        t_rtext *z = 0;
        if (!glist_isselected(x, y)) bug("glist_deselect");
547 548 549 550
        // following information is for undo_apply
        // we need info on the old object's position
        // in the gl_list so that we can restore it
        int pos = glist_getindex(glist_getcanvas(x), y);
Miller Puckette's avatar
Miller Puckette committed
551 552
        if (x->gl_editor->e_textedfor)
        {
553
            //fprintf(stderr, "e_textedfor\n");
554
            fuddy = glist_findrtext(x, (t_text *)y);
Miller Puckette's avatar
Miller Puckette committed
555 556
            if (x->gl_editor->e_textedfor == fuddy)
            {
557
                //fprintf(stderr, "e_textedfor == fuddy\n");
Miller Puckette's avatar
Miller Puckette committed
558 559
                if (x->gl_editor->e_textdirty)
                {
560
                    //fprintf(stderr, "textdirty yes\n");
Miller Puckette's avatar
Miller Puckette committed
561 562
                    z = fuddy;
                    canvas_stowconnections(glist_getcanvas(x));
Miller Puckette's avatar
Miller Puckette committed
563
                    glist_checkanddeselectall(x, y);
Miller Puckette's avatar
Miller Puckette committed
564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589
                }
                gobj_activate(y, x, 0);
            }
            if (zgetfn(&y->g_pd, gensym("dsp")))
                fixdsp = canvas_suspend_dsp();
        }
        if ((sel = x->gl_editor->e_selection)->sel_what == y)
        {
            x->gl_editor->e_selection = x->gl_editor->e_selection->sel_next;
            gobj_select(sel->sel_what, x, 0);
            freebytes(sel, sizeof(*sel));
        }
        else
        {
            for (sel = x->gl_editor->e_selection; sel2 = sel->sel_next;
                sel = sel2)
            {
                if (sel2->sel_what == y)
                {
                    sel->sel_next = sel2->sel_next;
                    gobj_select(sel2->sel_what, x, 0);
                    freebytes(sel2, sizeof(*sel2));
                    break;
                }
            }
        }
590 591 592 593 594 595 596
        // if we have an invalid object even if the text hasn't changed,
        // we should still try to recreate it
        if (!z && fuddy && pd_class(&((t_text *)y)->te_pd) == text_class &&
            ((t_text *)y)->te_type != T_TEXT)
        {
            z = fuddy;
        }
597

Miller Puckette's avatar
Miller Puckette committed
598 599
        if (z)
        {
600
            //fprintf(stderr, "setto\n");
Miller Puckette's avatar
Miller Puckette committed
601 602 603 604
            char *buf;
            int bufsize;

            rtext_gettext(z, &buf, &bufsize);
605
            text_setto((t_text *)y, x, buf, bufsize, pos);
Miller Puckette's avatar
Miller Puckette committed
606 607 608 609 610
            canvas_fixlinesfor(glist_getcanvas(x), (t_text *)y);
            x->gl_editor->e_textedfor = 0;
        }
        if (fixdsp)
            canvas_resume_dsp(1);
611 612 613
        /* Not sure if this is still needed */
        //if (!x->gl_editor->e_selection)
        //    sys_vgui("pdtk_canvas_update_edit_menu .x%lx 0\n", x);
614
        canvas_draw_gop_resize_hooks(x);
Miller Puckette's avatar
Miller Puckette committed
615
    }
Mathieu L Bouchard's avatar
Mathieu L Bouchard committed
616
    //reenter = 0;
Miller Puckette's avatar
Miller Puckette committed
617 618 619 620
}

void glist_noselect(t_glist *x)
{
621
    //fprintf(stderr,"glist_noselect\n");
Miller Puckette's avatar
Miller Puckette committed
622 623
    if (x->gl_editor)
    {
624 625 626 627 628
        if (x->gl_editor->e_selection)
        {
            while (x->gl_editor->e_selection)
                glist_deselect(x, x->gl_editor->e_selection->sel_what);
        }
Miller Puckette's avatar
Miller Puckette committed
629 630
        if (x->gl_editor->e_selectedline)
            glist_deselectline(x);
631 632 633
        if (c_selection == x)
            c_selection = NULL;
        canvas_draw_gop_resize_hooks(x);
Miller Puckette's avatar
Miller Puckette committed
634 635 636 637 638 639 640 641 642 643 644
    }
}

void glist_selectall(t_glist *x)
{
    if (x->gl_editor)
    {
        glist_noselect(x);
        if (x->gl_list)
        {
            t_gobj *y = x->gl_list;
645
#ifdef PDL2ORK
646 647 648 649 650 651 652 653 654
            // exception: if we are in K12 mode and preset_hub is hidden,
            // do not select it
            if (sys_k12_mode && y->g_pd == preset_hub_class)
            {
                //fprintf(stderr,"glist_select do not select "
                //               "invised preset_hub in K12 mode\n");
                t_preset_hub *ph = (t_preset_hub *)y;
                if (ph->ph_invis > 0) y = y->g_next;
            }
655
#endif
656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674
            if (y)
            {
                t_selection *sel = (t_selection *)getbytes(sizeof(*sel));
                x->gl_editor->e_selection = sel;
                sel->sel_what = y;
                gobj_select(y, x, 1);
                while (y = y->g_next)
                {
                    t_selection *sel2 = (t_selection *)getbytes(sizeof(*sel2));
                    sel->sel_next = sel2;
                    sel = sel2;
                    sel->sel_what = y;
                    gobj_select(y, x, 1);
                }
                sel->sel_next = 0;
                c_selection = x;
            }
        }
        canvas_draw_gop_resize_hooks(x);
Miller Puckette's avatar
Miller Puckette committed
675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703
    }
}

    /* get the index of a gobj in a glist.  If y is zero, return the
    total number of objects. */
int glist_getindex(t_glist *x, t_gobj *y)
{
    t_gobj *y2;
    int indx;

    for (y2 = x->gl_list, indx = 0; y2 && y2 != y; y2 = y2->g_next)
        indx++;
    return (indx);
}

    /* get the index of the object, among selected items, if "selected"
    is set; otherwise, among unselected ones.  If y is zero, just
    counts the selected or unselected objects. */
int glist_selectionindex(t_glist *x, t_gobj *y, int selected)
{
    t_gobj *y2;
    int indx;

    for (y2 = x->gl_list, indx = 0; y2 && y2 != y; y2 = y2->g_next)
        if (selected == glist_isselected(x, y2))
            indx++;
    return (indx);
}

704
t_gobj *glist_nth(t_glist *x, int n)
Miller Puckette's avatar
Miller Puckette committed
705 706 707 708 709 710 711 712 713 714 715 716 717 718 719
{
    t_gobj *y;
    int indx;
    for (y = x->gl_list, indx = 0; y; y = y->g_next, indx++)
        if (indx == n)
            return (y);
    return (0);
}

/* ------------------- support for undo/redo  -------------------------- */

static t_undofn canvas_undo_fn;         /* current undo function if any */
static int canvas_undo_whatnext;        /* whether we can now UNDO or REDO */
static void *canvas_undo_buf;           /* data private to the undo function */
static t_canvas *canvas_undo_canvas;    /* which canvas we can undo on */
720
const char *canvas_undo_name;
Miller Puckette's avatar
Miller Puckette committed
721 722 723 724

void canvas_setundo(t_canvas *x, t_undofn undofn, void *buf,
    const char *name)
{
725
    //fprintf(stderr,"canvas_setundo %s\n", name);
726

Miller Puckette's avatar
Miller Puckette committed
727 728 729 730 731
    int hadone = 0;
        /* blow away the old undo information.  In one special case the
        old undo info is re-used; if so we shouldn't free it here. */
    if (canvas_undo_fn && canvas_undo_buf && (buf != canvas_undo_buf))
    {
732
        //fprintf(stderr,"hadone canvas_setundo\n");
Miller Puckette's avatar
Miller Puckette committed
733 734 735 736 737 738 739 740
        (*canvas_undo_fn)(canvas_undo_canvas, canvas_undo_buf, UNDO_FREE);
        hadone = 1;
    }
    canvas_undo_canvas = x;
    canvas_undo_fn = undofn;
    canvas_undo_buf = buf;
    canvas_undo_whatnext = UNDO_UNDO;
    canvas_undo_name = name;
741
    //if (x && glist_isvisible(x) && glist_istoplevel(x))
742
    if (x)
user's avatar
user committed
743
    {
744
        // enable undo in menu
user's avatar
user committed
745 746 747
        gui_vmess("gui_undo_menu", "xss",
            x, name, "no");
    }
Miller Puckette's avatar
Miller Puckette committed
748
    else if (hadone)
user's avatar
user committed
749 750 751 752 753
    {
        /* can't figure out what this does... */
        gui_vmess("gui_undo_menu ", "xss",
            "nobody", "no", "no");
    }
Miller Puckette's avatar
Miller Puckette committed
754 755 756 757 758 759 760 761 762 763
}

    /* clear undo if it happens to be for the canvas x.
     (but if x is 0, clear it regardless of who owns it.) */
void canvas_noundo(t_canvas *x)
{
    if (!x || (x == canvas_undo_canvas))
        canvas_setundo(0, 0, 0, "foo");
}

764
/* ------- specific undo methods: 1. connect -------- */
Miller Puckette's avatar
Miller Puckette committed
765 766 767 768 769 770 771 772 773

typedef struct _undo_connect    
{
    int u_index1;
    int u_outletno;
    int u_index2;
    int u_inletno;
} t_undo_connect;

774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797
void *canvas_undo_set_disconnect(t_canvas *x,
    int index1, int outno, int index2, int inno);

/* connect just calls disconnect actions backward... (see below) */
void *canvas_undo_set_connect(t_canvas *x,
    int index1, int outno, int index2, int inno)
{
    return (canvas_undo_set_disconnect(x, index1, outno, index2, inno));
}

void canvas_undo_connect(t_canvas *x, void *z, int action)
{
    int myaction;
    if (action == UNDO_UNDO)
        myaction = UNDO_REDO;
    else if (action == UNDO_REDO)
        myaction = UNDO_UNDO;
    else myaction = action;
    canvas_undo_disconnect(x, z, myaction);
}

/* ------- specific undo methods: 2. disconnect -------- */

void *canvas_undo_set_disconnect(t_canvas *x,
Miller Puckette's avatar
Miller Puckette committed
798 799 800 801 802 803 804 805 806 807 808
    int index1, int outno, int index2, int inno)
{
    t_undo_connect *buf = (t_undo_connect *)getbytes(sizeof(*buf));
    buf->u_index1 = index1;
    buf->u_outletno = outno;
    buf->u_index2 = index2;
    buf->u_inletno = inno;
    return (buf);
}

void canvas_disconnect(t_canvas *x,
809
    t_float index1, t_float outno, t_float index2, t_float inno)
Miller Puckette's avatar
Miller Puckette committed
810
{
811
    //fprintf(stderr,"canvas_disconnect\n");
812
    char tagbuf[MAXPDSTRING];
Miller Puckette's avatar
Miller Puckette committed
813 814 815 816 817 818 819 820 821 822
    t_linetraverser t;
    t_outconnect *oc;
    linetraverser_start(&t, x);
    while (oc = linetraverser_next(&t))
    {
        int srcno = canvas_getindex(x, &t.tr_ob->ob_g);
        int sinkno = canvas_getindex(x, &t.tr_ob2->ob_g);
        if (srcno == index1 && t.tr_outno == outno &&
            sinkno == index2 && t.tr_inno == inno)
        {
Jonathan Wilkes's avatar
Jonathan Wilkes committed
823
            sprintf(tagbuf, "l%lx", (long unsigned int)oc);
824
            gui_vmess("gui_canvas_delete_line", "xs",
user's avatar
user committed
825
                x, tagbuf);
826
            // jsarlo
827 828 829 830 831
            if(x->gl_editor && x->gl_editor->gl_magic_glass)
            {
                magicGlass_unbind(x->gl_editor->gl_magic_glass);
                magicGlass_hide(x->gl_editor->gl_magic_glass);
            }
832
            // end jsarlo
Miller Puckette's avatar
Miller Puckette committed
833
            obj_disconnect(t.tr_ob, t.tr_outno, t.tr_ob2, t.tr_inno);
834

835 836 837
            /* if we are dealing with a preset_node, make sure to also
               disconnect its invisible return node. We trust here that
               the object has been already connected to a valid object
838 839
               so we blindly disconnect first outlet with the first inlet */
            if (pd_class(&t.tr_ob->ob_g.g_pd) == preset_node_class && t.tr_outno == 0)
840 841 842 843
            {
                //fprintf(stderr,"gotta disconnect hidden one too...\n");
                obj_disconnect(t.tr_ob2, 0, t.tr_ob, 0);
            }
Miller Puckette's avatar
Miller Puckette committed
844 845 846 847 848
            break;
        }
    }
}

849
void canvas_undo_disconnect(t_canvas *x, void *z, int action)
Miller Puckette's avatar
Miller Puckette committed
850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865
{
    t_undo_connect *buf = z;
    if (action == UNDO_UNDO)
    {
        canvas_connect(x, buf->u_index1, buf->u_outletno,
            buf->u_index2, buf->u_inletno);
    }
    else if (action == UNDO_REDO)
    {
        canvas_disconnect(x, buf->u_index1, buf->u_outletno,
            buf->u_index2, buf->u_inletno);
    }
    else if (action == UNDO_FREE)
        t_freebytes(buf, sizeof(*buf));
}

866
/* ---------- ... 3. cut, clear, and typing into objects: -------- */
Miller Puckette's avatar
Miller Puckette committed
867 868 869

#define UCUT_CUT 1          /* operation was a cut */
#define UCUT_CLEAR 2        /* .. a clear */
870 871 872

// following action is not needed any more LATER remove any signs of UCUT_TEXT
// since recreate takes care of this in a more elegant way
Miller Puckette's avatar
Miller Puckette committed
873 874 875 876 877 878 879 880
#define UCUT_TEXT 3         /* text typed into a box */

typedef struct _undo_cut        
{
    t_binbuf *u_objectbuf;      /* the object cleared or typed into */
    t_binbuf *u_reconnectbuf;   /* connections into and out of object */
    t_binbuf *u_redotextbuf;    /* buffer to paste back for redo if TEXT */
    int u_mode;                 /* from flags above */
881 882 883 884
    int n_obj;                  /* number of selected objects to be cut */
    int p_a[1];    /* array of original glist positions of selected objects.
                      At least one object is selected, we dynamically resize
                      it later */
Miller Puckette's avatar
Miller Puckette committed
885 886
} t_undo_cut;

887
void *canvas_undo_set_cut(t_canvas *x, int mode)
Miller Puckette's avatar
Miller Puckette committed
888 889 890 891 892 893
{
    t_undo_cut *buf;
    t_gobj *y;
    t_linetraverser t;
    t_outconnect *oc;
    int nnotsel= glist_selectionindex(x, 0, 0);
894 895 896 897
    int nsel = glist_selectionindex(x, 0, 1);
    buf = (t_undo_cut *)getbytes(sizeof(*buf) +
        sizeof(buf->p_a[0]) * (nsel - 1));
    buf->n_obj = nsel;
Miller Puckette's avatar
Miller Puckette committed
898 899 900 901 902 903
    buf->u_mode = mode;
    buf->u_redotextbuf = 0;

        /* store connections into/out of the selection */
    buf->u_reconnectbuf = binbuf_new();
    linetraverser_start(&t, x);
904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921
    //if (linetraverser_next(&t)) {
    while (oc = linetraverser_next(&t))
    {
        int issel1 = glist_isselected(x, &t.tr_ob->ob_g);
        int issel2 = glist_isselected(x, &t.tr_ob2->ob_g);
        if (issel1 != issel2)
        {
            binbuf_addv(buf->u_reconnectbuf, "ssiiii;",
                gensym("#X"), gensym("connect"),
                (issel1 ? nnotsel : 0)
                    + glist_selectionindex(x, &t.tr_ob->ob_g, issel1),
                t.tr_outno,
                (issel2 ? nnotsel : 0) +
                    glist_selectionindex(x, &t.tr_ob2->ob_g, issel2),
                t.tr_inno);
        }
    }
    //}
Miller Puckette's avatar
Miller Puckette committed
922 923 924 925 926 927
    if (mode == UCUT_TEXT)
    {
        buf->u_objectbuf = canvas_docopy(x);
    }
    else if (mode == UCUT_CUT)
    {
928
        buf->u_objectbuf = canvas_docopy(x);
Miller Puckette's avatar
Miller Puckette committed
929 930 931 932 933
    }
    else if (mode == UCUT_CLEAR)
    {
        buf->u_objectbuf = canvas_docopy(x);
    }
934

935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953
    //instantiate num_obj and fill array of positions of selected objects
    if (mode == UCUT_CUT || mode == UCUT_CLEAR)
    {
        int i = 0, j = 0;
        if (x->gl_list)
        {
            for (y = x->gl_list; y; y = y->g_next)
            {
                if (glist_isselected(x, y))
                {
                    buf->p_a[i] = j;
                    i++;
                }
                j++;
            }
        }
        //for (i = 0; i < buf->n_obj; i++)
        //    fprintf(stderr,"%d position = %d\n", i, buf->p_a[i]);
    }
954

Miller Puckette's avatar
Miller Puckette committed
955 956 957
    return (buf);
}

958
void canvas_undo_cut(t_canvas *x, void *z, int action)
Miller Puckette's avatar
Miller Puckette committed
959
{
960 961
    //fprintf(stderr, "canvas_undo_cut canvas=%d buf=%d action=%d\n",
    //    (int)x, (int)z, action);
Miller Puckette's avatar
Miller Puckette committed
962 963 964 965
    t_undo_cut *buf = z;
    int mode = buf->u_mode;
    if (action == UNDO_UNDO)
    {
966 967 968 969 970
        do_not_redraw += 1;
        //fprintf(stderr,"UNDO_UNDO\n");
        if (mode == UCUT_CUT)
        {
            //fprintf(stderr, "UCUT_CUT\n");
971
            canvas_dopaste(x, buf->u_objectbuf);
972 973 974 975
        }
        else if (mode == UCUT_CLEAR)
        {
            //fprintf(stderr, "UCUT_CLEAR\n");
Miller Puckette's avatar
Miller Puckette committed
976
            canvas_dopaste(x, buf->u_objectbuf);
977
        }
Miller Puckette's avatar
Miller Puckette committed
978 979
        else if (mode == UCUT_TEXT)
        {
980
            //fprintf(stderr, "UCUT_TEXT\n");
Miller Puckette's avatar
Miller Puckette committed
981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000
            t_gobj *y1, *y2;
            glist_noselect(x);
            for (y1 = x->gl_list; y2 = y1->g_next; y1 = y2)
                ;
            if (y1)
            {
                if (!buf->u_redotextbuf)
                {
                    glist_noselect(x);
                    glist_select(x, y1);
                    buf->u_redotextbuf = canvas_docopy(x);
                    glist_noselect(x);
                }
                glist_delete(x, y1);
            }
            canvas_dopaste(x, buf->u_objectbuf);
        }
        pd_bind(&x->gl_pd, gensym("#X"));
        binbuf_eval(buf->u_reconnectbuf, 0, 0, 0);
        pd_unbind(&x->gl_pd, gensym("#X"));
1001

1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069
        //now reposition objects to their original locations
        if (mode == UCUT_CUT || mode == UCUT_CLEAR)
        {
            //fprintf(stderr,"reordering\n");
            int i = 0;

            /* location of the first newly pasted object */
            int paste_pos = glist_getindex(x,0) - buf->n_obj;
            //fprintf(stderr,"paste_pos %d\n", paste_pos);
            t_gobj *y_prev, *y, *y_next;
            for (i = 0; i < buf->n_obj; i++)
            {
                //first check if we are in the same position already
                if (paste_pos+i != buf->p_a[i])
                {
                    //fprintf(stderr,"not in the right place\n");
                    y_prev = glist_nth(x, paste_pos-1+i);
                    y = glist_nth(x, paste_pos+i);
                    y_next = glist_nth(x, paste_pos+1+i);
                    //if the object is supposed to be first in the gl_list
                    if (buf->p_a[i] == 0)
                    {
                        if (y_prev && y_next)
                        {
                            y_prev->g_next = y_next;
                        }
                        else if (y_prev && !y_next)
                            y_prev->g_next = NULL;
                        //now put the moved object at the beginning of the cue
                        y->g_next = glist_nth(x, 0);
                        x->gl_list = y;
                        //LATER when objects are properly tagged lower y here
                    }
                    //if the object is supposed to be at the current end
                    //of gl_list-- can this ever happen???
                    /*else if (!glist_nth(x,buf->p_a[i])) {

                    }*/
                    //if the object is supposed to be in the middle of gl_list
                    else {
                        if (y_prev && y_next)
                        {
                            y_prev->g_next = y_next;
                        }
                        else if (y_prev && !y_next)
                        {
                            y_prev->g_next = NULL;
                        }
                        //now put the moved object in its right place
                        y_prev = glist_nth(x, buf->p_a[i]-1);
                        y_next = glist_nth(x, buf->p_a[i]);

                        y_prev->g_next = y;
                        y->g_next = y_next;
                        //LATER when objects are properly tagged lower y here
                    }
                }
            }
            do_not_redraw -= 1;
            //LATER disable redrawing here
            canvas_redraw(x);
            if (x->gl_owner && glist_isvisible(x->gl_owner))
            {
                gobj_vis((t_gobj *)x, x->gl_owner, 0);
                gobj_vis((t_gobj *)x, x->gl_owner, 1);
            }
            glob_preset_node_list_check_loc_and_update();
        }
Miller Puckette's avatar
Miller Puckette committed
1070 1071 1072
    }
    else if (action == UNDO_REDO)
    {
1073 1074 1075 1076 1077 1078 1079 1080 1081 1082
        //fprintf(stderr,"UNDO_REDO\n");
        if (mode == UCUT_CUT || mode == UCUT_CLEAR)
        {
            //we can't just blindly do clear here when the user may have
            //unselected things between undo and redo, so first let's select
            //the right stuff
            glist_noselect(x);
            int i = 0;
            for (i = 0; i < buf->n_obj; i++)
                glist_select(x, glist_nth(x, buf->p_a[i]));
Miller Puckette's avatar
Miller Puckette committed
1083
            canvas_doclear(x);
1084 1085
            glob_preset_node_list_check_loc_and_update();
        }
Miller Puckette's avatar
Miller Puckette committed
1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100
        else if (mode == UCUT_TEXT)
        {
            t_gobj *y1, *y2;
            for (y1 = x->gl_list; y2 = y1->g_next; y1 = y2)
                ;
            if (y1)
                glist_delete(x, y1);
            canvas_dopaste(x, buf->u_redotextbuf);
            pd_bind(&x->gl_pd, gensym("#X"));
            binbuf_eval(buf->u_reconnectbuf, 0, 0, 0);
            pd_unbind(&x->gl_pd, gensym("#X"));
        }
    }
    else if (action == UNDO_FREE)
    {
1101
        //fprintf(stderr,"UNDO_FREE\n");
Miller Puckette's avatar
Miller Puckette committed
1102 1103 1104 1105 1106 1107
        if (buf->u_objectbuf)
            binbuf_free(buf->u_objectbuf);
        if (buf->u_reconnectbuf)
            binbuf_free(buf->u_reconnectbuf);
        if (buf->u_redotextbuf)
            binbuf_free(buf->u_redotextbuf);
1108 1109 1110 1111 1112
        if (buf != NULL)
        {
            t_freebytes(buf, sizeof(*buf) +
                sizeof(buf->p_a[0]) * (buf->n_obj-1));
        }
Miller Puckette's avatar
Miller Puckette committed
1113 1114 1115
    }
}

1116
/* --------- 4. motion, including "tidy up" and stretching ----------- */
Miller Puckette's avatar
Miller Puckette committed
1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132

typedef struct _undo_move_elem  
{
    int e_index;
    int e_xpix;
    int e_ypix;
} t_undo_move_elem;

typedef struct _undo_move       
{
    t_undo_move_elem *u_vec;
    int u_n;
} t_undo_move;

static int canvas_undo_already_set_move;

1133
void *canvas_undo_set_move(t_canvas *x, int selected)
Miller Puckette's avatar
Miller Puckette committed
1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158