g_editor.c 263 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",
165 166
        x,
        type == 'o' ? x->gl_editor->canvas_cnct_outlet_tag :
167
            x->gl_editor->canvas_cnct_inlet_tag,
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 325 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 351 352 353 354
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;
        t_rtext *yrnxt = NULL, *yr = NULL;

        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 (ob)
        {
            yr = glist_findrtext(x, (t_text *)&ob->ob_g);
        }
        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
355
                    gui_vmess("gui_lower", "xs",
356
                        x, objtag ? objtag : "selected");
357 358 359 360
                }
                else if (yrnxt)
                {
                    /* lower into middle */
user's avatar
user committed
361 362
                    gui_vmess("gui_find_lowest_and_arrange", "xss",
                        x, rtext_gettag(yrnxt), objtag ? objtag : "selected");
363 364 365 366 367 368 369 370 371 372 373 374 375 376
                }
                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
377 378
                    gui_vmess("gui_find_lowest_and_arrange", "xss",
                        x, rtext_gettag(yrnxt), objtag ? objtag : "selected");
379 380 381 382 383
                }
                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
384
                    gui_vmess("gui_raise", "xs",
385
                        x, objtag ? objtag : "selected");
386 387 388 389 390 391 392 393 394 395 396 397
                }
                else
                {
                    /* fall back to legacy redraw for objects
                       that are not patchable */
                    canvas_redraw(x);
                    ret = -1;
                }
            }
        }
    }
    return(ret);
398 399
}

400 401
void canvas_check_nlet_highlights(t_glist *x)
{
402 403
    if (x->gl_editor->canvas_cnct_inlet_tag[0] != 0)
    {
404 405
        canvas_nlet_conf(x,'i');
        tooltip_erase(x);
406 407 408 409 410 411 412 413 414 415
        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)
    {
416 417
        canvas_nlet_conf(x,'o');
        tooltip_erase(x);
418 419 420 421 422 423
        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);
        //}            
    }
424 425
}

Miller Puckette's avatar
Miller Puckette committed
426 427 428
void glist_selectline(t_glist *x, t_outconnect *oc, int index1,
    int outno, int index2, int inno)
{
429
    char tagbuf[MAXPDSTRING];
Miller Puckette's avatar
Miller Puckette committed
430 431 432 433 434 435 436 437 438
    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
439
        sprintf(tagbuf, "l%lx", (long unsigned int)oc);
440
        gui_vmess("gui_canvas_select_line", "xs", x, tagbuf);
441 442
        c_selection = x;
        canvas_draw_gop_resize_hooks(x);
443
    }
Miller Puckette's avatar
Miller Puckette committed
444 445 446 447
}

void glist_deselectline(t_glist *x)
{
448
    char tagbuf[MAXPDSTRING];
Miller Puckette's avatar
Miller Puckette committed
449 450
    if (x->gl_editor)
    {
Hans-Christoph Steiner's avatar
Hans-Christoph Steiner committed
451 452
        t_linetraverser t;
        t_outconnect *oc;
Miller Puckette's avatar
Miller Puckette committed
453
        x->gl_editor->e_selectedline = 0;
Hans-Christoph Steiner's avatar
Hans-Christoph Steiner committed
454 455 456 457 458 459 460 461 462
        linetraverser_start(&t, glist_getcanvas(x));
        do {
            oc = linetraverser_next(&t);
        } while (oc && oc != x->gl_editor->e_selectline_tag);
        int issignal;
        if(outlet_getsymbol(t.tr_outlet) == &s_signal)
            issignal = 1;
        else
            issignal = 0;
463
        canvas_draw_gop_resize_hooks(x);
Jonathan Wilkes's avatar
Jonathan Wilkes committed
464
        sprintf(tagbuf, "l%lx", (long unsigned int)x->gl_editor->e_selectline_tag);
465
        gui_vmess("gui_canvas_deselect_line", "xs", x, tagbuf);
Miller Puckette's avatar
Miller Puckette committed
466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482
    }    
}

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)
{
483 484
    //fprintf(stderr,"glist_select c_selection=%lx x=%lx\n",
    //    (t_int)c_selection, (t_int)x);
Miller Puckette's avatar
Miller Puckette committed
485 486
    if (x->gl_editor)
    {
487
        //fprintf(stderr,"have editor\n");
488
#ifdef PDL2ORK
489 490 491 492 493 494 495 496 497
        // 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;
        }
498
#endif
499 500 501 502 503
        if (c_selection && c_selection != x)
        {
            //fprintf(stderr,"deselecting\n");
            glist_noselect(c_selection);
        }
Miller Puckette's avatar
Miller Puckette committed
504
        t_selection *sel = (t_selection *)getbytes(sizeof(*sel));
505 506 507
        if (x->gl_editor->e_selectedline)
        {
            //fprintf(stderr,"deselecting line\n");
Miller Puckette's avatar
Miller Puckette committed
508
            glist_deselectline(x);
509
        }
Miller Puckette's avatar
Miller Puckette committed
510 511 512 513 514 515
            /* 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);
516
        c_selection = x;
517

518 519
        /* Not sure if this is still needed */
        //sys_vgui("pdtk_canvas_update_edit_menu .x%lx 1\n", x);
520
        canvas_draw_gop_resize_hooks(x);
Miller Puckette's avatar
Miller Puckette committed
521
    }
