On Sat, Jun 22, 2013 at 2:19 PM, Edward Berner <e...@bernerfam.com> wrote:
> The "--tk" option to Fossil's diff is great, but I find myself wanting to
> hit q to close the window. Here, in case anyone is interested, is a patch
> which allows that:
>
> Index: src/diffcmd.c
> ==================================================================
> --- src/diffcmd.c
> +++ src/diffcmd.c
> @@ -602,13 +602,15 @@
> static const char zDiffScript[] =
> @ package require Tk
> @ wm withdraw .
> @ wm title . {Fossil Diff}
> @ wm iconname . {Fossil Diff}
> +@ bind . <KeyPress-q> {exit}
> @ set body {}
> @ set mx 80 ;# Length of the longest line of text
> @ set nLine 0 ;# Number of lines of text
> +@ label .l -text {To exit press q or close the window.}
How about making this a button?
button .l -text Exit -command exit
--
Andreas Kupries
Senior Tcl Developer
Code to Cloud: Smarter, Safer, Faster™
F: 778.786.1133
andre...@activestate.com
http://www.activestate.com
Learn about Stackato for Private PaaS: http://www.activestate.com/stackato
Tcl'2013, Sep 23-27, New Orleans, LA, USA @ http://www.tcl.tk/community/tcl2013/
EuroTcl'2013, July 6-7, Munich, GER
_______________________________________________
fossil-users mailing list
fossil-users@lists.fossil-scm.org
http://lists.fossil-scm.org:8080/cgi-bin/mailman/listinfo/fossil-users
