From 0d4b66c7bc77f6a2fafb1debe548f8621d21cf70 Mon Sep 17 00:00:00 2001
From: Miller Puckette <millerpuckette@users.sourceforge.net>
Date: Sun, 21 Aug 2005 14:46:18 +0000
Subject: Improved samplerate~ implementation.

svn path=/trunk/; revision=3438
---
 pd/src/g_editor.c | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

(limited to 'pd/src/g_editor.c')

diff --git a/pd/src/g_editor.c b/pd/src/g_editor.c
index 938842a6..c621d299 100644
--- a/pd/src/g_editor.c
+++ b/pd/src/g_editor.c
@@ -1686,7 +1686,12 @@ void canvas_menuclose(t_canvas *x, t_floatarg fforce)
                 g);
             return;
         }
-        else pd_free(&x->gl_pd);
+        else
+        {
+            sys_vgui(
+"pdtk_check {Close this window??} {.x%lx menuclose 1;\n} yes\n",
+                x);
+        }
     }
     else if (force == 1)
         pd_free(&x->gl_pd);
@@ -1695,7 +1700,16 @@ void canvas_menuclose(t_canvas *x, t_floatarg fforce)
         canvas_dirty(x, 0);
         while (x->gl_owner)
             x = x->gl_owner;
-        canvas_menuclose(x, 0);
+        g = glist_finddirty(x);
+        if (g)
+        {
+            canvas_vis(g, 1);
+            sys_vgui(
+"pdtk_check {Discard changes to this window??} {.x%lx menuclose 2;\n} no\n",
+                g);
+            return;
+        }
+        else pd_free(&x->gl_pd);
     }
     else if (force == 3)
     {
-- 
cgit v1.2.1