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);
Aayush's avatar
Aayush committed
47
static void canvas_ascii_entry(t_canvas *x,t_floatarg textarea_state);
Hans-Christoph Steiner's avatar
Hans-Christoph Steiner committed
48
static int paste_xyoffset = 0; /* a counter of pastes to make x,y offsets */
49
//static void canvas_mouseup_gop(t_canvas *x, t_gobj *g);
50
void canvas_done_popup(t_canvas *x, t_float which, t_float xpos,
51 52 53
    t_float ypos);
static void canvas_doarrange(t_canvas *x, t_float which, t_gobj *oldy,
    t_gobj *oldy_prev, t_gobj *oldy_next);
54
static void canvas_paste_xyoffset(t_canvas *x);
55
void canvas_setgraph(t_glist *x, int flag, int nogoprect);
56 57
void canvas_mouseup(t_canvas *x, t_floatarg fxpos, t_floatarg fypos,
    t_floatarg fwhich);
58 59 60 61
static int outlet_issignal = 0;
static int inlet_issignal = 0;
static int last_inlet_filter = 0;
static int last_outlet_filter = 0;
62
static int copyfromexternalbuffer = 0;
63
static int tooltips = 0;
64
static int objtooltip = 0;
65
static int screenx1; /* screen coordinates when doing copyfromexternalbuffer */
66 67 68 69 70
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,
71
    t_floatarg yresize);
72
int canvas_apply_restore_original_position(t_canvas *x, int orig_pos);
73
extern void canvas_draw_gop_resize_hooks(t_canvas *x);
74 75
static void canvas_font(t_canvas *x, t_floatarg font, t_floatarg oldfont,
    t_floatarg resize, t_floatarg preview);
76
void canvas_displaceselection(t_canvas *x, int dx, int dy);
77 78 79 80
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) */
81
extern void glob_preset_node_list_check_loc_and_update(void);
82 83
// for preset_node
extern t_class *text_class;
84 85 86
// for iemgui objects' wonky click area
//extern void iemgui_getrect_mouse(t_gobj *x, int *xp1, int *yp1,
//    int *xp2, int *yp2);
87

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

92 93 94 95
/* 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;
96

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

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

107 108 109 110 111 112 113 114 115 116 117 118 119
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 */
120 121 122
int gobj_filter_highlight_behavior(t_text *y)
{
    return (y->te_iemgui);
123
}
Miller Puckette's avatar
Miller Puckette committed
124

125 126 127
/* ---------------- mathieu 2014.08 --------------------------------- */

void canvas_raise_all_cords (t_canvas *x) {
128 129 130 131 132
    /* 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);
133
}
134

135
static void canvas_enteritem (t_canvas *x, int xpos, int ypos, const char *tag) {
136 137 138 139
    // 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);
140
}
141

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

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

154
static void canvas_nlet_conf (t_canvas *x, int type) {
155
    int isiemgui = type=='o' ? last_outlet_filter : last_inlet_filter;
156
    int issignal = type=='o' ? outlet_issignal : inlet_issignal;
157 158 159 160 161 162 163 164
    //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. */
165
    gui_vmess("gui_gobj_configure_io", "xsiii",
Jonathan Wilkes's avatar
Jonathan Wilkes committed
166 167
        x,
        type == 'o' ? x->gl_editor->canvas_cnct_outlet_tag :
168
            x->gl_editor->canvas_cnct_inlet_tag,
Jonathan Wilkes's avatar
Jonathan Wilkes committed
169 170 171
        isiemgui,
        issignal,
        1);
172
}
173

Aayush's avatar
Aayush committed
174
static void canvas_ascii_entry(t_canvas *x, t_floatarg textarea_state)
Aayush's avatar
Aayush committed
175
{
Aayush's avatar
Aayush committed
176
    int state = textarea_state;
Aayush's avatar
Aayush committed
177 178
    gui_vmess("ascii_entry","xi",
        x,
Aayush's avatar
Aayush committed
179
        state);
Aayush's avatar
Aayush committed
180
} 
181
void canvas_getscroll (t_canvas *x) {
182
    //sys_vgui("pdtk_canvas_getscroll .x%lx.c\n",(long)x);
183
    gui_vmess("gui_canvas_get_scroll", "x", x);
184 185
}

