diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-27 09:03:52 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-27 09:03:52 (GMT) |
| commit | 6b9644385baee27d5ba75428742465526018df91 (patch) | |
| tree | f7c918fb5ce3526ce06ce62bd7b67386d05fbf60 /tests/clrpick.test | |
| parent | 6949e8ec85570fe55ac46b25f78e2455683078ac (diff) | |
| download | tk-6b9644385baee27d5ba75428742465526018df91.zip tk-6b9644385baee27d5ba75428742465526018df91.tar.gz tk-6b9644385baee27d5ba75428742465526018df91.tar.bz2 | |
In test-cases same optimization as everywhere else: KeyPress -> Key and ButtonPress -> Button.
Diffstat (limited to 'tests/clrpick.test')
| -rw-r--r-- | tests/clrpick.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/clrpick.test b/tests/clrpick.test index c15308b..0900962 100644 --- a/tests/clrpick.test +++ b/tests/clrpick.test @@ -97,7 +97,7 @@ proc ToChooseColorByKey {parent r g b} { 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 } @@ -137,7 +137,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 } } |