Fossil

Check-in [7440633e]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix the "SaveAs" button on the "diff --tk" viewer so that the "Cancel" button works.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:7440633e817d54951b2dd95d486ef2b57a561f58
User & Date: drh 2014-04-22 12:07:19
Context
2014-04-22
12:44
Increase the version number to 1.29 with the idea that we might do a new release soon. Fill out the change-log for version 1.29. check-in: 61c66596 user: drh tags: trunk
12:07
Fix the "SaveAs" button on the "diff --tk" viewer so that the "Cancel" button works. check-in: 7440633e user: drh tags: trunk
06:56
Use SQLITE_UTF8 in stead of SQLITE_ANY everywhere, because SQLITE_ANY is deprecated in later SQLite and fossil uses UTF-8 everywhere anyway. check-in: 2c95802c user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to src/diffcmd.c.

930
931
932
933
934
935
936

937
938
939
940
941
942
943
@   tk_messageBox -type ok -title $CFG(TITLE) -message "No changes"
@   exit
@ }
@ update idletasks
@
@ proc saveDiff {} {
@   set fn [tk_getSaveFile]

@   set out [open $fn wb]
@   puts $out "#!/usr/bin/tclsh\n#\n# Run this script using 'tclsh' or 'wish'"
@   puts $out "# to see the graphical diff.\n#"
@   puts $out "set fossilcmd {}"
@   puts $out "set prog [list $::prog]"
@   puts $out "set difftxt \173"
@   foreach e $::difftxt {puts $out [list $e]}







>







930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
@   tk_messageBox -type ok -title $CFG(TITLE) -message "No changes"
@   exit
@ }
@ update idletasks
@
@ proc saveDiff {} {
@   set fn [tk_getSaveFile]
@   if {$fn==""} return
@   set out [open $fn wb]
@   puts $out "#!/usr/bin/tclsh\n#\n# Run this script using 'tclsh' or 'wish'"
@   puts $out "# to see the graphical diff.\n#"
@   puts $out "set fossilcmd {}"
@   puts $out "set prog [list $::prog]"
@   puts $out "set difftxt \173"
@   foreach e $::difftxt {puts $out [list $e]}