Fossil SCM
Give window a chance to finish handling <Destroy> event.
Commit
d7b0617cb557c7a876216673585824470685392f
Parent
be267722ce229a0…
1 file changed
+1
-1
+1
-1
| --- src/diffcmd.c | ||
| +++ src/diffcmd.c | ||
| @@ -793,11 +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 | +@ bind . <Destroy> {after 0 exit} | |
| 799 | 799 | @ bind . <Tab> {cycleDiffs; break} |
| 800 | 800 | @ bind . <<PrevWindow>> {cycleDiffs 1; break} |
| 801 | 801 | @ bind . <Return> { |
| 802 | 802 | @ event generate .files <1> |
| 803 | 803 | @ event generate .files <ButtonRelease-1> |
| 804 | 804 |
| --- src/diffcmd.c | |
| +++ src/diffcmd.c | |
| @@ -793,11 +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 |
| --- src/diffcmd.c | |
| +++ src/diffcmd.c | |
| @@ -793,11 +793,11 @@ | |
| 793 | @ |
| 794 | @ wm withdraw . |
| 795 | @ wm title . $CFG(TITLE) |
| 796 | @ wm iconname . $CFG(TITLE) |
| 797 | @ bind . <q> exit |
| 798 | @ bind . <Destroy> {after 0 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 |