522
    //fprintf(stderr,"select done\n");
Miller Puckette's avatar
Miller Puckette committed
523 524
}

Miller Puckette's avatar
Miller Puckette committed
525 526 527 528 529 530 531 532 533 534 535 536 537 538
    /* 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);
}

539 540
int glist_getindex(t_glist *x, t_gobj *y);

Miller Puckette's avatar
Miller Puckette committed
541 542 543
    /* call this for selected objects only */
void glist_deselect(t_glist *x, t_gobj *y)
{
544
    //fprintf(stderr, "deselect\n");
Miller Puckette's avatar
Miller Puckette committed
545
    int fixdsp = 0;
Mathieu L Bouchard's avatar
Mathieu L Bouchard committed
546
    //static int reenter = 0;
Miller Puckette's avatar
Miller Puckette committed
547
    /* if (reenter) return; */
Mathieu L Bouchard's avatar
Mathieu L Bouchard committed
548
    //reenter = 1;
Miller Puckette's avatar
Miller Puckette committed
549 550 551
    if (x->gl_editor)
    {
        t_selection *sel, *sel2;
552
        t_rtext *fuddy = 0;
Miller Puckette's avatar
Miller Puckette committed
553 554
        t_rtext *z = 0;
        if (!glist_isselected(x, y)) bug("glist_deselect");
555 556 557 558
        // 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
559 560
        if (x->gl_editor->e_textedfor)
        {
561
            //fprintf(stderr, "e_textedfor\n");
562
            fuddy = glist_findrtext(x, (t_text *)y);
Miller Puckette's avatar
Miller Puckette committed
563 564
            if (x->gl_editor->e_textedfor == fuddy)
            {
565
                //fprintf(stderr, "e_textedfor == fuddy\n");
Miller Puckette's avatar
Miller Puckette committed
566 567
                if (x->gl_editor->e_textdirty)
                {
568
                    //fprintf(stderr, "textdirty yes\n");
Miller Puckette's avatar
Miller Puckette committed
569 570
                    z = fuddy;
                    canvas_stowconnections(glist_getcanvas(x));
Miller Puckette's avatar
Miller Puckette committed
571
                    glist_checkanddeselectall(x, y);
Miller Puckette's avatar
Miller Puckette committed
572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597
                }
                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;
                }
            }
        }
598 599 600 601 602 603 604
        // 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;
        }
605

Miller Puckette's avatar
Miller Puckette committed
606 607
        if (z)
        {
608
            //fprintf(stderr, "setto\n");
Miller Puckette's avatar
Miller Puckette committed
609 610 611 612
            char *buf;
            int bufsize;

            rtext_gettext(z, &buf, &bufsize);
613
            text_setto((t_text *)y, x, buf, bufsize, pos);
Miller Puckette's avatar
Miller Puckette committed
614 615 616 617 618
            canvas_fixlinesfor(glist_getcanvas(x), (t_text *)y);
            x->gl_editor->e_textedfor = 0;
        }
        if (fixdsp)
            canvas_resume_dsp(1);
