Fossil SCM
Fix the "SaveAs" button on the "diff --tk" viewer so that the "Cancel" button works.
Commit
7440633e817d54951b2dd95d486ef2b57a561f58
Parent
2c95802cfcc5a3d…
1 file changed
+1
+1
| --- src/diffcmd.c | ||
| +++ src/diffcmd.c | ||
| @@ -932,10 +932,11 @@ | ||
| 932 | 932 | @ } |
| 933 | 933 | @ update idletasks |
| 934 | 934 | @ |
| 935 | 935 | @ proc saveDiff {} { |
| 936 | 936 | @ set fn [tk_getSaveFile] |
| 937 | +@ if {$fn==""} return | |
| 937 | 938 | @ set out [open $fn wb] |
| 938 | 939 | @ puts $out "#!/usr/bin/tclsh\n#\n# Run this script using 'tclsh' or 'wish'" |
| 939 | 940 | @ puts $out "# to see the graphical diff.\n#" |
| 940 | 941 | @ puts $out "set fossilcmd {}" |
| 941 | 942 | @ puts $out "set prog [list $::prog]" |
| 942 | 943 |
| --- src/diffcmd.c | |
| +++ src/diffcmd.c | |
| @@ -932,10 +932,11 @@ | |
| 932 | @ } |
| 933 | @ update idletasks |
| 934 | @ |
| 935 | @ proc saveDiff {} { |
| 936 | @ set fn [tk_getSaveFile] |
| 937 | @ set out [open $fn wb] |
| 938 | @ puts $out "#!/usr/bin/tclsh\n#\n# Run this script using 'tclsh' or 'wish'" |
| 939 | @ puts $out "# to see the graphical diff.\n#" |
| 940 | @ puts $out "set fossilcmd {}" |
| 941 | @ puts $out "set prog [list $::prog]" |
| 942 |
| --- src/diffcmd.c | |
| +++ src/diffcmd.c | |
| @@ -932,10 +932,11 @@ | |
| 932 | @ } |
| 933 | @ update idletasks |
| 934 | @ |
| 935 | @ proc saveDiff {} { |
| 936 | @ set fn [tk_getSaveFile] |
| 937 | @ if {$fn==""} return |
| 938 | @ set out [open $fn wb] |
| 939 | @ puts $out "#!/usr/bin/tclsh\n#\n# Run this script using 'tclsh' or 'wish'" |
| 940 | @ puts $out "# to see the graphical diff.\n#" |
| 941 | @ puts $out "set fossilcmd {}" |
| 942 | @ puts $out "set prog [list $::prog]" |
| 943 |