Fossil

Check-in [8db6f987]
Login

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

Overview
Comment:Press "q" to exit the --tk diff window.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:8db6f9877fec9ae079d7efb10f88ddd5aa70b213
User & Date: drh 2013-06-22 21:45:06
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: a5a3924a 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: ae012443 user: jan.nijtmans tags: trunk
2013-06-22
21:45
Press "q" to exit the --tk diff window. check-in: 8db6f987 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: c6aedbd0 user: drh tags: trunk
Changes
Hide Diffs Unified Diffs 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}