619 620 621
        /* 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);
622
        canvas_draw_gop_resize_hooks(x);
Miller Puckette's avatar
Miller Puckette committed
623
    }
Mathieu L Bouchard's avatar
Mathieu L Bouchard committed
624
    //reenter = 0;
Miller Puckette's avatar
Miller Puckette committed
625 626 627 628
}

void glist_noselect(t_glist *x)
{
629
    //fprintf(stderr,"glist_noselect\n");
Miller Puckette's avatar
Miller Puckette committed
630 631
    if (x->gl_editor)
    {
632 633 634 635 636
        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
637 638
        if (x->gl_editor->e_selectedline)
            glist_deselectline(x);
639 640 641
        if (c_selection == x)
            c_selection = NULL;
        canvas_draw_gop_resize_hooks(x);
Miller Puckette's avatar
Miller Puckette committed
642 643 644 645 646 647 648 649 650 651 652
    }
}

void glist_selectall(t_glist *x)
{
    if (x->gl_editor)
    {
        glist_noselect(x);
        if (x->gl_list)
        {
            t_gobj *y = x->gl_list;
653
#ifdef PDL2ORK
654 655 656 657 658 659 660 661 662
            // 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;
            }
663
#endif
664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682
            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
683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711
    }
}

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

712
t_gobj *glist_nth(t_glist *x, int n)
Miller Puckette's avatar
Miller Puckette committed
713 714 715 716 717 718 719 720 721 722 723 724 725 726 727
{
    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 */
728
const char *canvas_undo_name;
Miller Puckette's avatar
Miller Puckette committed
729 730 731 732

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

Miller Puckette's avatar
Miller Puckette committed
735 736 737 738 739
    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))
    {
740
        //fprintf(stderr,"hadone canvas_setundo\n");
Miller Puckette's avatar
Miller Puckette committed
741 742 743 744 745 746 747 748
        (*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;
749
    //if (x && glist_isvisible(x) && glist_istoplevel(x))
750
    if (x)
751
    {
752
        // enable undo in menu
753 754 755
        gui_vmess("gui_undo_menu", "xss",
            x, name, "no");
    }
Miller Puckette's avatar
Miller Puckette committed
756
    else if (hadone)
757 758 759 760 761
    {
        /* can't figure out what this does... */
        gui_vmess("gui_undo_menu ", "xss",
            "nobody", "no", "no");
    }
Miller Puckette's avatar
Miller Puckette committed
762 763 764 765 766 767 768 769 770 771
}

    /* 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");
}

772
/* ------- specific undo methods: 1. connect -------- */
Miller Puckette's avatar
Miller Puckette committed
773 774 775 776 777 778 779 780 781

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

782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805
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
806 807 808 809 810 811 812 813 814 815 816
    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,
817
    t_float index1, t_float outno, t_float index2, t_float inno)
Miller Puckette's avatar
Miller Puckette committed
818
{
819
    //fprintf(stderr,"canvas_disconnect\n");
820
    char tagbuf[MAXPDSTRING];
Miller Puckette's avatar
Miller Puckette committed
821 822 823 824 825 826 827 828 829 830
    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
831
            sprintf(tagbuf, "l%lx", (long unsigned int)oc);
832
            gui_vmess("gui_canvas_delete_line", "xs",
user's avatar
user committed
833
                x, tagbuf);
834
            // jsarlo
835 836 837 838 839
            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);
            }
840
            // end jsarlo
Miller Puckette's avatar
Miller Puckette committed
841
            obj_disconnect(t.tr_ob, t.tr_outno, t.tr_ob2, t.tr_inno);
842

843 844 845
            /* 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
846 847
               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)
848 849 850 851
            {
                //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
852 853 854 855 856
            break;
        }
    }
}

857
void canvas_undo_disconnect(t_canvas *x, void *z, int action)
Miller Puckette's avatar
Miller Puckette committed
858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873
{
    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));
}

874
/* ---------- ... 3. cut, clear, and typing into objects: -------- */
Miller Puckette's avatar
Miller Puckette committed
875 876 877

#define UCUT_CUT 1          /* operation was a cut */
#define UCUT_CLEAR 2        /* .. a clear */
878 879 880

// 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
881 882 883 884 885 886 887 888
#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 */
889 890 891 892
    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
893 894
} t_undo_cut;

