[PD-cvs] SF.net SVN: pure-data:[10593] branches/pd-extended/0.41/pd/src

[eighthave at users.sourceforge.net]

Revision: 10593
          http://pure-data.svn.sourceforge.net/pure-data/?rev=10593&view=rev
Author:   eighthave
Date:     2009-01-22 01:02:15 +0000 (Thu, 22 Jan 2009)

Log Message:
-----------
- created "Do you want to save the changes" Yes/No/Cancel dialog for handling
  unsaved changes.

- this commit is the same as create_save_yesnocancel_dialog-0.41.4.patch and
  patch #2527413 in the tracker

Modified Paths:
--------------
    branches/pd-extended/0.41/pd/src/g_editor.c
    branches/pd-extended/0.41/pd/src/u_main.tk

Modified: branches/pd-extended/0.41/pd/src/g_editor.c
===================================================================
--- branches/pd-extended/0.41/pd/src/g_editor.c	2009-01-21 23:31:54 UTC (rev 10592)
+++ branches/pd-extended/0.41/pd/src/g_editor.c	2009-01-22 01:02:15 UTC (rev 10593)
@@ -1684,11 +1684,10 @@
         /* find all root canvases */
     for (g = canvas_list; g; g = g->gl_next)
         if (g2 = glist_finddirty(g))
-    {
-        canvas_vis(g2, 1);
-        sys_vgui(
-"pdtk_check .x%lx {Discard changes to '%s'?} {.x%lx menuclose 3;\n} no\n",
-            canvas_getrootfor(g2), canvas_getrootfor(g2)->gl_name->s_name, g2);
+        {
+            canvas_vis(g2, 1);
+            sys_vgui("pdtk_canvas_menuclose .x%lx {.x%lx menuclose 3;\n}\n",
+                     canvas_getrootfor(g2), g2);
         return;
     }
     if (f == 0)
@@ -1715,9 +1714,8 @@
         if (g)
         {
             canvas_vis(g, 1);
-            sys_vgui(
-"pdtk_check .x%lx {Discard changes to '%s'?} {.x%lx menuclose 2;\n} no\n",
-                canvas_getrootfor(g), canvas_getrootfor(g)->gl_name->s_name, g);
+            sys_vgui("pdtk_canvas_menuclose .x%lx {.x%lx menuclose 2;\n}\n",
+                     canvas_getrootfor(g), g);
             return;
         }
         else
@@ -1741,9 +1739,8 @@
         if (g)
         {
             canvas_vis(g, 1);
-            sys_vgui(
-"pdtk_check .x%lx {Discard changes to '%s'?} {.x%lx menuclose 2;\n} no\n",
-                canvas_getrootfor(x), canvas_getrootfor(x)->gl_name->s_name, g);
+            sys_vgui("pdtk_canvas_menuclose .x%lx {.x%lx menuclose 2;\n}\n",
+                     canvas_getrootfor(x), g);
             return;
         }
         else pd_free(&x->gl_pd);

Modified: branches/pd-extended/0.41/pd/src/u_main.tk
===================================================================
--- branches/pd-extended/0.41/pd/src/u_main.tk	2009-01-21 23:31:54 UTC (rev 10592)
+++ branches/pd-extended/0.41/pd/src/u_main.tk	2009-01-22 01:02:15 UTC (rev 10593)
@@ -424,10 +424,27 @@
         set answer [tk_messageBox -message $x -type yesno -default $default \
             -parent $canvas -icon question]
     }
-	puts stderr "raise $canvas"
     if {! [string compare $answer yes]}  {pd $message}
 }
 
+##### ask user Save? Discard? Cancel?, and if so, send a message on to Pd ######
+proc pdtk_canvas_menuclose {window reply} {
+	global pd_nt
+	raise $window
+	set filename [wm title $window]
+	set message [format {Do you want to save the changes you made in "%s"?} $filename]
+	set answer [tk_messageBox -message $message -type yesnocancel -default "yes" \
+					-parent $window -icon question]
+	switch -- $answer {
+		yes { 
+			pd [concat $window menusave \;]
+			pd $reply
+		}
+		no {pd $reply}
+		cancel {}
+	}
+}
+
 set menu_windowlist {} 
 
 proc pdtk_fixwindowmenu {} {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.