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/scale.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/scale.test')
| -rw-r--r-- | tests/scale.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/scale.test b/tests/scale.test index 34f2cd9..955092b 100644 --- a/tests/scale.test +++ b/tests/scale.test @@ -1364,7 +1364,7 @@ test scale-18.2 {Scale button 1 events [Bug 787065]} -setup { pack .s tkwait visibility .s list [catch { - event generate .s <1> -x 0 -y 0 + event generate .s <Button-1> -x 0 -y 0 event generate .s <ButtonRelease-1> -x 0 -y 0 update set ::error @@ -1385,7 +1385,7 @@ test scale-18.3 {Scale button 2 events [Bug 787065]} -setup { pack .s tkwait visibility .s list [catch { - event generate .s <2> -x 0 -y 0 + event generate .s <Button-2> -x 0 -y 0 event generate .s <ButtonRelease-2> -x 0 -y 0 update set ::error @@ -1411,16 +1411,16 @@ test scale-19 {Bug [3529885fff] - Click in through goes in wrong direction} \ } \ -body { foreach {x y} [.s1 coord 50] {} - event generate .s1 <1> -x $x -y $y + event generate .s1 <Button-1> -x $x -y $y event generate .s1 <ButtonRelease-1> -x $x -y $y foreach {x y} [.s2 coord 50] {} - event generate .s2 <1> -x $x -y $y + event generate .s2 <Button-1> -x $x -y $y event generate .s2 <ButtonRelease-1> -x $x -y $y foreach {x y} [.s3 coord 50] {} - event generate .s3 <1> -x $x -y $y + event generate .s3 <Button-1> -x $x -y $y event generate .s3 <ButtonRelease-1> -x $x -y $y foreach {x y} [.s4 coord 50] {} - event generate .s4 <1> -x $x -y $y + event generate .s4 <Button-1> -x $x -y $y event generate .s4 <ButtonRelease-1> -x $x -y $y update list $x1 $x2 $x3 $x4 |