895
void *canvas_undo_set_cut(t_canvas *x, int mode)
Miller Puckette's avatar
Miller Puckette committed
896 897 898 899 900 901
{
    t_undo_cut *buf;
    t_gobj *y;
    t_linetraverser t;
    t_outconnect *oc;
    int nnotsel= glist_selectionindex(x, 0, 0);
902 903 904 905
    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
906 907 908 909 910 911
    buf->u_mode = mode;
    buf->u_redotextbuf = 0;

        /* store connections into/out of the selection */
    buf->u_reconnectbuf = binbuf_new();
    linetraverser_start(&t, x);
912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929
    //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
930 931 932 933 934 935
    if (mode == UCUT_TEXT)
    {
        buf->u_objectbuf = canvas_docopy(x);
    }
    else if (mode == UCUT_CUT)
    {
936
        buf->u_objectbuf = canvas_docopy(x);
Miller Puckette's avatar
Miller Puckette committed
937 938 939 940 941
    }
    else if (mode == UCUT_CLEAR)
    {
        buf->u_objectbuf = canvas_docopy(x);
    }
942

943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961
    //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]);
    }
962

Miller Puckette's avatar
Miller Puckette committed
963 964 965
    return (buf);
}

966
void canvas_undo_cut(t_canvas *x, void *z, int action)
Miller Puckette's avatar
Miller Puckette committed
967
{
968 969
    //fprintf(stderr, "canvas_undo_cut canvas=%d buf=%d action=%d\n",
    //    (int)x, (int)z, action);
Miller Puckette's avatar
Miller Puckette committed
970 971 972 973
    t_undo_cut *buf = z;
    int mode = buf->u_mode;
    if (action == UNDO_UNDO)
    {
974 975 976 977 978
        do_not_redraw += 1;
        //fprintf(stderr,"UNDO_UNDO\n");
        if (mode == UCUT_CUT)
        {
            //fprintf(stderr, "UCUT_CUT\n");
979
            canvas_dopaste(x, buf->u_objectbuf);
980 981 982 983
        }
        else if (mode == UCUT_CLEAR)
        {
            //fprintf(stderr, "UCUT_CLEAR\n");
Miller Puckette's avatar
Miller Puckette committed
984
            canvas_dopaste(x, buf->u_objectbuf);
985
        }
Miller Puckette's avatar
Miller Puckette committed
986 987
        else if (mode == UCUT_TEXT)
        {
988
            //fprintf(stderr, "UCUT_TEXT\n");
Miller Puckette's avatar
Miller Puckette committed
989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008
            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"));
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 1070 1071 1072 1073 1074 1075 1076 1077
        //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
1078 1079 1080
    }
    else if (action == UNDO_REDO)
    {
1081 1082 1083 1084 1085 1086 1087 1088 1089 1090
        //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
1091
            canvas_doclear(x);
1092 1093
            glob_preset_node_list_check_loc_and_update();
        }
Miller Puckette's avatar
Miller Puckette committed
1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108
        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)
    {
1109
        //fprintf(stderr,"UNDO_FREE\n");
Miller Puckette's avatar
Miller Puckette committed
1110 1111 1112 1113 1114 1115
        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);
1116 1117 1118 1119 1120
        if (buf != NULL)
        {
            t_freebytes(buf, sizeof(*buf) +
                sizeof(buf->p_a[0]) * (buf->n_obj-1));
        }
Miller Puckette's avatar
Miller Puckette committed
1121 1122 1123
    }
}

1124
/* --------- 4. motion, including "tidy up" and stretching ----------- */
Miller Puckette's avatar
Miller Puckette committed
1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140

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;

1141
void *canvas_undo_set_move(t_canvas *x, int selected)
Miller Puckette's avatar
Miller Puckette committed
1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174
{
    int x1, y1, x2, y2, i, indx;
    t_gobj *y;
    t_undo_move *buf =  (t_undo_move *)getbytes(sizeof(*buf));
    buf->u_n = selected ? glist_selectionindex(x, 0, 1) : glist_getindex(x, 0);
    buf->u_vec = (t_undo_move_elem *)getbytes(sizeof(*buf->u_vec) *
        (selected ? glist_selectionindex(x, 0, 1) : glist_getindex(x, 0)));
    if (selected)
    {
        for (y = x->gl_list, i = indx = 0; y; y = y->g_next, indx++)
            if (glist_isselected(x, y))
        {
            gobj_getrect(y, x, &x1, &y1, &x2, &y2);
            buf->u_vec[i].e_index = indx;
            buf->u_vec[i].e_xpix = x1;
            buf->u_vec[i].e_ypix = y1;
            i++;
        }
    }
    else
    {
        for (y = x->gl_list, indx = 0; y; y = y->g_next, indx++)
        {
            gobj_getrect(y, x, &x1, &y1, &x2, &y2);
            buf->u_vec[indx].e_index = indx;
            buf->u_vec[indx].e_xpix = x1;
            buf->u_vec[indx].e_ypix = y1;
        }
    }
    canvas_undo_already_set_move = 1;
    return (buf);
}

