diff options
Diffstat (limited to 'tests/choosedir.test')
-rw-r--r-- | tests/choosedir.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/choosedir.test b/tests/choosedir.test index f67a721..c6cc632 100644 --- a/tests/choosedir.test +++ b/tests/choosedir.test @@ -26,7 +26,7 @@ proc ToEnterDirsByKey {parent dirs} { proc PressButton {btn} { event generate $btn <Enter> - event generate $btn <1> -x 5 -y 5 + event generate $btn <Button-1> -x 5 -y 5 event generate $btn <ButtonRelease-1> -x 5 -y 5 } @@ -68,7 +68,7 @@ proc SendButtonPress {parent btn type} { event generate $w <Enter> focus $w event generate $button <Enter> - event generate $w <KeyPress> -keysym Return + event generate $w <Key> -keysym Return } } |