Fossil SCM
Make the graphical-diff "SaveAs" output a little more readable by putting each line of the raw diff source on a separate source line.
Commit
9dca00425e954ab49ce534c8617d03d495c16e8d
Parent
29d80dd2f5d2c7a…
1 file changed
+3
-1
+3
-1
| --- src/diffcmd.c | ||
| +++ src/diffcmd.c | ||
| @@ -910,12 +910,14 @@ | ||
| 910 | 910 | @ |
| 911 | 911 | @ proc saveDiff {} { |
| 912 | 912 | @ set fn [tk_getSaveFile] |
| 913 | 913 | @ set out [open $fn wb] |
| 914 | 914 | @ puts $out "set fossilcmd {}" |
| 915 | -@ puts $out "set difftxt [list $::difftxt]" | |
| 916 | 915 | @ puts $out "set prog [list $::prog]" |
| 916 | +@ puts $out "set difftxt \173" | |
| 917 | +@ foreach e $::difftxt {puts $out [list $e]} | |
| 918 | +@ puts $out "\175" | |
| 917 | 919 | @ puts $out "eval \$prog" |
| 918 | 920 | @ close $out |
| 919 | 921 | @ } |
| 920 | 922 | @ ::ttk::button .bb.quit -text {Quit} -command exit |
| 921 | 923 | @ ::ttk::button .bb.save -text {Save As...} -command saveDiff |
| 922 | 924 |
| --- src/diffcmd.c | |
| +++ src/diffcmd.c | |
| @@ -910,12 +910,14 @@ | |
| 910 | @ |
| 911 | @ proc saveDiff {} { |
| 912 | @ set fn [tk_getSaveFile] |
| 913 | @ set out [open $fn wb] |
| 914 | @ puts $out "set fossilcmd {}" |
| 915 | @ puts $out "set difftxt [list $::difftxt]" |
| 916 | @ puts $out "set prog [list $::prog]" |
| 917 | @ puts $out "eval \$prog" |
| 918 | @ close $out |
| 919 | @ } |
| 920 | @ ::ttk::button .bb.quit -text {Quit} -command exit |
| 921 | @ ::ttk::button .bb.save -text {Save As...} -command saveDiff |
| 922 |
| --- src/diffcmd.c | |
| +++ src/diffcmd.c | |
| @@ -910,12 +910,14 @@ | |
| 910 | @ |
| 911 | @ proc saveDiff {} { |
| 912 | @ set fn [tk_getSaveFile] |
| 913 | @ set out [open $fn wb] |
| 914 | @ puts $out "set fossilcmd {}" |
| 915 | @ puts $out "set prog [list $::prog]" |
| 916 | @ puts $out "set difftxt \173" |
| 917 | @ foreach e $::difftxt {puts $out [list $e]} |
| 918 | @ puts $out "\175" |
| 919 | @ puts $out "eval \$prog" |
| 920 | @ close $out |
| 921 | @ } |
| 922 | @ ::ttk::button .bb.quit -text {Quit} -command exit |
| 923 | @ ::ttk::button .bb.save -text {Save As...} -command saveDiff |
| 924 |