1175
void canvas_undo_move(t_canvas *x, void *z, int action)
Miller Puckette's avatar
Miller Puckette committed
1176 1177
{
    t_undo_move *buf = z;
1178 1179
    t_class *cl;
    int resortin = 0, resortout = 0;
Miller Puckette's avatar
Miller Puckette committed
1180 1181 1182
    if (action == UNDO_UNDO || action == UNDO_REDO)
    {
        int i;
1183 1184
        int x1=0, y1=0, x2=0, y2=0, newx=0, newy=0;
        t_gobj *y;
1185
        //do_not_redraw = 1;
Miller Puckette's avatar
Miller Puckette committed
1186 1187 1188
        for (i = 0; i < buf->u_n; i++)
        {
            y = glist_nth(x, buf->u_vec[i].e_index);
1189 1190
            newx = buf->u_vec[i].e_xpix;
            newy = buf->u_vec[i].e_ypix;
Miller Puckette's avatar
Miller Puckette committed
1191 1192
            if (y)
            {
1193 1194 1195 1196 1197 1198 1199 1200 1201
                glist_noselect(x);
                glist_select(x, y);
                gobj_getrect(y, x, &x1, &y1, &x2, &y2);
                canvas_displaceselection(x, newx-x1, newy - y1);
                buf->u_vec[i].e_xpix = x1;
                buf->u_vec[i].e_ypix = y1;
                cl = pd_class(&y->g_pd);
                if (cl == vinlet_class) resortin = 1;
                else if (cl == voutlet_class) resortout = 1;
Miller Puckette's avatar
Miller Puckette committed
1202 1203
            }
        }
1204
        glist_noselect(x);
1205 1206
        for (i = 0; i < buf->u_n; i++)
        {
1207
            y = glist_nth(x, buf->u_vec[i].e_index);
1208
            if (y) glist_select(x, y);
1209 1210 1211 1212 1213
        }
        //do_not_redraw = 0;
        //canvas_redraw(x);
        if (resortin) canvas_resortinlets(x);
        if (resortout) canvas_resortoutlets(x);
Miller Puckette's avatar
Miller Puckette committed
1214 1215 1216 1217 1218 1219 1220 1221
    }
    else if (action == UNDO_FREE)
    {
        t_freebytes(buf->u_vec, buf->u_n * sizeof(*buf->u_vec));
        t_freebytes(buf, sizeof(*buf));
    }
}

1222
/* --------- 5. paste (also duplicate) ----------- */
Miller Puckette's avatar
Miller Puckette committed
1223 1224 1225

typedef struct _undo_paste      
{
1226 1227 1228 1229 1230 1231
    int u_index;            /* index of first object pasted */
    int u_sel_index;        /* index of object selected at the time the other
                               object was pasted (for autopatching) */
    int u_offset;           /* offset for duplicated items (since it differs
                               when duplicated into same or different canvas */
    t_binbuf *u_objectbuf;  /* here we store actual copied data */
Miller Puckette's avatar
Miller Puckette committed
1232 1233
} t_undo_paste;

1234 1235
void *canvas_undo_set_paste(t_canvas *x, int offset, int duplicate,
    int d_offset)
Miller Puckette's avatar
Miller Puckette committed
1236 1237
{
    t_undo_paste *buf =  (t_undo_paste *)getbytes(sizeof(*buf));
1238
    buf->u_index = glist_getindex(x, 0) - offset; //do we need offset at all?
1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253
    if (!duplicate && x->gl_editor->e_selection &&
        !x->gl_editor->e_selection->sel_next)
    {
        //if only one object is selected which will warrant autopatching
        buf->u_sel_index = glist_getindex(x,
            x->gl_editor->e_selection->sel_what);
        //fprintf(stderr,"canvas_undo_set_paste selected object index %d\n",
        //    buf->u_sel_index);
    }
    else
    {
        buf->u_sel_index = -1;
    }
    buf->u_offset = d_offset;
    buf->u_objectbuf = binbuf_duplicate(copy_binbuf);
Miller Puckette's avatar
Miller Puckette committed
1254 1255 1256
    return (buf);
}

