Fossil

Check-in [8db6f9877f]
Login

Check-in [8db6f9877f]

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

Overview
Comment:Press "q" to exit the --tk diff window.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8db6f9877fec9ae079d7efb10f88ddd5aa70b213
User & Date: drh 2013-06-22 21:45:06.276
Context
2013-07-21
17:13
Added reference to real wiki home page and left previous reference as reference to project home page. ... (check-in: a5a3924abf user: navratil tags: trunk)
2013-06-24
08:27
Use file_tree_name(), not file_canonical_name(), as in Richard's example [c8253f4066] for "fossil ls|changes|status" too. Advantage: 1) a panic when an out-of-tree filename is given on the command line 2) shortcut when any command line argument is "." (or resolves to the top of the tree in any other way) ... (check-in: ae01244396 user: jan.nijtmans tags: trunk)
2013-06-22
21:45
Press "q" to exit the --tk diff window. ... (check-in: 8db6f9877f user: drh tags: trunk)
20:25
Refuse to close a check-out if the stash is non-empty and the -f flag is omitted. ... (check-in: c6aedbd0bd user: drh tags: trunk)
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/diffcmd.c.
600
601
602
603
604
605
606

607
608
609
610
611
612
613
/* A Tcl/Tk script used to render diff output.
*/
static const char zDiffScript[] = 
@ package require Tk
@ wm withdraw .
@ wm title . {Fossil Diff}
@ wm iconname . {Fossil Diff}

@ set body {}
@ set mx 80          ;# Length of the longest line of text
@ set nLine 0        ;# Number of lines of text
@ text .t -width 180 -yscroll {.sb set}
@ if {$tcl_platform(platform)=="windows"} {.t config -font {courier 9}}
@ .t tag config ln -foreground gray
@ .t tag config chng -background {#d0d0ff}







>







600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
/* A Tcl/Tk script used to render diff output.
*/
static const char zDiffScript[] = 
@ package require Tk
@ wm withdraw .
@ wm title . {Fossil Diff}
@ wm iconname . {Fossil Diff}
@ bind . <q> exit
@ set body {}
@ set mx 80          ;# Length of the longest line of text
@ set nLine 0        ;# Number of lines of text
@ text .t -width 180 -yscroll {.sb set}
@ if {$tcl_platform(platform)=="windows"} {.t config -font {courier 9}}
@ .t tag config ln -foreground gray
@ .t tag config chng -background {#d0d0ff}