Fossil SCM
Make sure that the close-button of tk's "diff" window ends the main-loop in all circumstances. Remove unnecessary space.
Commit
c275d8ddbb87ddbb594f2d4c241affc2207fd74a
Parent
4c8a3fb2b716ed9…
1 file changed
+2
-1
+2
-1
| --- src/diffcmd.c | ||
| +++ src/diffcmd.c | ||
| @@ -774,11 +774,11 @@ | ||
| 774 | 774 | @ grid remove $sb |
| 775 | 775 | @ } |
| 776 | 776 | @ } |
| 777 | 777 | @ enableSync x |
| 778 | 778 | @ } |
| 779 | -@ | |
| 779 | +@ | |
| 780 | 780 | @ proc sync-y {first last} { |
| 781 | 781 | @ disableSync y |
| 782 | 782 | @ foreach c [cols] { |
| 783 | 783 | @ $c yview moveto $first |
| 784 | 784 | @ } |
| @@ -793,10 +793,11 @@ | ||
| 793 | 793 | @ |
| 794 | 794 | @ wm withdraw . |
| 795 | 795 | @ wm title . $CFG(TITLE) |
| 796 | 796 | @ wm iconname . $CFG(TITLE) |
| 797 | 797 | @ bind . <q> exit |
| 798 | +@ bind . <Destroy> exit | |
| 798 | 799 | @ bind . <Tab> {cycleDiffs; break} |
| 799 | 800 | @ bind . <<PrevWindow>> {cycleDiffs 1; break} |
| 800 | 801 | @ bind . <Return> { |
| 801 | 802 | @ event generate .files <1> |
| 802 | 803 | @ event generate .files <ButtonRelease-1> |
| 803 | 804 |
| --- src/diffcmd.c | |
| +++ src/diffcmd.c | |
| @@ -774,11 +774,11 @@ | |
| 774 | @ grid remove $sb |
| 775 | @ } |
| 776 | @ } |
| 777 | @ enableSync x |
| 778 | @ } |
| 779 | @ |
| 780 | @ proc sync-y {first last} { |
| 781 | @ disableSync y |
| 782 | @ foreach c [cols] { |
| 783 | @ $c yview moveto $first |
| 784 | @ } |
| @@ -793,10 +793,11 @@ | |
| 793 | @ |
| 794 | @ wm withdraw . |
| 795 | @ wm title . $CFG(TITLE) |
| 796 | @ wm iconname . $CFG(TITLE) |
| 797 | @ bind . <q> exit |
| 798 | @ bind . <Tab> {cycleDiffs; break} |
| 799 | @ bind . <<PrevWindow>> {cycleDiffs 1; break} |
| 800 | @ bind . <Return> { |
| 801 | @ event generate .files <1> |
| 802 | @ event generate .files <ButtonRelease-1> |
| 803 |
| --- src/diffcmd.c | |
| +++ src/diffcmd.c | |
| @@ -774,11 +774,11 @@ | |
| 774 | @ grid remove $sb |
| 775 | @ } |
| 776 | @ } |
| 777 | @ enableSync x |
| 778 | @ } |
| 779 | @ |
| 780 | @ proc sync-y {first last} { |
| 781 | @ disableSync y |
| 782 | @ foreach c [cols] { |
| 783 | @ $c yview moveto $first |
| 784 | @ } |
| @@ -793,10 +793,11 @@ | |
| 793 | @ |
| 794 | @ wm withdraw . |
| 795 | @ wm title . $CFG(TITLE) |
| 796 | @ wm iconname . $CFG(TITLE) |
| 797 | @ bind . <q> exit |
| 798 | @ bind . <Destroy> exit |
| 799 | @ bind . <Tab> {cycleDiffs; break} |
| 800 | @ bind . <<PrevWindow>> {cycleDiffs 1; break} |
| 801 | @ bind . <Return> { |
| 802 | @ event generate .files <1> |
| 803 | @ event generate .files <ButtonRelease-1> |
| 804 |