1257
void canvas_undo_paste(t_canvas *x, void *z, int action)
Miller Puckette's avatar
Miller Puckette committed
1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269
{
    t_undo_paste *buf = z;
    if (action == UNDO_UNDO)
    {
        t_gobj *y;
        glist_noselect(x);
        for (y = glist_nth(x, buf->u_index); y; y = y->g_next)
            glist_select(x, y);
        canvas_doclear(x);
    }
    else if (action == UNDO_REDO)
    {
1270 1271 1272 1273 1274 1275 1276 1277 1278 1279
        //if (buf->u_offset)
        //    do_not_redraw += 1;
        glist_noselect(x);
        //if the pasted object is supposed to be autopatched
        //then select the object it should be autopatched to
        if (buf->u_sel_index > -1)
        {
            //fprintf(stderr,"undo trying autopatch\n");
            glist_select(x, glist_nth(x, buf->u_sel_index));
        }
1280
        canvas_dopaste(x, buf->u_objectbuf);
Miller Puckette's avatar
Miller Puckette committed
1281
            /* if it was "duplicate" have to re-enact the displacement. */
1282 1283 1284
        if (buf->u_offset)
        {
            //do_not_redraw -= 1;
1285 1286
            //for (sel = x->gl_editor->e_selection; sel; sel = sel->sel_next)
            //    gobj_displace(sel->sel_what, x, 10, 10);
1287 1288
            canvas_paste_xyoffset(x);
        }
Miller Puckette's avatar
Miller Puckette committed
1289
    }
1290 1291
    else if (action == UNDO_FREE)
    {
1292 1293
        if (buf->u_objectbuf)
            binbuf_free(buf->u_objectbuf);
Miller Puckette's avatar
Miller Puckette committed
1294
        t_freebytes(buf, sizeof(*buf));
1295
    }
Miller Puckette's avatar
Miller Puckette committed
1296 1297
}

1298 1299
int clone_match(t_pd *z, t_symbol *name, t_symbol *dir);

Miller Puckette's avatar
Miller Puckette committed
1300 1301 1302 1303 1304 1305
    /* recursively check for abstractions to reload as result of a save. 
    Don't reload the one we just saved ("except") though. */
    /*  LATER try to do the same trick for externs. */