Miller Puckette's avatar
Miller Puckette committed
186 187 188 189 190 191 192 193 194 195 196 197 198 199 200
/* ---------------- 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);
}

201 202 203 204 205 206
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
207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224
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);
}

225 226 227
int gobj_shouldvis(t_gobj *x, struct _glist *glist)
{
    t_object *ob;
228 229 230
    //fprintf(stderr,"shouldvis %d %d %d %d\n",
    //    glist->gl_havewindow, glist->gl_isgraph,
    //    glist->gl_goprect, glist->gl_owner != NULL);
231 232 233 234 235 236 237
        /* 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. */
238
    if (!glist->gl_havewindow && glist->gl_isgraph && glist->gl_goprect &&
239 240
        glist->gl_owner && (pd_class(&x->g_pd) != scalar_class) &&
        (pd_class(&x->g_pd) != garray_class))
241 242 243 244 245 246 247 248 249 250
    {
        /* 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);
251 252 253
        //fprintf(stderr,
        //    "gobj_shouldvis gop: %d %d %d %d || object %d %d %d %d\n",
        //    x1, x2, y1, y2, gx1, gx2, gy1, gy2);
254
        if (gx1 < x1 || gx1 > x2 || gx2 < x1 || gx2 > x2 ||
255 256 257
            gy1 < y1 || gy1 > y2 || gy2 < y1 || gy2 > y2)
        {
                //fprintf(stderr,"does not fit within boundaries\n");
258
                return (0);
259 260
        }
        if (glist==glist_getcanvas(glist))
261
            canvas_raise_all_cords(glist);
262 263 264 265 266 267
    }
    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. */
268 269 270
        //fprintf(stderr,"pd_checkobject %lx\n", x);
        /*fprintf(stderr,"pd_checkobject %d %d %d %d %d %d %d\n",
            glist->gl_havewindow, 
271
            (ob->te_pd != canvas_class ? 1:0),
272 273 274
            (ob->te_pd->c_wb != &text_widgetbehavior ? 1:0),
            (ob->te_pd == canvas_class ? 1:0),
            ((t_glist *)ob)->gl_isgraph,
275
            glist->gl_goprect,
276 277 278 279 280 281 282 283 284
            (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
285 286 287 288
            (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))));*/
289 290 291 292 293 294
        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)));
    }
295
    else {
296 297 298
        //fprintf(stderr,"else return 1\n");
        return (1);
    }
299 300
}

Miller Puckette's avatar
Miller Puckette committed
301 302
void gobj_vis(t_gobj *x, struct _glist *glist, int flag)
{
303
    if (do_not_redraw) return;
304
    if (x->g_pd->c_wb && x->g_pd->c_wb->w_visfn && gobj_shouldvis(x, glist))
Miller Puckette's avatar
Miller Puckette committed
305 306 307 308 309 310 311 312 313 314 315 316 317 318
        (*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 ----------------- */

319
// direction -1 = lower, 1 = raise
320 321 322 323 324 325 326 327 328 329 330 331 332
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;
333
        t_rtext *yrnxt = NULL;
334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358

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

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

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

void glist_deselectline(t_glist *x)
{
452
    char tagbuf[MAXPDSTRING];
Miller Puckette's avatar
Miller Puckette committed
453 454
    if (x->gl_editor)
    {
Hans-Christoph Steiner's avatar
Hans-Christoph Steiner committed
455 456
        t_linetraverser t;
        t_outconnect *oc;
Miller Puckette's avatar
Miller Puckette committed
457
        x->gl_editor->e_selectedline = 0;
Hans-Christoph Steiner's avatar
Hans-Christoph Steiner committed
458 459 460 461
        linetraverser_start(&t, glist_getcanvas(x));
        do {
            oc = linetraverser_next(&t);
        } while (oc && oc != x->gl_editor->e_selectline_tag);
462
        canvas_draw_gop_resize_hooks(x);
463 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)
user's avatar
user committed
751
    {
752
        // enable undo in menu
user's avatar
user committed
753 754 755
        gui_vmess("gui_undo_menu", "xss",
            x, name, "no");
    }
Miller Puckette's avatar
Miller Puckette committed
756
    else if (hadone)
user's avatar
user committed
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);