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.