static void glist_doreload(t_glist *gl, t_symbol *name, t_symbol *dir,
    t_gobj *except)
{
1306
    //fprintf(stderr,"doreload\n");
Miller Puckette's avatar
Miller Puckette committed
1307 1308
    t_gobj *g;
    int i, nobj = glist_getindex(gl, 0);  /* number of objects */
1309
    int hadwindow = gl->gl_havewindow;
1310
    int found = 0;
1311
    int remakeit = 0;
1312 1313 1314
    // to optimize redrawing we select all objects that need to be updated
    // and redraw them together. Then we look for sub-patches that may have
    // more of the same...
Miller Puckette's avatar
Miller Puckette committed
1315 1316
    for (g = gl->gl_list, i = 0; g && i < nobj; i++)
    {
1317 1318 1319
            /* remake the object if it's an abstraction that appears to have
            been loaded from the file we just saved */
        remakeit = (g != except && pd_class(&g->g_pd) == canvas_class &&
Miller Puckette's avatar
Miller Puckette committed
1320 1321
            canvas_isabstraction((t_canvas *)g) &&
                ((t_canvas *)g)->gl_name == name &&
1322 1323 1324 1325 1326 1327 1328 1329 1330 1331
                    canvas_getdir((t_canvas *)g) == dir);
            /* also remake it if it's a "clone" with that name */
        if (pd_class(&g->g_pd) == clone_class &&
            clone_match(&g->g_pd, name, dir))
        {
                /* LATER try not to remake the one that equals "except" */
            remakeit = 1;
        }

        if (remakeit)
Miller Puckette's avatar
Miller Puckette committed
1332 1333 1334 1335 1336
        {
                /* we're going to remake the object, so "g" will go stale.
                Get its index here, and afterward restore g.  Also, the
                replacement will be at the end of the list, so we don't
                do g = g->g_next in this case. */
Mathieu L Bouchard's avatar
Mathieu L Bouchard committed
1337
            //int j = glist_getindex(gl, g);
1338
            //fprintf(stderr, "rebuildlicious %d\n", j);
1339 1340 1341 1342 1343 1344 1345 1346

            // Bugfix for cases where canvas_vis doesn't actually create a
            // new editor. We need to fix canvas_vis so that the bug doesn't
            // get triggered. But since we know this fixes a regression we'll
            // keep this as a point in the history as we fix canvas_vis. Once
            // that's done we can remove this call.
            canvas_create_editor(gl);

1347 1348
            if (!gl->gl_havewindow)
            {
1349
                canvas_vis(glist_getcanvas(gl), 1);
1350 1351 1352 1353 1354 1355 1356
                //fprintf(stderr,"calling canvas_vis\n");
            }
            if (!found)
            {
                glist_noselect(gl);
                found = 1;
            }
Miller Puckette's avatar
Miller Puckette committed
1357
            glist_select(gl, g);
1358 1359
            //canvas_setundo(gl, canvas_undo_cut,
            //    canvas_undo_set_cut(gl, UCUT_CLEAR), "clear");
1360 1361
            //canvas_undo_add(gl, 3, "clear",
            //    canvas_undo_set_cut(gl, UCUT_CLEAR));
1362

1363 1364 1365
            //canvas_cut(gl);
            //canvas_undo_undo(gl);
            //glist_noselect(gl);
1366
            //g = glist_nth(gl, j+1);
Miller Puckette's avatar
Miller Puckette committed
1367
        }
1368 1369 1370 1371 1372 1373 1374 1375 1376
        g = g->g_next;
    }
    if (found)
    {
        canvas_cut(gl);
        canvas_undo_undo(gl);
        //canvas_undo_rebranch(gl);
        glist_noselect(gl);
    }
1377

1378
    // now look for sub-patches...
1379 1380 1381 1382 1383 1384 1385
    for (g = gl->gl_list, i = 0; g && i < nobj; i++)
    {
        if (g != except && pd_class(&g->g_pd) == canvas_class &&

            (!canvas_isabstraction((t_canvas *)g) ||
                 ((t_canvas *)g)->gl_name != name ||
                 canvas_getdir((t_canvas *)g) != dir)
1386
           )
Miller Puckette's avatar
Miller Puckette committed
1387
                glist_doreload((t_canvas *)g, name, dir, except);
1388
        g = g->g_next;
Miller Puckette's avatar
Miller Puckette committed
1389
    }
1390
    if (!hadwindow && gl->gl_havewindow)
1391
        canvas_vis(glist_getcanvas(gl), 0);
Miller Puckette's avatar
Miller Puckette committed
1392 1393
}

1394 1395 1396 1397
    /* this flag stops canvases from being marked "dirty" if we have to touch
    them to reload an abstraction; also suppress window list update */
int glist_amreloadingabstractions = 0;

1398
    /* call glist_doreload on everyone */
Miller Puckette's avatar
Miller Puckette committed
1399 1400 1401
void canvas_reload(t_symbol *name, t_symbol *dir, t_gobj *except)
{
    t_canvas *x;
Miller Puckette's avatar
Miller Puckette committed
1402
    int dspwas = canvas_suspend_dsp();
Miller Puckette's avatar
Miller Puckette committed
1403
    glist_amreloadingabstractions = 1;
Miller Puckette's avatar
Miller Puckette committed
1404
        /* find all root canvases */
1405
    for (x = pd_this->pd_canvaslist; x; x = x->gl_next)
Miller Puckette's avatar
Miller Puckette committed
1406
        glist_doreload(x, name, dir, except);
1407
    glist_amreloadingabstractions = 0;
Miller Puckette's avatar
Miller Puckette committed
1408
    canvas_resume_dsp(dspwas);
Miller Puckette's avatar
Miller Puckette committed
1409 1410
}

1411
/* --------- 6. apply  ----------- */
1412 1413 1414 1415 1416

typedef struct _undo_apply        
{
    t_binbuf *u_objectbuf;      /* the object cleared or typed into */
    t_binbuf *u_reconnectbuf;   /* connections into and out of object */
1417
    int u_index;                /* index of the previous object */
1418 1419
} t_undo_apply;

1420
void *canvas_undo_set_apply(t_canvas *x, int n)
1421
{
1422
    //fprintf(stderr,"canvas_undo_set_apply\n");
1423
    t_undo_apply *buf;
Mathieu L Bouchard's avatar
Mathieu L Bouchard committed
1424
    t_gobj *obj;