diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-10-25 21:06:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-10-25 21:06:25 (GMT) |
| commit | 0d5336db012f45753abace489f18f0ca299c6961 (patch) | |
| tree | b1bf3280a9046df99226158978502eeb26f5b0a3 /tests/dialog.test | |
| parent | e97381a6d921de403516d5b761539a450f4af83c (diff) | |
| parent | 1320b8a2a9c1269a345d44d673a7a35707fbbe9c (diff) | |
| download | tk-core-tip-626.zip tk-core-tip-626.tar.gz tk-core-tip-626.tar.bz2 | |
Merge 9.0core-tip-626
Diffstat (limited to 'tests/dialog.test')
| -rw-r--r-- | tests/dialog.test | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/tests/dialog.test b/tests/dialog.test index 692d928..a7c1ac9 100644 --- a/tests/dialog.test +++ b/tests/dialog.test @@ -21,12 +21,12 @@ test dialog-1.3 {tk_dialog command} -body { test dialog-2.1 {tk_dialog operation} -setup { proc PressButton {btn} { - if {![winfo ismapped $btn]} { - update - } - event generate $btn <Enter> - event generate $btn <Button-1> -x 5 -y 5 - event generate $btn <ButtonRelease-1> -x 5 -y 5 + if {![winfo ismapped $btn]} { + update + } + event generate $btn <Enter> + event generate $btn <Button-1> -x 5 -y 5 + event generate $btn <ButtonRelease-1> -x 5 -y 5 } } -body { set x [after 5000 [list set tk::Priv(button) "no response"]] @@ -39,9 +39,9 @@ test dialog-2.1 {tk_dialog operation} -setup { } -result 0 test dialog-2.2 {tk_dialog operation} -setup { proc HitReturn {w} { - event generate $w <Enter> - focus -force $w - event generate $w <Key> -keysym Return + event generate $w <Enter> + focus -force $w + event generate $w <Key> -keysym Return } } -body { set x [after 5000 [list set tk::Priv(button) "no response"]] |