diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/bind.test | 1308 |
1 files changed, 657 insertions, 651 deletions
diff --git a/tests/bind.test b/tests/bind.test index 7054289..d568026 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: bind.test,v 1.24 2008/11/23 00:47:25 ferrieux Exp $ +# RCS: @(#) $Id: bind.test,v 1.25 2008/11/23 21:40:43 patthoyts Exp $ package require tcltest 2.2 namespace import ::tcltest::* @@ -195,7 +195,7 @@ test bind-4.1 {TkBindEventProc procedure} -setup { bind .t <Enter> {lappend x "%W enter .t"} bind .t.f <Enter> {lappend x "%W enter .t.f"} - event gen .t.f <Enter> + event generate .t.f <Enter> return $x } -cleanup { destroy .t.f @@ -216,7 +216,7 @@ test bind-4.2 {TkBindEventProc procedure} -setup { bind .t.f <Enter> {lappend x "%W enter .t.f"} bindtags .t.f {.t.f {a b} xyz} - event gen .t.f <Enter> + event generate .t.f <Enter> return $x } -cleanup { destroy .t.f @@ -231,7 +231,7 @@ test bind-4.3 {TkBindEventProc procedure} -body { bind {a b} <Enter> {lappend x "%W enter {a b}"} bind .t <Enter> {lappend x "%W enter .t"} - event gen .t <Enter> + event generate .t <Enter> return $x } -cleanup { unsetBindings @@ -254,7 +254,7 @@ test bind-4.4 {TkBindEventProc procedure} -setup { bindtags .t.f {.t.f .t.f2 .t.f3} bind .t.f <Enter> {lappend x "%W enter .t.f"} bind .t.f3 <Enter> {lappend x "%W enter .t.f3"} - event gen .t.f <Enter> + event generate .t.f <Enter> return $x } -cleanup { destroy .t.f .t.f3 @@ -275,7 +275,7 @@ test bind-4.5 {TkBindEventProc procedure} -setup { bind .t <Enter> {lappend x "%W enter .t"} bindtags .t.f {a b c d e f g h i j k l m n o p q r s t u v w x y z} - event gen .t.f <Enter> + event generate .t.f <Enter> } -cleanup { destroy .t.f unsetBindings @@ -318,7 +318,7 @@ test bind-6.2 {Tk_DeleteBindTable procedure: pending bindings deleted later} -co bind b <1> "lappend x b1" testcbind c <1> "lappend x c1" "lappend x bye.c1" testcbind c <2> "lappend x all2" "lappend x bye.all2" - event gen .g <1> + event generate .g <1> } set x [foo eval set x] return $x @@ -377,7 +377,7 @@ test bind-8.2 {TkCreateBindingProcedure: new binding} -constraints { set x {} } -body { testcbind .t.f <1> "lappend x 1" "lappend x bye.1" - event gen .t.f <1> + event generate .t.f <1> destroy .t.f return $x } -result {bye.1} @@ -404,7 +404,7 @@ test bind-8.4 {TkCreateBindingProcedure: replace existing while pending} -constr } -body { testcbind .t.f <1> "lappend x .t.f; testcbind Frame <1> {lappend x Frame}" testcbind Frame <1> "lappend x never" - event gen .t.f <1> + event generate .t.f <1> bind .t.f <1> {} return $x } -cleanup { @@ -461,7 +461,7 @@ test bind-9.4 {Tk_DeleteBinding procedure: pending bindings delete later} -const bind b <1> {lappend x b1} testcbind c <1> {lappend x c1} {lappend x bye.c1} testcbind c <2> {lappend x c2} {lappend x bye.c2} - event gen .t.f <1> + event generate .t.f <1> bind a <1> {} bind b <1> {} return $x @@ -543,11 +543,11 @@ test bind-12.3 {Tk_DeleteAllBindings procedure: pending bindings deleted later} update set x {} } -body { - testcbind .t.f <1> {lappend x before; event gen .t.f <2>; lappend x after} {lappend x bye.f1} + testcbind .t.f <1> {lappend x before; event generate .t.f <2>; lappend x after} {lappend x bye.f1} testcbind .t.f <2> {destroy .t.f} {lappend x bye.f2} bind .t.f <Destroy> {lappend x fDestroy} testcbind .t.f <3> {foo} {lappend x bye.f3} - event gen .t.f <1> + event generate .t.f <1> return $x } -cleanup { destroy .t.f @@ -560,23 +560,23 @@ test bind-13.1 {Tk_BindEvent procedure} -setup { update set x {} } -body { - bind Test <KeyPress> {lappend x "%W %K Test press any"} - bind all <KeyPress> {lappend x "%W %K all press any"} - bind Test a {lappend x "%W %K Test press a"} - bind all x {lappend x "%W %K all press x"} - bind .t.f a {lappend x "%W %K .t.f press a"} + bind Test <KeyPress> {lappend x "%W %K Test KeyPress"} + bind all <KeyPress> {lappend x "%W %K all KeyPress"} + bind Test : {lappend x "%W %K Test :"} + bind all _ {lappend x "%W %K all _"} + bind .t.f : {lappend x "%W %K .t.f :"} - event gen .t.f <Key-a> - event gen .t.f <Key-b> - event gen .t.f <Key-x> + event generate .t.f <Key-:> + event generate .t.f <Key-+> + event generate .t.f <Key-_> return $x } -cleanup { destroy .t.f bind all <KeyPress> {} bind Test <KeyPress> {} - bind all x {} - bind Test a {} -} -result {{.t.f a .t.f press a} {.t.f a Test press a} {.t.f a all press any} {.t.f b Test press any} {.t.f b all press any} {.t.f x Test press any} {.t.f x all press x}} + bind all _ {} + bind Test : {} +} -result {{.t.f colon .t.f :} {.t.f colon Test :} {.t.f colon all KeyPress} {.t.f plus Test KeyPress} {.t.f plus all KeyPress} {.t.f underscore Test KeyPress} {.t.f underscore all _}} test bind-13.2 {Tk_BindEvent procedure} -setup { frame .t.f -class Test -width 150 -height 100 @@ -587,15 +587,15 @@ test bind-13.2 {Tk_BindEvent procedure} -setup { } -body { bind Test <KeyPress> {lappend x "%W %K Test press any"; break} bind all <KeyPress> {continue; lappend x "%W %K all press any"} - bind .t.f b {lappend x "%W %K .t.f press a"} + bind .t.f : {lappend x "%W %K .t.f pressed colon"} - event gen .t.f <Key-b> + event generate .t.f <Key-colon> return $x } -cleanup { destroy .t.f bind all <KeyPress> {} bind Test <KeyPress> {} -} -result {{.t.f b .t.f press a} {.t.f b Test press any}} +} -result {{.t.f colon .t.f pressed colon} {.t.f colon Test press any}} test bind-13.3 {Tk_BindEvent procedure} -setup { proc bgerror args {} @@ -606,22 +606,22 @@ test bind-13.3 {Tk_BindEvent procedure} -setup { set x {} } -body { bind Test <KeyPress> {lappend x "%W %K Test press any"; error Test} - bind .t.f b {lappend x "%W %K .t.f press a"} - event gen .t.f <Key-b> + bind .t.f : {lappend x "%W %K .t.f pressed colon"} + event generate .t.f <Key-colon> update list $x $errorInfo } -cleanup { destroy .t.f bind Test <KeyPress> {} rename bgerror {} -} -result {{{.t.f b .t.f press a} {.t.f b Test press any}} {Test +} -result {{{.t.f colon .t.f pressed colon} {.t.f colon Test press any}} {Test while executing "error Test" (command bound to event)}} test bind-13.4 {Tk_BindEvent procedure} -setup { proc foo {} { set x 44 - event gen .t.f <Key-a> + event generate .t.f <Key-:> } frame .t.f -class Test -width 150 -height 100 pack .t.f @@ -629,14 +629,14 @@ test bind-13.4 {Tk_BindEvent procedure} -setup { update set x {} } -body { - bind Test a {lappend x "%W %K Test press a"} - bind .t.f a {lappend x "%W %K .t.f press a"} + bind Test : {lappend x "%W %K Test"} + bind .t.f : {lappend x "%W %K .t.f"} foo return $x } -cleanup { destroy .t.f - bind Test a {} -} -result {{.t.f a .t.f press a} {.t.f a Test press a}} + bind Test : {} +} -result {{.t.f colon .t.f} {.t.f colon Test}} test bind-13.5 {Tk_BindEvent procedure} -body { bind all <Destroy> {lappend x "%W destroyed"} @@ -661,16 +661,16 @@ test bind-13.7 {Tk_BindEvent procedure} -setup { update set x {} } -body { - bind .t.f z {lappend x "%W z (.t.f binding)"} - bind Test z {lappend x "%W z (.t.f binding)"} - bind all z {bind .t.f z {}; lappend x "%W z (.t.f binding)"} - event gen .t.f <Key-z> + bind .t.f : {lappend x "%W (.t.f binding)"} + bind Test : {lappend x "%W (Test binding)"} + bind all : {bind .t.f : {}; lappend x "%W (all binding)"} + event generate .t.f <Key-:> return $x } -cleanup { - bind Test z {} - bind all z {} + bind Test : {} + bind all : {} destroy .t.f -} -result {{.t.f z (.t.f binding)} {.t.f z (.t.f binding)} {.t.f z (.t.f binding)}} +} -result {{.t.f (.t.f binding)} {.t.f (Test binding)} {.t.f (all binding)}} test bind-13.8 {Tk_BindEvent procedure} -setup { frame .t.f -class Test -width 150 -height 100 pack .t.f @@ -678,16 +678,16 @@ test bind-13.8 {Tk_BindEvent procedure} -setup { update set x {} } -body { - bind .t.f z {lappend x "%W z (.t.f binding)"} - bind Test z {lappend x "%W z (.t.f binding)"} - bind all z {destroy .t.f; lappend x "%W z (.t.f binding)"} - event gen .t.f <Key-z> + bind .t.f : {lappend x "%W (.t.f binding)"} + bind Test : {lappend x "%W (Test binding)"} + bind all : {destroy .t.f; lappend x "%W (all binding)"} + event generate .t.f <Key-:> return $x } -cleanup { - bind Test z {} - bind all z {} + bind Test : {} + bind all : {} destroy .t.f -} -result {{.t.f z (.t.f binding)} {.t.f z (.t.f binding)} {.t.f z (.t.f binding)}} +} -result {{.t.f (.t.f binding)} {.t.f (Test binding)} {.t.f (all binding)}} test bind-13.9 {Tk_BindEvent procedure} -setup { frame .t.f -class Test -width 150 -height 100 @@ -698,8 +698,8 @@ test bind-13.9 {Tk_BindEvent procedure} -setup { } -body { bind .t.f <1> {lappend x "%W z (.t.f <1> binding)"} bind .t.f <ButtonPress> {lappend x "%W z (.t.f <ButtonPress> binding)"} - event gen .t.f <Button-1> - event gen .t.f <Button-2> + event generate .t.f <Button-1> + event generate .t.f <Button-2> return $x } -cleanup { destroy .t.f @@ -713,10 +713,10 @@ test bind-13.10 {Tk_BindEvent procedure: ignore NotifyInferior} -setup { } -body { bind .t.f <Enter> "lappend x Enter%#" bind .t.f <Leave> "lappend x Leave%#" - event gen .t.f <Enter> -serial 100 -detail NotifyAncestor - event gen .t.f <Enter> -serial 101 -detail NotifyInferior - event gen .t.f <Leave> -serial 102 -detail NotifyAncestor - event gen .t.f <Leave> -serial 103 -detail NotifyInferior + event generate .t.f <Enter> -serial 100 -detail NotifyAncestor + event generate .t.f <Enter> -serial 101 -detail NotifyInferior + event generate .t.f <Leave> -serial 102 -detail NotifyAncestor + event generate .t.f <Leave> -serial 103 -detail NotifyInferior return $x } -cleanup { destroy .t.f @@ -729,10 +729,10 @@ test bind-13.11 {Tk_BindEvent procedure: collapse Motions} -setup { set x {} } -body { bind .t.f <Motion> "lappend x Motion%#(%x,%y)" - event gen .t.f <Motion> -serial 100 -x 100 -y 200 -when tail + event generate .t.f <Motion> -serial 100 -x 100 -y 200 -when tail update - event gen .t.f <Motion> -serial 101 -x 200 -y 300 -when tail - event gen .t.f <Motion> -serial 102 -x 300 -y 400 -when tail + event generate .t.f <Motion> -serial 101 -x 200 -y 300 -when tail + event generate .t.f <Motion> -serial 102 -x 300 -y 400 -when tail update return $x } -cleanup { @@ -746,10 +746,10 @@ test bind-13.12 {Tk_BindEvent procedure: collapse repeating modifiers} -setup { } -body { bind .t.f <Key> "lappend x %K%#" bind .t.f <KeyRelease> "lappend x %K%#" - event gen .t.f <Key-Shift_L> -serial 100 -when tail - event gen .t.f <KeyRelease-Shift_L> -serial 101 -when tail - event gen .t.f <Key-Shift_L> -serial 102 -when tail - event gen .t.f <KeyRelease-Shift_L> -serial 103 -when tail + event generate .t.f <Key-Shift_L> -serial 100 -when tail + event generate .t.f <KeyRelease-Shift_L> -serial 101 -when tail + event generate .t.f <Key-Shift_L> -serial 102 -when tail + event generate .t.f <KeyRelease-Shift_L> -serial 103 -when tail update } -cleanup { destroy .t.f @@ -763,12 +763,12 @@ test bind-13.13 {Tk_BindEvent procedure: valid key detail} -setup { } -body { bind .t.f <Key> "lappend x Key%K" bind .t.f <KeyRelease> "lappend x Release%K" - event gen .t.f <Key> -keysym a - event gen .t.f <KeyRelease> -keysym a + event generate .t.f <Key> -keysym : + event generate .t.f <KeyRelease> -keysym : return $x } -cleanup { destroy .t.f -} -result {Keya Releasea} +} -result {Keycolon Releasecolon} test bind-13.14 {Tk_BindEvent procedure: invalid key detail} -setup { frame .t.f -class Test -width 150 -height 100 pack .t.f @@ -778,8 +778,8 @@ test bind-13.14 {Tk_BindEvent procedure: invalid key detail} -setup { } -body { bind .t.f <Key> "lappend x Key%K" bind .t.f <KeyRelease> "lappend x Release%K" - event gen .t.f <Key> -keycode 0 - event gen .t.f <KeyRelease> -keycode 0 + event generate .t.f <Key> -keycode 0 + event generate .t.f <KeyRelease> -keycode 0 return $x } -cleanup { destroy .t.f @@ -793,8 +793,8 @@ test bind-13.15 {Tk_BindEvent procedure: button detail} -setup { } -body { bind .t.f <Button> "lappend x Button%b" bind .t.f <ButtonRelease> "lappend x Release%b" - event gen .t.f <Button> -button 1 - event gen .t.f <ButtonRelease> -button 3 + event generate .t.f <Button> -button 1 + event generate .t.f <ButtonRelease> -button 3 set x } -cleanup { destroy .t.f @@ -807,7 +807,7 @@ test bind-13.16 {Tk_BindEvent procedure: virtual detail} -setup { set x {} } -body { bind .t.f <<Paste>> "lappend x Paste" - event gen .t.f <<Paste>> + event generate .t.f <<Paste>> return $x } -cleanup { destroy .t.f @@ -820,7 +820,7 @@ test bind-13.17 {Tk_BindEvent procedure: virtual event in event stream} -setup { set x {} } -body { bind .t.f <<Paste>> "lappend x Paste" - event gen .t.f <<Paste>> + event generate .t.f <<Paste>> return $x } -cleanup { destroy .t.f @@ -835,7 +835,7 @@ test bind-13.18 {Tk_BindEvent procedure: match detail physical} -setup { bind .t.f <Button-2> {set x Button-2} event add <<Paste>> <Button-2> bind .t.f <<Paste>> {set x Paste} - event gen .t.f <Button-2> + event generate .t.f <Button-2> return $x } -cleanup { destroy .t.f @@ -851,7 +851,7 @@ test bind-13.19 {Tk_BindEvent procedure: no match detail physical} -setup { } -body { event add <<Paste>> <Button-2> bind .t.f <<Paste>> {set x Paste} - event gen .t.f <Button-2> + event generate .t.f <Button-2> return $x } -cleanup { destroy .t.f @@ -866,7 +866,7 @@ test bind-13.20 {Tk_BindEvent procedure: match detail virtual} -setup { } -body { event add <<Paste>> <Button-2> bind .t.f <<Paste>> "lappend x Paste" - event gen .t.f <Button-2> + event generate .t.f <Button-2> return $x } -cleanup { destroy .t.f @@ -881,7 +881,7 @@ test bind-13.21 {Tk_BindEvent procedure: no match detail virtual} -setup { } -body { event add <<Paste>> <Button-2> bind .t.f <<Paste>> "lappend x Paste" - event gen .t.f <Button> + event generate .t.f <Button> return $x } -cleanup { destroy .t.f @@ -897,7 +897,7 @@ test bind-13.22 {Tk_BindEvent procedure: match no-detail physical} -setup { bind .t.f <Button> {set x Button} event add <<Paste>> <Button> bind .t.f <<Paste>> {set x Paste} - event gen .t.f <Button-2> + event generate .t.f <Button-2> return $x } -cleanup { destroy .t.f @@ -912,7 +912,7 @@ test bind-13.23 {Tk_BindEvent procedure: no match no-detail physical} -setup { } -body { event add <<Paste>> <Button> bind .t.f <<Paste>> {set x Paste} - event gen .t.f <Button-2> + event generate .t.f <Button-2> return $x } -cleanup { destroy .t.f @@ -927,7 +927,7 @@ test bind-13.24 {Tk_BindEvent procedure: match no-detail virtual} -setup { } -body { event add <<Paste>> <Button> bind .t.f <<Paste>> "lappend x Paste" - event gen .t.f <Button-2> + event generate .t.f <Button-2> return $x } -cleanup { destroy .t.f @@ -942,7 +942,7 @@ test bind-13.25 {Tk_BindEvent procedure: no match no-detail virtual} -setup { } -body { event add <<Paste>> <Key> bind .t.f <<Paste>> "lappend x Paste" - event gen .t.f <Button> + event generate .t.f <Button> return $x } -cleanup { destroy .t.f @@ -962,15 +962,15 @@ test bind-13.26 {Tk_BindEvent procedure: precedence} -setup { bind .t.f <Button> "lappend x Button" bind .t.f <<Copy>> "lappend x Copy" - event gen .t.f <Button-2> + event generate .t.f <Button-2> bind .t.f <Button-2> {} - event gen .t.f <Button-2> + event generate .t.f <Button-2> bind .t.f <<Paste>> {} - event gen .t.f <Button-2> + event generate .t.f <Button-2> bind .t.f <Button> {} - event gen .t.f <Button-2> + event generate .t.f <Button-2> bind .t.f <<Copy>> {} - event gen .t.f <Button-2> + event generate .t.f <Button-2> return $x } -cleanup { destroy .t.f @@ -985,7 +985,7 @@ test bind-13.27 {Tk_BindEvent procedure: no detail virtual pattern list} -setup set x {} } -body { bind .t.f <Button-2> {set x Button-2} - event gen .t.f <Button-2> + event generate .t.f <Button-2> return $x } -cleanup { destroy .t.f @@ -999,7 +999,7 @@ test bind-13.28 {Tk_BindEvent procedure: detail virtual pattern list} -setup { } -body { event add <<Paste>> <Button-2> bind .t.f <<Paste>> {set x Paste} - event gen .t.f <Button-2> + event generate .t.f <Button-2> return $x } -cleanup { destroy .t.f @@ -1013,7 +1013,7 @@ test bind-13.29 {Tk_BindEvent procedure: no no-detail virtual pattern list} -set set x {} } -body { bind .t.f <Button> {set x Button} - event gen .t.f <Button-2> + event generate .t.f <Button-2> return $x } -cleanup { destroy .t.f @@ -1027,7 +1027,7 @@ test bind-13.30 {Tk_BindEvent procedure: no-detail virtual pattern list} -setup } -body { event add <<Paste>> <Button> bind .t.f <<Paste>> {set x Paste} - event gen .t.f <Button-2> + event generate .t.f <Button-2> return $x } -cleanup { destroy .t.f @@ -1039,7 +1039,7 @@ test bind-13.31 {Tk_BindEvent procedure: no match} -setup { focus -force .t.f update } -body { - event gen .t.f <Button-2> + event generate .t.f <Button-2> } -cleanup { destroy .t.f } -result {} @@ -1051,7 +1051,7 @@ test bind-13.32 {Tk_BindEvent procedure: match} -setup { set x {} } -body { bind .t.f <Button-2> {set x Button-2} - event gen .t.f <Button-2> + event generate .t.f <Button-2> return $x } -cleanup { destroy .t.f @@ -1069,7 +1069,7 @@ test bind-13.33 {Tk_BindEvent procedure: many C bindings cause realloc} -constra foreach p [bindtags .t.f] { testcbind $p <1> "lappend x $p" } - event gen .t.f <1> + event generate .t.f <1> return $x } -cleanup { foreach p [bindtags .t.f] {bind $p <1> {}} @@ -1084,7 +1084,7 @@ test bind-13.34 {Tk_BindEvent procedure: multiple tags} -setup { } -body { bind .t.f <Button-2> {lappend x .t.f} bind Test <Button-2> {lappend x Button} - event gen .t.f <Button-2> + event generate .t.f <Button-2> return $x } -cleanup { destroy .t.f @@ -1100,7 +1100,7 @@ test bind-13.35 {Tk_BindEvent procedure: execute C binding} -constraints { set x {} } -body { testcbind .t.f <1> {lappend x 1} - event gen .t.f <1> + event generate .t.f <1> return $x } -cleanup { destroy .t.f @@ -1116,7 +1116,7 @@ test bind-13.36 {Tk_BindEvent procedure: pending list marked deleted} -constrain } -body { testcbind Test <1> {lappend x Test} {lappend x Deleted} bind .t.f <1> {lappend x .t.f; destroy .t.f} - event gen .t.f <1> + event generate .t.f <1> set y [list $x [bind Test]] return $y } -cleanup { @@ -1134,7 +1134,7 @@ test bind-13.37 {Tk_BindEvent procedure: C binding marked deleted} -constraints } -body { testcbind Test <1> {lappend x Test} {lappend x Deleted} bind .t.f <1> {lappend x .t.f; bind Test <1> {}; lappend x after} - event gen .t.f <1> + event generate .t.f <1> return $x } -cleanup { destroy .t.f @@ -1151,7 +1151,7 @@ test bind-13.38 {Tk_BindEvent procedure: C binding gets to run} -constraints { } -body { testcbind Test <1> {lappend x Test} bind .t.f <1> {lappend x .t.f} - event gen .t.f <1> + event generate .t.f <1> return $x } -cleanup { destroy .t.f @@ -1167,7 +1167,7 @@ test bind-13.39 {Tk_BindEvent procedure: C binding deleted, refcount == 0} -cons set x {} } -body { testcbind .t.f <1> {lappend x hi; bind .t.f <1> {}} {lappend x bye} - event gen .t.f <1> + event generate .t.f <1> return $x } -cleanup { destroy .t.f @@ -1187,12 +1187,12 @@ test bind-13.40 {Tk_BindEvent procedure: C binding deleted, refcount != 0} -cons bind .t.f <1> {} } else { set n [expr $n-1] - event gen .t.f <1> + event generate .t.f <1> } lappend x after$n } {lappend x Deleted} set n 3 - event gen .t.f <1> + event generate .t.f <1> return $x } -cleanup { destroy .t.f @@ -1206,7 +1206,7 @@ test bind-13.41 {Tk_BindEvent procedure: continue in script} -setup { } -body { bind .t.f <Button-2> {lappend x b1; continue; lappend x b2} bind Test <Button-2> {lappend x B1; continue; lappend x B2} - event gen .t.f <Button-2> + event generate .t.f <Button-2> return $x } -cleanup { destroy .t.f @@ -1223,7 +1223,7 @@ test bind-13.42 {Tk_BindEvent procedure: continue in script} -constraints { } -body { testcbind .t.f <Button-2> {lappend x b1; continue; lappend x b2} testcbind Test <Button-2> {lappend x B1; continue; lappend x B2} - event gen .t.f <Button-2> + event generate .t.f <Button-2> return $x } -cleanup { destroy .t.f @@ -1238,7 +1238,7 @@ test bind-13.43 {Tk_BindEvent procedure: break in script} -setup { } -body { bind .t.f <Button-2> {lappend x b1; break; lappend x b2} bind Test <Button-2> {lappend x B1; break; lappend x B2} - event gen .t.f <Button-2> + event generate .t.f <Button-2> return $x } -cleanup { destroy .t.f @@ -1255,7 +1255,7 @@ test bind-13.44 {Tk_BindEvent procedure: break in script} -constraints { } -body { testcbind .t.f <Button-2> {lappend x b1; break; lappend x b2} testcbind Test <Button-2> {lappend x B1; break; lappend x B2} - event gen .t.f <Button-2> + event generate .t.f <Button-2> return $x } -cleanup { destroy .t.f @@ -1276,7 +1276,7 @@ test bind-13.45 {Tk_BindEvent procedure: error in script} -setup { } -body { bind .t.f <Button-2> {lappend x b1; blap} bind Test <Button-2> {lappend x B1} - event gen .t.f <Button-2> + event generate .t.f <Button-2> update return $x } -cleanup { @@ -1299,7 +1299,7 @@ test bind-13.46 {Tk_BindEvent procedure: error in script} -constraints { } -body { testcbind .t.f <Button-2> {lappend x b1; blap} testcbind Test <Button-2> {lappend x B1} - event gen .t.f <Button-2> + event generate .t.f <Button-2> update return $x } -cleanup { @@ -1353,12 +1353,12 @@ test bind-14.3 {TkBindDeadWindow: pending C bindings} -constraints { testcbind b <1> "destroy .t.f; lappend x b1" "lappend x bye.t1" testcbind c <1> "lappend x c1" "lappend x bye.c1" testcbind d <1> "lappend x d1" "lappend x bye.d1" - bind a <2> "event gen .t.f <1>" + bind a <2> "event generate .t.f <1>" testcbind b <2> "lappend x b2" "lappend x bye.t2" testcbind c <2> "lappend x c2" "lappend x bye.d2" bind d <2> "lappend x d2" - testcbind a <3> "event gen .t.f <2>" - event gen .t.f <3> + testcbind a <3> "event generate .t.f <2>" + event generate .t.f <3> return $x } -cleanup { destroy .t.f @@ -1375,12 +1375,12 @@ test bind-15.1 {MatchPatterns procedure, ignoring type mismatches} -setup { focus -force .t.f update } -body { - bind .t.f ab {set x 1} + bind .t.f 12 {set x 1} set x 0 - event gen .t.f <Key-a> - event gen .t.f <KeyRelease-a> - event gen .t.f <Key-b> - event gen .t.f <KeyRelease-b> + event generate .t.f <Key-1> + event generate .t.f <KeyRelease-1> + event generate .t.f <Key-2> + event generate .t.f <KeyRelease-2> return $x } -cleanup { destroy .t.f @@ -1391,14 +1391,14 @@ test bind-15.2 {MatchPatterns procedure, ignoring type mismatches} -setup { focus -force .t.f update } -body { - bind .t.f ab {set x 1} + bind .t.f 12 {set x 1} set x 0 - event gen .t.f <Key-a> - event gen .t.f <Enter> - event gen .t.f <KeyRelease-a> - event gen .t.f <Leave> - event gen .t.f <Key-b> - event gen .t.f <KeyRelease-b> + event generate .t.f <Key-1> + event generate .t.f <Enter> + event generate .t.f <KeyRelease-1> + event generate .t.f <Leave> + event generate .t.f <Key-2> + event generate .t.f <KeyRelease-2> return $x } -cleanup { destroy .t.f @@ -1409,11 +1409,11 @@ test bind-15.3 {MatchPatterns procedure, ignoring type mismatches} -setup { focus -force .t.f update } -body { - bind .t.f ab {set x 1} + bind .t.f 12 {set x 1} set x 0 - event gen .t.f <Key-a> - event gen .t.f <Button-1> - event gen .t.f <Key-b> + event generate .t.f <Key-1> + event generate .t.f <Button-1> + event generate .t.f <Key-2> return $x } -cleanup { destroy .t.f @@ -1426,10 +1426,10 @@ test bind-15.4 {MatchPatterns procedure, ignoring type mismatches} -setup { } -body { bind .t.f <Double-1> {set x 1} set x 0 - event gen .t.f <Button-1> - event gen .t.f <ButtonRelease-1> - event gen .t.f <Button-1> - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-1> + event generate .t.f <ButtonRelease-1> + event generate .t.f <Button-1> + event generate .t.f <ButtonRelease-1> return $x } -cleanup { destroy .t.f @@ -1442,10 +1442,10 @@ test bind-15.5 {MatchPatterns procedure, ignoring type mismatches} -setup { } -body { bind .t.f <Double-ButtonRelease> {set x 1} set x 0 - event gen .t.f <Button-1> - event gen .t.f <ButtonRelease-1> - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> + event generate .t.f <Button-1> + event generate .t.f <ButtonRelease-1> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> return $x } -cleanup { destroy .t.f @@ -1458,11 +1458,11 @@ test bind-15.6 {MatchPatterns procedure, ignoring type mismatches} -setup { } -body { bind .t.f <Double-1> {set x 1} set x 0 - event gen .t.f <Button-1> - event gen .t.f <Key-a> - event gen .t.f <ButtonRelease-1> - event gen .t.f <Button-1> - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-1> + event generate .t.f <Key-a> + event generate .t.f <ButtonRelease-1> + event generate .t.f <Button-1> + event generate .t.f <ButtonRelease-1> return $x } -cleanup { destroy .t.f @@ -1475,11 +1475,11 @@ test bind-15.7 {MatchPatterns procedure, ignoring type mismatches} -setup { } -body { bind .t.f <Double-1> {set x 1} set x 0 - event gen .t.f <Button-1> - event gen .t.f <Key-Shift_L> - event gen .t.f <ButtonRelease-1> - event gen .t.f <Button-1> - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-1> + event generate .t.f <Key-Shift_L> + event generate .t.f <ButtonRelease-1> + event generate .t.f <Button-1> + event generate .t.f <ButtonRelease-1> return $x } -cleanup { destroy .t.f @@ -1492,9 +1492,9 @@ test bind-15.8 {MatchPatterns procedure, ignoring type mismatches} -setup { } -body { bind .t.f ab {set x 1} set x 0 - event gen .t.f <Key-a> - event gen .t.f <Key-c> - event gen .t.f <Key-b> + event generate .t.f <Key-a> + event generate .t.f <Key-c> + event generate .t.f <Key-b> return $x } -cleanup { destroy .t.f @@ -1507,7 +1507,7 @@ test bind-15.9 {MatchPatterns procedure, modifier checks} -setup { } -body { bind .t.f <M1-M2-Key> {set x 1} set x 0 - event gen .t.f <Key-a> -state 0x18 + event generate .t.f <Key-a> -state 0x18 return $x } -cleanup { destroy .t.f @@ -1520,7 +1520,7 @@ test bind-15.10 {MatchPatterns procedure, modifier checks} -setup { } -body { bind .t.f <M1-M2-Key> {set x 1} set x 0 - event gen .t.f <Key-a> -state 0xfc + event generate .t.f <Key-a> -state 0xfc return $x } -cleanup { destroy .t.f @@ -1533,7 +1533,7 @@ test bind-15.11 {MatchPatterns procedure, modifier checks} -setup { } -body { bind .t.f <M1-M2-Key> {set x 1} set x 0 - event gen .t.f <Key-a> -state 0x8 + event generate .t.f <Key-a> -state 0x8 return $x } -cleanup { destroy .t.f @@ -1550,9 +1550,9 @@ test bind-15.12 {MatchPatterns procedure, ignore modifier presses and releases} # differently on some platforms. bind .t.f aB {set x 1} set x 0 - event gen .t.f <Key-a> - event gen .t.f <Key-Shift_L> - event gen .t.f <Key-b> -state 1 + event generate .t.f <Key-a> + event generate .t.f <Key-Shift_L> + event generate .t.f <Key-b> -state 1 return $x } -cleanup { destroy .t.f @@ -1565,8 +1565,8 @@ test bind-15.13 {MatchPatterns procedure, checking detail} -setup { } -body { bind .t.f ab {set x 1} set x 0 - event gen .t.f <Key-a> - event gen .t.f <Key-c> + event generate .t.f <Key-a> + event generate .t.f <Key-c> return $x } -cleanup { destroy .t.f @@ -1579,11 +1579,11 @@ test bind-15.14 {MatchPatterns procedure, checking "nearby"} -setup { } -body { bind .t.f <Double-1> {set x 1} set x 0 - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.f <Button-1> -x 30 -y 40 - event gen .t.f <Button-1> -x 31 -y 39 - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.f <Button-1> -x 30 -y 40 + event generate .t.f <Button-1> -x 31 -y 39 + event generate .t.f <ButtonRelease-1> return $x } -cleanup { destroy .t.f @@ -1596,11 +1596,11 @@ test bind-15.15 {MatchPatterns procedure, checking "nearby"} -setup { } -body { bind .t.f <Double-1> {set x 1} set x 0 - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.f <Button-1> -x 30 -y 40 - event gen .t.f <Button-1> -x 29 -y 41 - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.f <Button-1> -x 30 -y 40 + event generate .t.f <Button-1> -x 29 -y 41 + event generate .t.f <ButtonRelease-1> return $x } -cleanup { destroy .t.f @@ -1613,11 +1613,11 @@ test bind-15.16 {MatchPatterns procedure, checking "nearby"} -setup { } -body { bind .t.f <Double-1> {set x 1} set x 0 - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.f <Button-1> -x 30 -y 40 - event gen .t.f <Button-1> -x 40 -y 40 - event gen .t.f <ButtonRelease-2> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.f <Button-1> -x 30 -y 40 + event generate .t.f <Button-1> -x 40 -y 40 + event generate .t.f <ButtonRelease-2> return $x } -cleanup { destroy .t.f @@ -1630,11 +1630,11 @@ test bind-15.17 {MatchPatterns procedure, checking "nearby"} -setup { } -body { bind .t.f <Double-1> {set x 1} set x 0 - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.f <Button-1> -x 30 -y 40 - event gen .t.f <Button-1> -x 20 -y 40 - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.f <Button-1> -x 30 -y 40 + event generate .t.f <Button-1> -x 20 -y 40 + event generate .t.f <ButtonRelease-1> return $x } -cleanup { destroy .t.f @@ -1647,11 +1647,11 @@ test bind-15.18 {MatchPatterns procedure, checking "nearby"} -setup { } -body { bind .t.f <Double-1> {set x 1} set x 0 - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.f <Button-1> -x 30 -y 40 - event gen .t.f <Button-1> -x 30 -y 30 - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.f <Button-1> -x 30 -y 40 + event generate .t.f <Button-1> -x 30 -y 30 + event generate .t.f <ButtonRelease-1> return $x } -cleanup { destroy .t.f @@ -1664,11 +1664,11 @@ test bind-15.19 {MatchPatterns procedure, checking "nearby"} -setup { } -body { bind .t.f <Double-1> {set x 1} set x 0 - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.f <Button-1> -x 30 -y 40 - event gen .t.f <Button-1> -x 30 -y 50 - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.f <Button-1> -x 30 -y 40 + event generate .t.f <Button-1> -x 30 -y 50 + event generate .t.f <ButtonRelease-1> return $x } -cleanup { destroy .t.f @@ -1681,11 +1681,11 @@ test bind-15.20 {MatchPatterns procedure, checking "nearby"} -setup { } -body { bind .t.f <Double-1> {set x 1} set x 0 - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.f <Button-1> -time 300 - event gen .t.f <Button-1> -time 700 - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.f <Button-1> -time 300 + event generate .t.f <Button-1> -time 700 + event generate .t.f <ButtonRelease-1> return $x } -cleanup { destroy .t.f @@ -1698,11 +1698,11 @@ test bind-15.21 {MatchPatterns procedure, checking "nearby"} -setup { } -body { bind .t.f <Double-1> {set x 1} set x 0 - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.f <Button-1> -time 300 - event gen .t.f <Button-1> -time 900 - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.f <Button-1> -time 300 + event generate .t.f <Button-1> -time 900 + event generate .t.f <ButtonRelease-1> return $x } -cleanup { destroy .t.f @@ -1715,9 +1715,9 @@ test bind-15.22 {MatchPatterns procedure, time wrap-around} -setup { } -body { bind .t.f <Double-1> {set x 1} set x 0 - event gen .t.f <Button-1> -time [expr -100] - event gen .t.f <Button-1> -time 200 - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-1> -time [expr -100] + event generate .t.f <Button-1> -time 200 + event generate .t.f <ButtonRelease-1> return $x } -cleanup { destroy .t.f @@ -1730,9 +1730,9 @@ test bind-15.23 {MatchPatterns procedure, time wrap-around} -setup { } -body { bind .t.f <Double-1> {set x 1} set x 0 - event gen .t.f <Button-1> -time -100 - event gen .t.f <Button-1> -time 500 - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-1> -time -100 + event generate .t.f <Button-1> -time 500 + event generate .t.f <ButtonRelease-1> return $x } -cleanup { destroy .t.f @@ -1747,8 +1747,8 @@ test bind-15.24 {MatchPatterns procedure, virtual event} -setup { } -body { event add <<Paste>> <Button-1> bind .t.f <<Paste>> {lappend x paste} - event gen .t.f <Button-1> - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-1> + event generate .t.f <ButtonRelease-1> set x } -cleanup { destroy .t.f @@ -1763,8 +1763,8 @@ test bind-15.25 {MatchPatterns procedure, reject a virtual event} -setup { } -body { event add <<Paste>> <Shift-Button-1> bind .t.f <<Paste>> {lappend x paste} - event gen .t.f <Button-1> - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-1> + event generate .t.f <ButtonRelease-1> set x } -cleanup { destroy .t.f @@ -1781,15 +1781,15 @@ test bind-15.26 {MatchPatterns procedure, reject a virtual event} -setup { event add <<V2>> <Button-1> event add <<V3>> <Shift-Button-1> bind .t.f <<V2>> "lappend x V2%#" - event gen .t.f <Button> -serial 101 - event gen .t.f <Button-1> -serial 102 - event gen .t.f <Shift-Button-1> -serial 103 - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button> -serial 101 + event generate .t.f <Button-1> -serial 102 + event generate .t.f <Shift-Button-1> -serial 103 + event generate .t.f <ButtonRelease-1> bind .t.f <Shift-Button-1> "lappend x Shift-Button-1" - event gen .t.f <Button> -serial 104 - event gen .t.f <Button-1> -serial 105 - event gen .t.f <Shift-Button-1> -serial 106 - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button> -serial 104 + event generate .t.f <Button-1> -serial 105 + event generate .t.f <Shift-Button-1> -serial 106 + event generate .t.f <ButtonRelease-1> set x } -cleanup { destroy .t.f @@ -1804,9 +1804,9 @@ test bind-15.27 {MatchPatterns procedure, conflict resolution} -setup { update } -body { bind .t.f <KeyPress> {set x 0} - bind .t.f a {set x 1} + bind .t.f 1 {set x 1} set x none - event gen .t.f <Key-a> + event generate .t.f <Key-1> return $x } -cleanup { destroy .t.f @@ -1818,9 +1818,9 @@ test bind-15.28 {MatchPatterns procedure, conflict resolution} -setup { update } -body { bind .t.f <KeyPress> {set x 0} - bind .t.f a {set x 1} + bind .t.f 1 {set x 1} set x none - event gen .t.f <Key-b> + event generate .t.f <Key-2> return $x } -cleanup { destroy .t.f @@ -1832,12 +1832,12 @@ test bind-15.29 {MatchPatterns procedure, conflict resolution} -setup { update } -body { bind .t.f <KeyPress> {lappend x 0} - bind .t.f a {lappend x 1} - bind .t.f ba {lappend x 2} + bind .t.f 1 {lappend x 1} + bind .t.f 21 {lappend x 2} set x none - event gen .t.f <Key-b> - event gen .t.f <KeyRelease-b> - event gen .t.f <Key-a> + event generate .t.f <Key-2> + event generate .t.f <KeyRelease-2> + event generate .t.f <Key-1> set x } -cleanup { destroy .t.f @@ -1851,8 +1851,8 @@ test bind-15.30 {MatchPatterns procedure, conflict resolution} -setup { bind .t.f <ButtonPress> {set x 0} bind .t.f <1> {set x 1} set x none - event gen .t.f <Button-1> - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-1> + event generate .t.f <ButtonRelease-1> return $x } -cleanup { destroy .t.f @@ -1866,7 +1866,7 @@ test bind-15.31 {MatchPatterns procedure, conflict resolution} -setup { } -body { bind .t.f <M1-Key> {set x 0} bind .t.f <M2-Key> {set x 1} - event gen .t.f <Key-a> -state 0x18 + event generate .t.f <Key-a> -state 0x18 return $x } -cleanup { destroy .t.f @@ -1880,7 +1880,7 @@ test bind-15.32 {MatchPatterns procedure, conflict resolution} -setup { bind .t.f <M2-Key> {set x 0} bind .t.f <M1-Key> {set x 1} set x none - event gen .t.f <Key-a> -state 0x18 + event generate .t.f <Key-a> -state 0x18 return $x } -cleanup { destroy .t.f @@ -1895,10 +1895,10 @@ test bind-15.33 {MatchPatterns procedure, conflict resolution} -setup { bind .t.f <1> {lappend x single} bind Test <1> {lappend x single(Test)} bind Test <Double-1> {lappend x double(Test)} - event gen .t.f <Button-1> - event gen .t.f <Button-1> - event gen .t.f <Button-1> - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-1> + event generate .t.f <Button-1> + event generate .t.f <Button-1> + event generate .t.f <ButtonRelease-1> set x } -cleanup { destroy .t.f @@ -1915,7 +1915,7 @@ test bind-16.1 {ExpandPercents procedure} -setup { } -body { bind .t.f <Enter> {set x abcd} set x none - event gen .t.f <Enter> + event generate .t.f <Enter> set x } -cleanup { destroy .t.f @@ -1928,7 +1928,7 @@ test bind-16.2 {ExpandPercents procedure} -setup { } -body { bind .t.f <Enter> {set x %#} set x none - event gen .t.f <Enter> -serial 1234 + event generate .t.f <Enter> -serial 1234 set x } -cleanup { destroy .t.f @@ -1941,7 +1941,7 @@ test bind-16.3 {ExpandPercents procedure} -setup { } -body { bind .t.f <Configure> {set x %a} set x none - event gen .t.f <Configure> -above .t -window .t.f + event generate .t.f <Configure> -above .t -window .t.f set x } -cleanup { destroy .t.f @@ -1954,8 +1954,8 @@ test bind-16.4 {ExpandPercents procedure} -setup { } -body { bind .t.f <Button> {set x %b} set x none - event gen .t.f <Button-3> - event gen .t.f <ButtonRelease-3> + event generate .t.f <Button-3> + event generate .t.f <ButtonRelease-3> set x } -cleanup { destroy .t.f @@ -1968,7 +1968,7 @@ test bind-16.5 {ExpandPercents procedure} -setup { } -body { bind .t.f <Expose> {set x %c} set x none - event gen .t.f <Expose> -count 47 + event generate .t.f <Expose> -count 47 set x } -cleanup { destroy .t.f @@ -1981,7 +1981,7 @@ test bind-16.6 {ExpandPercents procedure} -setup { } -body { bind .t.f <Enter> {set x %d} set x none - event gen .t.f <Enter> -detail NotifyAncestor + event generate .t.f <Enter> -detail NotifyAncestor set x } -cleanup { destroy .t.f @@ -1994,7 +1994,7 @@ test bind-16.7 {ExpandPercents procedure} -setup { } -body { bind .t.f <Enter> {set x %d} set x none - event gen .t.f <Enter> -detail NotifyVirtual + event generate .t.f <Enter> -detail NotifyVirtual set x } -cleanup { destroy .t.f @@ -2007,7 +2007,7 @@ test bind-16.8 {ExpandPercents procedure} -setup { } -body { bind .t.f <Enter> {set x %d} set x none - event gen .t.f <Enter> -detail NotifyNonlinear + event generate .t.f <Enter> -detail NotifyNonlinear set x } -cleanup { destroy .t.f @@ -2020,7 +2020,7 @@ test bind-16.9 {ExpandPercents procedure} -setup { } -body { bind .t.f <Enter> {set x %d} set x none - event gen .t.f <Enter> -detail NotifyNonlinearVirtual + event generate .t.f <Enter> -detail NotifyNonlinearVirtual set x } -cleanup { destroy .t.f @@ -2033,7 +2033,7 @@ test bind-16.10 {ExpandPercents procedure} -setup { } -body { bind .t.f <Enter> {set x %d} set x none - event gen .t.f <Enter> -detail NotifyPointer + event generate .t.f <Enter> -detail NotifyPointer set x } -cleanup { destroy .t.f @@ -2046,7 +2046,7 @@ test bind-16.11 {ExpandPercents procedure} -setup { } -body { bind .t.f <Enter> {set x %d} set x none - event gen .t.f <Enter> -detail NotifyPointerRoot + event generate .t.f <Enter> -detail NotifyPointerRoot set x } -cleanup { destroy .t.f @@ -2059,7 +2059,7 @@ test bind-16.12 {ExpandPercents procedure} -setup { } -body { bind .t.f <Enter> {set x %d} set x none - event gen .t.f <Enter> -detail NotifyDetailNone + event generate .t.f <Enter> -detail NotifyDetailNone set x } -cleanup { destroy .t.f @@ -2072,7 +2072,7 @@ test bind-16.13 {ExpandPercents procedure} -setup { } -body { bind .t.f <Enter> {set x %f} set x none - event gen .t.f <Enter> -focus 1 + event generate .t.f <Enter> -focus 1 return $x } -cleanup { destroy .t.f @@ -2085,7 +2085,7 @@ test bind-16.14 {ExpandPercents procedure} -setup { } -body { bind .t.f <Expose> {set x "%x %y %w %h"} set x none - event gen .t.f <Expose> -x 24 -y 18 -width 147 -height 61 + event generate .t.f <Expose> -x 24 -y 18 -width 147 -height 61 set x } -cleanup { destroy .t.f @@ -2098,7 +2098,7 @@ test bind-16.15 {ExpandPercents procedure} -setup { } -body { bind .t.f <Configure> {set x "%x %y %w %h"} set x none - event gen .t.f <Configure> -x 24 -y 18 -width 147 -height 61 -window .t.f + event generate .t.f <Configure> -x 24 -y 18 -width 147 -height 61 -window .t.f set x } -cleanup { destroy .t.f @@ -2111,7 +2111,7 @@ test bind-16.16 {ExpandPercents procedure} -setup { } -body { bind .t.f <Key> {set x "%k"} set x none - event gen .t.f <Key> -keycode 146 + event generate .t.f <Key> -keycode 146 set x } -cleanup { destroy .t.f @@ -2124,7 +2124,7 @@ test bind-16.17 {ExpandPercents procedure} -setup { } -body { bind .t.f <Enter> {set x "%m"} set x none - event gen .t.f <Enter> -mode NotifyNormal + event generate .t.f <Enter> -mode NotifyNormal set x } -cleanup { destroy .t.f @@ -2137,7 +2137,7 @@ test bind-16.18 {ExpandPercents procedure} -setup { } -body { bind .t.f <Enter> {set x "%m"} set x none - event gen .t.f <Enter> -mode NotifyGrab + event generate .t.f <Enter> -mode NotifyGrab set x } -cleanup { destroy .t.f @@ -2150,7 +2150,7 @@ test bind-16.19 {ExpandPercents procedure} -setup { } -body { bind .t.f <Enter> {set x "%m"} set x none - event gen .t.f <Enter> -mode NotifyUngrab + event generate .t.f <Enter> -mode NotifyUngrab set x } -cleanup { destroy .t.f @@ -2164,7 +2164,7 @@ test bind-16.20 {ExpandPercents procedure} -setup { } -body { bind .t.f <Enter> {set x "%m"} set x none - event gen .t.f <Enter> -mode NotifyWhileGrabbed + event generate .t.f <Enter> -mode NotifyWhileGrabbed set x } -cleanup { destroy .t.f @@ -2177,7 +2177,7 @@ test bind-16.21 {ExpandPercents procedure} -setup { } -body { bind .t.f <Map> {set x "%o"} set x none - event gen .t.f <Map> -override 1 -window .t.f + event generate .t.f <Map> -override 1 -window .t.f return $x } -cleanup { destroy .t.f @@ -2190,7 +2190,7 @@ test bind-16.22 {ExpandPercents procedure} -setup { } -body { bind .t.f <Reparent> {set x "%o"} set x none - event gen .t.f <Reparent> -override true -window .t.f + event generate .t.f <Reparent> -override true -window .t.f return $x } -cleanup { destroy .t.f @@ -2203,7 +2203,7 @@ test bind-16.23 {ExpandPercents procedure} -setup { } -body { bind .t.f <Configure> {set x "%o"} set x none - event gen .t.f <Configure> -override 1 -window .t.f + event generate .t.f <Configure> -override 1 -window .t.f return $x } -cleanup { destroy .t.f @@ -2216,7 +2216,7 @@ test bind-16.24 {ExpandPercents procedure} -setup { } -body { bind .t.f <Circulate> {set x "%p"} set x none - event gen .t.f <Circulate> -place PlaceOnTop -window .t.f + event generate .t.f <Circulate> -place PlaceOnTop -window .t.f set x } -cleanup { destroy .t.f @@ -2229,7 +2229,7 @@ test bind-16.25 {ExpandPercents procedure} -setup { } -body { bind .t.f <Circulate> {set x "%p"} set x none - event gen .t.f <Circulate> -place PlaceOnBottom -window .t.f + event generate .t.f <Circulate> -place PlaceOnBottom -window .t.f set x } -cleanup { destroy .t.f @@ -2242,8 +2242,8 @@ test bind-16.26 {ExpandPercents procedure} -setup { } -body { bind .t.f <1> {set x "%s"} set x none - event gen .t.f <Button-1> -state 1402 - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-1> -state 1402 + event generate .t.f <ButtonRelease-1> set x } -cleanup { destroy .t.f @@ -2256,7 +2256,7 @@ test bind-16.27 {ExpandPercents procedure} -setup { } -body { bind .t.f <Enter> {set x "%s"} set x none - event gen .t.f <Enter> -state 0x3ff + event generate .t.f <Enter> -state 0x3ff set x } -cleanup { destroy .t.f @@ -2269,7 +2269,7 @@ test bind-16.28 {ExpandPercents procedure} -setup { } -body { bind .t.f <Visibility> {set x "%s"} set x none - event gen .t.f <Visibility> -state VisibilityPartiallyObscured + event generate .t.f <Visibility> -state VisibilityPartiallyObscured set x } -cleanup { destroy .t.f @@ -2282,7 +2282,7 @@ test bind-16.29 {ExpandPercents procedure} -setup { } -body { bind .t.f <Visibility> {set x "%s"} set x none - event gen .t.f <Visibility> -state VisibilityUnobscured + event generate .t.f <Visibility> -state VisibilityUnobscured set x } -cleanup { destroy .t.f @@ -2295,7 +2295,7 @@ test bind-16.30 {ExpandPercents procedure} -setup { } -body { bind .t.f <Visibility> {set x "%s"} set x none - event gen .t.f <Visibility> -state VisibilityFullyObscured + event generate .t.f <Visibility> -state VisibilityFullyObscured set x } -cleanup { destroy .t.f @@ -2308,8 +2308,8 @@ test bind-16.31 {ExpandPercents procedure} -setup { } -body { bind .t.f <Button> {set x "%t"} set x none - event gen .t.f <Button> -time 4294 - event gen .t.f <ButtonRelease> + event generate .t.f <Button> -time 4294 + event generate .t.f <ButtonRelease> set x } -cleanup { destroy .t.f @@ -2322,8 +2322,8 @@ test bind-16.32 {ExpandPercents procedure} -setup { } -body { bind .t.f <Button> {set x "%x %y"} set x none - event gen .t.f <Button> -x 881 -y 432 - event gen .t.f <ButtonRelease> + event generate .t.f <Button> -x 881 -y 432 + event generate .t.f <ButtonRelease> set x } -cleanup { destroy .t.f @@ -2336,7 +2336,7 @@ test bind-16.33 {ExpandPercents procedure} -setup { } -body { bind .t.f <Reparent> {set x "%x %y"} set x none - event gen .t.f <Reparent> -x 882 -y 431 -window .t.f + event generate .t.f <Reparent> -x 882 -y 431 -window .t.f set x } -cleanup { destroy .t.f @@ -2349,7 +2349,7 @@ test bind-16.34 {ExpandPercents procedure} -setup { } -body { bind .t.f <Enter> {set x "%x %y"} set x none - event gen .t.f <Enter> -x 781 -y 632 + event generate .t.f <Enter> -x 781 -y 632 set x } -cleanup { destroy .t.f @@ -2364,18 +2364,18 @@ test bind-16.35 {ExpandPercents procedure} -constraints { set x {} } -body { bind .t.f <Key> {lappend x "%A"} - event gen .t.f <Key-a> - event gen .t.f <Key-A> -state 1 - event gen .t.f <Key-Tab> - event gen .t.f <Key-Return> - event gen .t.f <Key-F1> - event gen .t.f <Key-Shift_L> - event gen .t.f <Key-space> - event gen .t.f <Key-dollar> -state 1 - event gen .t.f <Key-braceleft> -state 1 - event gen .t.f <Key-Multi_key> - event gen .t.f <Key-e> - event gen .t.f <Key-apostrophe> + event generate .t.f <Key-a> + event generate .t.f <Key-A> -state 1 + event generate .t.f <Key-Tab> + event generate .t.f <Key-Return> + event generate .t.f <Key-F1> + event generate .t.f <Key-Shift_L> + event generate .t.f <Key-space> + event generate .t.f <Key-dollar> -state 1 + event generate .t.f <Key-braceleft> -state 1 + event generate .t.f <Key-Multi_key> + event generate .t.f <Key-e> + event generate .t.f <Key-apostrophe> set x } -cleanup { destroy .t.f @@ -2388,7 +2388,7 @@ test bind-16.36 {ExpandPercents procedure} -setup { } -body { bind .t.f <Configure> {set x "%B"} set x none - event gen .t.f <Configure> -borderwidth 24 -window .t.f + event generate .t.f <Configure> -borderwidth 24 -window .t.f set x } -cleanup { destroy .t.f @@ -2401,7 +2401,7 @@ test bind-16.37 {ExpandPercents procedure} -setup { } -body { bind .t.f <Enter> {set x "%E"} set x none - event gen .t.f <Enter> -sendevent 1 + event generate .t.f <Enter> -sendevent 1 return $x } -cleanup { destroy .t.f @@ -2416,14 +2416,14 @@ test bind-16.38 {ExpandPercents procedure} -constraints { set x {} } -body { bind .t.f <Key> {lappend x %K} - event gen .t.f <Key-a> - event gen .t.f <Key-A> -state 1 - event gen .t.f <Key-Tab> - event gen .t.f <Key-F1> - event gen .t.f <Key-Shift_L> - event gen .t.f <Key-space> - event gen .t.f <Key-dollar> -state 1 - event gen .t.f <Key-braceleft> -state 1 + event generate .t.f <Key-a> + event generate .t.f <Key-A> -state 1 + event generate .t.f <Key-Tab> + event generate .t.f <Key-F1> + event generate .t.f <Key-Shift_L> + event generate .t.f <Key-space> + event generate .t.f <Key-dollar> -state 1 + event generate .t.f <Key-braceleft> -state 1 set x } -cleanup { destroy .t.f @@ -2436,11 +2436,11 @@ test bind-16.39 {ExpandPercents procedure} -setup { } -body { bind .t.f <Key> {set x "%N"} set x none - event gen .t.f <Key-a> + event generate .t.f <Key-space> set x } -cleanup { destroy .t.f -} -result {97} +} -result {32} test bind-16.40 {ExpandPercents procedure} -setup { frame .t.f -class Test -width 150 -height 100 pack .t.f @@ -2449,7 +2449,7 @@ test bind-16.40 {ExpandPercents procedure} -setup { } -body { bind .t.f <Key> {set x "%S"} set x none - event gen .t.f <Key-a> -subwindow .t + event generate .t.f <Key-space> -subwindow .t set x } -cleanup { destroy .t.f @@ -2462,7 +2462,7 @@ test bind-16.41 {ExpandPercents procedure} -setup { } -body { bind .t.f <Key> {set x "%T"} set x none - event gen .t.f <Key> + event generate .t.f <Key> set x } -cleanup { destroy .t.f @@ -2476,7 +2476,7 @@ test bind-16.42 {ExpandPercents procedure} -setup { } -body { bind .t.f <Key> {set x "%W"} set x none - event gen .t.f <Key> + event generate .t.f <Key> set x } -cleanup { destroy .t.f @@ -2489,8 +2489,8 @@ test bind-16.43 {ExpandPercents procedure} -setup { } -body { bind .t.f <Button> {set x "%X %Y"} set x none - event gen .t.f <Button> -rootx 422 -rooty 13 - event gen .t.f <ButtonRelease> + event generate .t.f <Button> -rootx 422 -rooty 13 + event generate .t.f <ButtonRelease> set x } -cleanup { destroy .t.f @@ -2503,7 +2503,7 @@ test bind-16.44 {ExpandPercents procedure} -setup { } -body { bind .t.f <Gravity> {set x "%R %S"} set x none - event gen .t.f <Gravity> + event generate .t.f <Gravity> set x } -cleanup { destroy .t.f @@ -2743,11 +2743,11 @@ test bind-19.11 {DeleteVirtualEvent procedure: owned by 1, only} -setup { } -body { event add <<xyz>> <Button-2> bind .t.f <<xyz>> {lappend x %#} - event gen .t.f <Button-2> -serial 101 - event gen .t.f <ButtonRelease-2> + event generate .t.f <Button-2> -serial 101 + event generate .t.f <ButtonRelease-2> event delete <<xyz>> - event gen .t.f <Button-2> -serial 102 - event gen .t.f <ButtonRelease-2> + event generate .t.f <Button-2> -serial 102 + event generate .t.f <ButtonRelease-2> set x } -cleanup { destroy .t.f @@ -2765,15 +2765,15 @@ test bind-19.12 {DeleteVirtualEvent procedure: owned by 1, first in chain} -setu event add <<xyz>> <Button-2> bind .t.f <<xyz>> {lappend x xyz} bind .t.f <<abc>> {lappend x abc} - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.f <Control-Button-2> - event gen .t.f <Control-ButtonRelease-2> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.f <Control-Button-2> + event generate .t.f <Control-ButtonRelease-2> event delete <<xyz>> - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.f <Control-Button-2> - event gen .t.f <Control-ButtonRelease-2> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.f <Control-Button-2> + event generate .t.f <Control-ButtonRelease-2> list $x [event info <<abc>>] } -cleanup { destroy .t.f @@ -2795,19 +2795,19 @@ test bind-19.13 {DeleteVirtualEvent procedure: owned by 1, second in chain} -set bind .t.f <<xyz>> {lappend x xyz} bind .t.f <<abc>> {lappend x abc} bind .t.f <<def>> {lappend x def} - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.f <Control-Button-2> - event gen .t.f <Control-ButtonRelease-2> - event gen .t.f <Shift-Button-2> - event gen .t.f <Shift-ButtonRelease-2> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.f <Control-Button-2> + event generate .t.f <Control-ButtonRelease-2> + event generate .t.f <Shift-Button-2> + event generate .t.f <Shift-ButtonRelease-2> event delete <<xyz>> - event gen .t.f <Button-2> - event gen .t.f <Control-Button-2> - event gen .t.f <Shift-Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.f <Control-ButtonRelease-2> - event gen .t.f <Shift-ButtonRelease-2> + event generate .t.f <Button-2> + event generate .t.f <Control-Button-2> + event generate .t.f <Shift-Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.f <Control-ButtonRelease-2> + event generate .t.f <Shift-ButtonRelease-2> list $x [event info <<def>>] [event info <<xyz>>] [event info <<abc>>] } -cleanup { destroy .t.f @@ -2830,19 +2830,19 @@ test bind-19.14 {DeleteVirtualEvent procedure: owned by 1, last in chain} -setup bind .t.f <<xyz>> {lappend x xyz} bind .t.f <<abc>> {lappend x abc} bind .t.f <<def>> {lappend x def} - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.f <Control-Button-2> - event gen .t.f <Control-ButtonRelease-2> - event gen .t.f <Shift-Button-2> - event gen .t.f <Shift-ButtonRelease-2> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.f <Control-Button-2> + event generate .t.f <Control-ButtonRelease-2> + event generate .t.f <Shift-Button-2> + event generate .t.f <Shift-ButtonRelease-2> event delete <<xyz>> - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.f <Control-Button-2> - event gen .t.f <Control-ButtonRelease-2> - event gen .t.f <Shift-Button-2> - event gen .t.f <Shift-ButtonRelease-2> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.f <Control-Button-2> + event generate .t.f <Control-ButtonRelease-2> + event generate .t.f <Shift-Button-2> + event generate .t.f <Shift-ButtonRelease-2> list $x [event info <<xyz>>] [event info <<abc>>] [event info <<def>>] } -cleanup { destroy .t.f @@ -2866,19 +2866,19 @@ test bind-19.15 {DeleteVirtualEvent procedure: owned by many, first} -setup { bind .t.f <<xyz>> {lappend x xyz} bind .t.g <<abc>> {lappend x abc} bind .t.h <<def>> {lappend x def} - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.g <Button-2> - event gen .t.g <ButtonRelease-2> - event gen .t.h <Button-2> - event gen .t.h <ButtonRelease-2> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.g <Button-2> + event generate .t.g <ButtonRelease-2> + event generate .t.h <Button-2> + event generate .t.h <ButtonRelease-2> event delete <<xyz>> - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.g <Button-2> - event gen .t.g <ButtonRelease-2> - event gen .t.h <Button-2> - event gen .t.h <ButtonRelease-2> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.g <Button-2> + event generate .t.g <ButtonRelease-2> + event generate .t.h <Button-2> + event generate .t.h <ButtonRelease-2> list $x [event info <<xyz>>] [event info <<abc>>] [event info <<def>>] } -cleanup { destroy .t.f .t.g .t.h @@ -2902,19 +2902,19 @@ test bind-19.16 {DeleteVirtualEvent procedure: owned by many, middle} -setup { bind .t.f <<xyz>> {lappend x xyz} bind .t.g <<abc>> {lappend x abc} bind .t.h <<def>> {lappend x def} - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.g <Button-2> - event gen .t.g <ButtonRelease-2> - event gen .t.h <Button-2> - event gen .t.h <ButtonRelease-2> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.g <Button-2> + event generate .t.g <ButtonRelease-2> + event generate .t.h <Button-2> + event generate .t.h <ButtonRelease-2> event delete <<abc>> - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.g <Button-2> - event gen .t.g <ButtonRelease-2> - event gen .t.h <Button-2> - event gen .t.h <ButtonRelease-2> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.g <Button-2> + event generate .t.g <ButtonRelease-2> + event generate .t.h <Button-2> + event generate .t.h <ButtonRelease-2> list $x [event info <<xyz>>] [event info <<abc>>] [event info <<def>>] } -cleanup { destroy .t.f .t.g .t.h @@ -2938,19 +2938,19 @@ test bind-19.17 {DeleteVirtualEvent procedure: owned by many, last} -setup { bind .t.f <<xyz>> {lappend x xyz} bind .t.g <<abc>> {lappend x abc} bind .t.h <<def>> {lappend x def} - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.g <Button-2> - event gen .t.g <ButtonRelease-2> - event gen .t.h <Button-2> - event gen .t.h <ButtonRelease-2> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.g <Button-2> + event generate .t.g <ButtonRelease-2> + event generate .t.h <Button-2> + event generate .t.h <ButtonRelease-2> event delete <<def>> - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.g <Button-2> - event gen .t.g <ButtonRelease-2> - event gen .t.h <Button-2> - event gen .t.h <ButtonRelease-2> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.g <Button-2> + event generate .t.g <ButtonRelease-2> + event generate .t.h <Button-2> + event generate .t.h <ButtonRelease-2> list $x [event info <<xyz>>] [event info <<abc>>] [event info <<def>>] } -cleanup { destroy .t.f .t.g .t.h @@ -3011,13 +3011,13 @@ test bind-21.3 {GetAllVirtualEvents procedure: many events} -body { test bind-22.1 {HandleEventGenerate} -setup { destroy .xyz } -body { - event gen .xyz <Control-v> + event generate .xyz <Control-v> } -returnCodes error -result {bad window path name ".xyz"} test bind-22.2 {HandleEventGenerate} -body { - event gen zzz <Control-v> + event generate zzz <Control-v> } -returnCodes error -result {bad window name/identifier "zzz"} test bind-22.3 {HandleEventGenerate} -body { - event gen 47 <Control-v> + event generate 47 <Control-v> } -returnCodes error -result {bad window name/identifier "47"} test bind-22.4 {HandleEventGenerate} -setup { frame .t.f -class Test -width 150 -height 100 @@ -3027,22 +3027,22 @@ test bind-22.4 {HandleEventGenerate} -setup { set x {} } -body { bind .t.f <Button> {set x "%s %b"} - event gen [winfo id .t.f] <Control-Button-1> -state 260 + event generate [winfo id .t.f] <Control-Button-1> -state 260 set x } -cleanup { destroy .t.f } -result {260 1} test bind-22.5 {HandleEventGenerate} -body { - event gen . <xyz> + event generate . <xyz> } -returnCodes error -result {bad event type or keysym "xyz"} test bind-22.6 {HandleEventGenerate} -body { - event gen . <Double-Button-1> + event generate . <Double-Button-1> } -returnCodes error -result {Double or Triple modifier not allowed} test bind-22.7 {HandleEventGenerate} -body { - event gen . xyz + event generate . xyz } -returnCodes error -result {only one event specification allowed} test bind-22.8 {HandleEventGenerate} -body { - event gen . <Button> -button + event generate . <Button> -button } -returnCodes error -result {value for "-button" missing} test bind-22.9 {HandleEventGenerate} -setup { frame .t.f -class Test -width 150 -height 100 @@ -3052,11 +3052,11 @@ test bind-22.9 {HandleEventGenerate} -setup { set x {} } -body { bind .t.f <Button> {set x "%s %b"} - event gen .t.f <ButtonRelease-1> - event gen .t.f <ButtonRelease-2> - event gen .t.f <ButtonRelease-3> - event gen .t.f <Control-Button-1> - event gen .t.f <Control-ButtonRelease-1> + event generate .t.f <ButtonRelease-1> + event generate .t.f <ButtonRelease-2> + event generate .t.f <ButtonRelease-3> + event generate .t.f <Control-Button-1> + event generate .t.f <Control-ButtonRelease-1> set x } -cleanup { destroy .t.f @@ -3069,7 +3069,7 @@ test bind-22.10 {HandleEventGenerate} -setup { set x {} } -body { bind .t.f <Key> {set x "%s %K"} - event gen .t.f <Control-Key-space> + event generate .t.f <Control-Key-space> set x } -cleanup { destroy .t.f @@ -3082,7 +3082,7 @@ test bind-22.11 {HandleEventGenerate} -setup { set x {} } -body { bind .t.f <<Paste>> {set x "%s"} - event gen .t.f <<Paste>> -state 1 + event generate .t.f <<Paste>> -state 1 set x } -cleanup { destroy .t.f @@ -3095,7 +3095,7 @@ test bind-22.12 {HandleEventGenerate} -setup { set x {} } -body { bind .t.f <Motion> {set x "%s"} - event gen .t.f <Control-Motion> + event generate .t.f <Control-Motion> set x } -cleanup { destroy .t.f @@ -3108,8 +3108,8 @@ test bind-22.13 {HandleEventGenerate} -setup { set x {} } -body { bind .t.f <Button> {lappend x %#} - event gen .t.f <Button> -when now -serial 100 - event gen .t.f <ButtonRelease> -when now + event generate .t.f <Button> -when now -serial 100 + event generate .t.f <ButtonRelease> -when now set x } -cleanup { destroy .t.f @@ -3122,10 +3122,10 @@ test bind-22.14 {HandleEventGenerate} -setup { set x {} } -body { bind .t.f <Button> {lappend x %#} - event gen .t.f <Button> -when head -serial 100 - event gen .t.f <Button> -when head -serial 101 - event gen .t.f <Button> -when head -serial 102 - event gen .t.f <ButtonRelease> -when tail + event generate .t.f <Button> -when head -serial 100 + event generate .t.f <Button> -when head -serial 101 + event generate .t.f <Button> -when head -serial 102 + event generate .t.f <ButtonRelease> -when tail lappend x foo update set x @@ -3140,11 +3140,11 @@ test bind-22.15 {HandleEventGenerate} -setup { set x {} } -body { bind .t.f <Button> {lappend x %#} - event gen .t.f <Button> -when head -serial 99 - event gen .t.f <Button> -when mark -serial 100 - event gen .t.f <Button> -when mark -serial 101 - event gen .t.f <Button> -when mark -serial 102 - event gen .t.f <ButtonRelease> -when tail + event generate .t.f <Button> -when head -serial 99 + event generate .t.f <Button> -when mark -serial 100 + event generate .t.f <Button> -when mark -serial 101 + event generate .t.f <Button> -when mark -serial 102 + event generate .t.f <ButtonRelease> -when tail lappend x foo update set x @@ -3159,11 +3159,11 @@ test bind-22.16 {HandleEventGenerate} -setup { set x {} } -body { bind .t.f <Button> {lappend x %#} - event gen .t.f <Button> -when head -serial 99 - event gen .t.f <Button> -when tail -serial 100 - event gen .t.f <Button> -when tail -serial 101 - event gen .t.f <Button> -when tail -serial 102 - event gen .t.f <ButtonRelease> -when tail + event generate .t.f <Button> -when head -serial 99 + event generate .t.f <Button> -when tail -serial 100 + event generate .t.f <Button> -when tail -serial 101 + event generate .t.f <Button> -when tail -serial 102 + event generate .t.f <ButtonRelease> -when tail lappend x foo update set x @@ -3171,11 +3171,11 @@ test bind-22.16 {HandleEventGenerate} -setup { destroy .t.f } -result {foo 99 100 101 102} test bind-22.17 {HandleEventGenerate} -body { - event gen . <Button> -when xyz + event generate . <Button> -when xyz } -returnCodes error -result {bad -when value "xyz": must be now, head, mark, or tail} test bind-22.18 {HandleEventGenerate} -body { # Bug 411307 - event gen . <a> -root 98765 + event generate . <a> -root 98765 } -returnCodes error -result {bad window name/identifier "98765"} test bind-22.19 {HandleEventGenerate: options <Configure> -above .xyz} -setup { @@ -3186,7 +3186,7 @@ test bind-22.19 {HandleEventGenerate: options <Configure> -above .xyz} -setup { set x {} } -body { bind .t.f <Configure> "lappend x %a" - event gen .t.f <Configure> -above .xyz + event generate .t.f <Configure> -above .xyz } -cleanup { destroy .t.f } -returnCodes error -result {bad window path name ".xyz"} @@ -3198,7 +3198,7 @@ test bind-22.20 {HandleEventGenerate: options <Configure> -above .t} -setup { set x {} } -body { bind .t.f <Configure> "lappend x %a" - event gen .t.f <Configure> -above .t + event generate .t.f <Configure> -above .t return $x } -cleanup { destroy .t.f @@ -3211,7 +3211,7 @@ test bind-22.21 {HandleEventGenerate: options <Configure> -above xyz} -setup { set x {} } -body { bind .t.f <Configure> "lappend x %a" - event gen .t.f <Configure> -above xyz + event generate .t.f <Configure> -above xyz } -cleanup { destroy .t.f } -returnCodes error -result {bad window name/identifier "xyz"} @@ -3223,7 +3223,7 @@ test bind-22.22 {HandleEventGenerate: options <Configure> -above [winfo id .t]} set x {} } -body { bind .t.f <Configure> "lappend x %a" - event gen .t.f <Configure> -above [winfo id .t] + event generate .t.f <Configure> -above [winfo id .t] return $x } -cleanup { destroy .t.f @@ -3237,7 +3237,7 @@ test bind-22.23 {HandleEventGenerate: options <Key> -above .} -setup { set x {} } -body { bind .t.f <Key> "lappend x %b" - event gen .t.f <Key> -above . + event generate .t.f <Key> -above . return $x } -cleanup { destroy .t.f @@ -3251,7 +3251,7 @@ test bind-22.24 {HandleEventGenerate: options <Configure> -borderwidth xyz} -set set x {} } -body { bind .t.f <Configure> "lappend x %B" - event gen .t.f <Configure> -borderwidth xyz + event generate .t.f <Configure> -borderwidth xyz return $x } -cleanup { destroy .t.f @@ -3265,7 +3265,7 @@ test bind-22.25 {HandleEventGenerate: options <Configure> -borderwidth 2i} -setu set x {} } -body { bind .t.f <Configure> "lappend x %B" - event gen .t.f <Configure> -borderwidth 2i + event generate .t.f <Configure> -borderwidth 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -3279,7 +3279,7 @@ test bind-22.26 {HandleEventGenerate: options <Key> -borderwidth 2i} -setup { set x {} } -body { bind .t.f <Key> "lappend x %k" - event gen .t.f <Key> -borderwidth 2i + event generate .t.f <Key> -borderwidth 2i } -cleanup { destroy .t.f } -returnCodes error -result {<Key> event doesn't accept "-borderwidth" option} @@ -3292,7 +3292,7 @@ test bind-22.27 {HandleEventGenerate: options <Button> -button xyz} -setup { set x {} } -body { bind .t.f <Button> "lappend x %b" - event gen .t.f <Button> -button xyz + event generate .t.f <Button> -button xyz } -cleanup { destroy .t.f } -returnCodes error -result {expected integer but got "xyz"} @@ -3305,7 +3305,7 @@ test bind-22.28 {HandleEventGenerate: options <Button> -button 1} -setup { set x {} } -body { bind .t.f <Button> "lappend x %b" - event gen .t.f <Button> -button 1 + event generate .t.f <Button> -button 1 return $x } -cleanup { destroy .t.f @@ -3319,7 +3319,7 @@ test bind-22.29 {HandleEventGenerate: options <ButtonRelease> -button 1} -setup set x {} } -body { bind .t.f <ButtonRelease> "lappend x %b" - event gen .t.f <ButtonRelease> -button 1 + event generate .t.f <ButtonRelease> -button 1 return $x } -cleanup { destroy .t.f @@ -3333,7 +3333,7 @@ test bind-22.30 {HandleEventGenerate: options <Key> -button 1} -setup { set x {} } -body { bind .t.f <Key> "lappend x %k" - event gen .t.f <Key> -button 1 + event generate .t.f <Key> -button 1 } -cleanup { destroy .t.f } -returnCodes error -result {<Key> event doesn't accept "-button" option} @@ -3346,7 +3346,7 @@ test bind-22.31 {HandleEventGenerate: options <Expose> -count xyz} -setup { set x {} } -body { bind .t.f <Expose> "lappend x %c" - event gen .t.f <Expose> -count xyz + event generate .t.f <Expose> -count xyz } -cleanup { destroy .t.f } -returnCodes error -result {expected integer but got "xyz"} @@ -3359,7 +3359,7 @@ test bind-22.32 {HandleEventGenerate: options <Expose> -count 20} -setup { set x {} } -body { bind .t.f <Expose> "lappend x %c" - event gen .t.f <Expose> -count 20 + event generate .t.f <Expose> -count 20 return $x } -cleanup { destroy .t.f @@ -3373,7 +3373,7 @@ test bind-22.33 {HandleEventGenerate: options <Key> -count 20} -setup { set x {} } -body { bind .t.f <Key> "lappend x %b" - event gen .t.f <Key> -count 20 + event generate .t.f <Key> -count 20 } -cleanup { destroy .t.f } -returnCodes error -result {<Key> event doesn't accept "-count" option} @@ -3386,7 +3386,7 @@ test bind-22.34 {HandleEventGenerate: options <Enter> -detail xyz} -setup { set x {} } -body { bind .t.f <Enter> "lappend x %d" - event gen .t.f <Enter> -detail xyz + event generate .t.f <Enter> -detail xyz } -cleanup { destroy .t.f } -returnCodes error -result {bad -detail value "xyz": must be NotifyAncestor, NotifyVirtual, NotifyInferior, NotifyNonlinear, NotifyNonlinearVirtual, NotifyPointer, NotifyPointerRoot, or NotifyDetailNone} @@ -3398,8 +3398,22 @@ test bind-22.35 {HandleEventGenerate: options <FocusIn> -detail NotifyVirtual} - update set x {} } -body { - bind .t.f <FocusIn> "lappend x %d" - event gen .t.f <FocusIn> -detail NotifyVirtual + bind .t.f <FocusIn> "lappend x FocusIn %d" + event generate .t.f <FocusIn> -detail NotifyVirtual + return $x +} -cleanup { + destroy .t.f +} -result {} + +test bind-22.35.1 {HandleEventGenerate: options <FocusOut> -detail NotifyVirtual} -setup { + frame .t.f -class Test -width 150 -height 100 + pack .t.f + focus -force .t.f + update + set x {} +} -body { + bind .t.f <FocusOut> "lappend x FocusOut %d" + event generate .t.f <FocusOut> -detail NotifyVirtual return $x } -cleanup { destroy .t.f @@ -3413,7 +3427,7 @@ test bind-22.36 {HandleEventGenerate: options <Enter> -detail NotifyVirtual} -se set x {} } -body { bind .t.f <Enter> "lappend x %d" - event gen .t.f <Enter> -detail NotifyVirtual + event generate .t.f <Enter> -detail NotifyVirtual return $x } -cleanup { destroy .t.f @@ -3427,7 +3441,7 @@ test bind-22.37 {HandleEventGenerate: options <Key> -detail NotifyVirtual} -setu set x {} } -body { bind .t.f <Key> "lappend x %k" - event gen .t.f <Key> -detail NotifyVirtual + event generate .t.f <Key> -detail NotifyVirtual } -cleanup { destroy .t.f } -returnCodes error -result {<Key> event doesn't accept "-detail" option} @@ -3440,7 +3454,7 @@ test bind-22.38 {HandleEventGenerate: options <Enter> -focus xyz} -setup { set x {} } -body { bind .t.f <Enter> "lappend x %f" - event gen .t.f <Enter> -focus xyz + event generate .t.f <Enter> -focus xyz } -cleanup { destroy .t.f } -returnCodes error -result {expected boolean value but got "xyz"} @@ -3453,7 +3467,7 @@ test bind-22.39 {HandleEventGenerate: options <Enter> -focus 1} -setup { set x {} } -body { bind .t.f <Enter> "lappend x %f" - event gen .t.f <Enter> -focus 1 + event generate .t.f <Enter> -focus 1 return $x } -cleanup { destroy .t.f @@ -3467,7 +3481,7 @@ test bind-22.40 {HandleEventGenerate: options <Key> -focus 1} -setup { set x {} } -body { bind .t.f <Key> "lappend x %k" - event gen .t.f <Key> -focus 1 + event generate .t.f <Key> -focus 1 } -cleanup { destroy .t.f } -returnCodes error -result {<Key> event doesn't accept "-focus" option} @@ -3480,7 +3494,7 @@ test bind-22.41 {HandleEventGenerate: options <Expose> -height xyz} -setup { set x {} } -body { bind .t.f <Expose> "lappend x %h" - event gen .t.f <Expose> -height xyz + event generate .t.f <Expose> -height xyz } -cleanup { destroy .t.f } -returnCodes error -result {bad screen distance "xyz"} @@ -3493,7 +3507,7 @@ test bind-22.42 {HandleEventGenerate: options <Expose> -height 2i} -setup { set x {} } -body { bind .t.f <Expose> "lappend x %h" - event gen .t.f <Expose> -height 2i + event generate .t.f <Expose> -height 2i expr {$x eq [winfo pixels .t.f 2i]} } -cleanup { destroy .t.f @@ -3507,7 +3521,7 @@ test bind-22.43 {HandleEventGenerate: options <Configure> -height 2i} -setup { set x {} } -body { bind .t.f <Configure> "lappend x %h" - event gen .t.f <Configure> -height 2i + event generate .t.f <Configure> -height 2i expr {$x eq [winfo pixels .t.f 2i]} } -cleanup { destroy .t.f @@ -3521,7 +3535,7 @@ test bind-22.44 {HandleEventGenerate: options <Key> -height 2i} -setup { set x {} } -body { bind .t.f <Key> "lappend x %k" - event gen .t.f <Key> -height 2i + event generate .t.f <Key> -height 2i } -cleanup { destroy .t.f } -returnCodes error -result {<Key> event doesn't accept "-height" option} @@ -3534,7 +3548,7 @@ test bind-22.45 {HandleEventGenerate: options <Key> -keycode xyz} -setup { set x {} } -body { bind .t.f <Key> "lappend x %k" - event gen .t.f <Key> -keycode xyz + event generate .t.f <Key> -keycode xyz } -cleanup { destroy .t.f } -returnCodes error -result {expected integer but got "xyz"} @@ -3547,7 +3561,7 @@ test bind-22.46 {HandleEventGenerate: options <Key> -keycode 20} -setup { set x {} } -body { bind .t.f <Key> "lappend x %k" - event gen .t.f <Key> -keycode 20 + event generate .t.f <Key> -keycode 20 return $x } -cleanup { destroy .t.f @@ -3561,7 +3575,7 @@ test bind-22.47 {HandleEventGenerate: options <Button> -keycode 20} -setup { set x {} } -body { bind .t.f <Button> "lappend x %b" - event gen .t.f <Button> -keycode 20 + event generate .t.f <Button> -keycode 20 } -cleanup { destroy .t.f } -returnCodes error -result {<Button> event doesn't accept "-keycode" option} @@ -3574,12 +3588,12 @@ test bind-22.48 {HandleEventGenerate: options <Key> -keysym xyz} -setup { set x {} } -body { bind .t.f <Key> "lappend x %K" - event gen .t.f <Key> -keysym xyz + event generate .t.f <Key> -keysym xyz } -cleanup { destroy .t.f } -returnCodes error -result {unknown keysym "xyz"} -test bind-22.49 {HandleEventGenerate: options <Key> -keysym a} -setup { +test bind-22.49 {HandleEventGenerate: options <Key> -keysym space} -setup { frame .t.f -class Test -width 150 -height 100 pack .t.f focus -force .t.f @@ -3587,13 +3601,13 @@ test bind-22.49 {HandleEventGenerate: options <Key> -keysym a} -setup { set x {} } -body { bind .t.f <Key> "lappend x %K" - event gen .t.f <Key> -keysym a + event generate .t.f <Key> -keysym space return $x } -cleanup { destroy .t.f -} -result {a} +} -result {space} -test bind-22.50 {HandleEventGenerate: options <Button> -keysym a} -setup { +test bind-22.50 {HandleEventGenerate: options <Button> -keysym space} -setup { frame .t.f -class Test -width 150 -height 100 pack .t.f focus -force .t.f @@ -3601,7 +3615,7 @@ test bind-22.50 {HandleEventGenerate: options <Button> -keysym a} -setup { set x {} } -body { bind .t.f <Button> "lappend x %b" - event gen .t.f <Button> -keysym a + event generate .t.f <Button> -keysym space } -cleanup { destroy .t.f } -returnCodes error -result {<Button> event doesn't accept "-keysym" option} @@ -3614,7 +3628,7 @@ test bind-22.51 {HandleEventGenerate: options <Enter> -mode xyz} -setup { set x {} } -body { bind .t.f <Enter> "lappend x %m" - event gen .t.f <Enter> -mode xyz + event generate .t.f <Enter> -mode xyz } -cleanup { destroy .t.f } -returnCodes error -result {bad -mode value "xyz": must be NotifyNormal, NotifyGrab, NotifyUngrab, or NotifyWhileGrabbed} @@ -3627,7 +3641,7 @@ test bind-22.52 {HandleEventGenerate: options <Enter> -mode NotifyNormal} -setup set x {} } -body { bind .t.f <Enter> "lappend x %m" - event gen .t.f <Enter> -mode NotifyNormal + event generate .t.f <Enter> -mode NotifyNormal return $x } -cleanup { destroy .t.f @@ -3641,7 +3655,7 @@ test bind-22.53 {HandleEventGenerate: options <FocusIn> -mode NotifyNormal} -set set x {} } -body { bind .t.f <FocusIn> "lappend x %m" - event gen .t.f <FocusIn> -mode NotifyNormal + event generate .t.f <FocusIn> -mode NotifyNormal return $x } -cleanup { destroy .t.f @@ -3655,7 +3669,7 @@ test bind-22.54 {HandleEventGenerate: options <Key> -mode NotifyNormal} -setup { set x {} } -body { bind .t.f <Key> "lappend x %k" - event gen .t.f <Key> -mode NotifyNormal + event generate .t.f <Key> -mode NotifyNormal } -cleanup { destroy .t.f } -returnCodes error -result {<Key> event doesn't accept "-mode" option} @@ -3667,7 +3681,7 @@ test bind-22.55 {HandleEventGenerate: options <Map> -override xyz} -setup { set x {} } -body { bind .t.f <Map> "lappend x %o" - event gen .t.f <Map> -override xyz + event generate .t.f <Map> -override xyz } -cleanup { destroy .t.f } -returnCodes error -result {expected boolean value but got "xyz"} @@ -3680,7 +3694,7 @@ test bind-22.56 {HandleEventGenerate: options <Map> -override 1} -setup { set x {} } -body { bind .t.f <Map> "lappend x %o" - event gen .t.f <Map> -override 1 + event generate .t.f <Map> -override 1 return $x } -cleanup { destroy .t.f @@ -3694,7 +3708,7 @@ test bind-22.57 {HandleEventGenerate: options <Reparent> -override 1} -setup { set x {} } -body { bind .t.f <Reparent> "lappend x %o" - event gen .t.f <Reparent> -override 1 + event generate .t.f <Reparent> -override 1 return $x } -cleanup { destroy .t.f @@ -3708,7 +3722,7 @@ test bind-22.58 {HandleEventGenerate: options <Configure> -override 1} -setup { set x {} } -body { bind .t.f <Configure> "lappend x %o" - event gen .t.f <Configure> -override 1 + event generate .t.f <Configure> -override 1 return $x } -cleanup { destroy .t.f @@ -3722,7 +3736,7 @@ test bind-22.59 {HandleEventGenerate: options <Key> -override 1} -setup { set x {} } -body { bind .t.f <Key> "lappend x %k" - event gen .t.f <Key> -override 1 + event generate .t.f <Key> -override 1 } -cleanup { destroy .t.f } -returnCodes error -result {<Key> event doesn't accept "-override" option} @@ -3735,7 +3749,7 @@ test bind-22.60 {HandleEventGenerate: options <Circulate> -place xyz} -setup { set x {} } -body { bind .t.f <Circulate> "lappend x %p" - event gen .t.f <Circulate> -place xyz + event generate .t.f <Circulate> -place xyz } -cleanup { destroy .t.f } -returnCodes error -result {bad -place value "xyz": must be PlaceOnTop, or PlaceOnBottom} @@ -3748,7 +3762,7 @@ test bind-22.61 {HandleEventGenerate: options <Circulate> -place PlaceOnTop} -se set x {} } -body { bind .t.f <Circulate> "lappend x %p" - event gen .t.f <Circulate> -place PlaceOnTop + event generate .t.f <Circulate> -place PlaceOnTop return $x } -cleanup { destroy .t.f @@ -3762,7 +3776,7 @@ test bind-22.62 {HandleEventGenerate: options <Key> -place PlaceOnTop} -setup { set x {} } -body { bind .t.f <Key> "lappend x %k" - event gen .t.f <Key> -place PlaceOnTop + event generate .t.f <Key> -place PlaceOnTop } -cleanup { destroy .t.f } -returnCodes error -result {<Key> event doesn't accept "-place" option} @@ -3775,7 +3789,7 @@ test bind-22.63 {HandleEventGenerate: options <Key> -root .xyz} -setup { set x {} } -body { bind .t.f <Key> "lappend x %R" - event gen .t.f <Key> -root .xyz + event generate .t.f <Key> -root .xyz } -cleanup { destroy .t.f } -returnCodes error -result {bad window path name ".xyz"} @@ -3788,7 +3802,7 @@ test bind-22.64 {HandleEventGenerate: options <Key> -root .t} -setup { set x {} } -body { bind .t.f <Key> "lappend x %R" - event gen .t.f <Key> -root .t + event generate .t.f <Key> -root .t expr {[winfo id .t] eq $x} } -cleanup { destroy .t.f @@ -3802,7 +3816,7 @@ test bind-22.65 {HandleEventGenerate: options <Key> -root xyz} -setup { set x {} } -body { bind .t.f <Key> "lappend x %R" - event gen .t.f <Key> -root xyz + event generate .t.f <Key> -root xyz } -cleanup { destroy .t.f } -returnCodes error -result {bad window name/identifier "xyz"} @@ -3815,7 +3829,7 @@ test bind-22.66 {HandleEventGenerate: options <Key> -root [winfo id .t]} -setup set x {} } -body { bind .t.f <Key> "lappend x %R" - event gen .t.f <Key> -root [winfo id .t] + event generate .t.f <Key> -root [winfo id .t] expr {[winfo id .t] eq $x} } -cleanup { destroy .t.f @@ -3829,7 +3843,7 @@ test bind-22.67 {HandleEventGenerate: options <Button> -root .t} -setup { set x {} } -body { bind .t.f <Button> "lappend x %R" - event gen .t.f <Button> -root .t + event generate .t.f <Button> -root .t expr {[winfo id .t] eq $x} } -cleanup { destroy .t.f @@ -3843,7 +3857,7 @@ test bind-22.68 {HandleEventGenerate: options <ButtonRelease> -root .t} -setup { set x {} } -body { bind .t.f <ButtonRelease> "lappend x %R" - event gen .t.f <ButtonRelease> -root .t + event generate .t.f <ButtonRelease> -root .t expr {[winfo id .t] eq $x} } -cleanup { destroy .t.f @@ -3857,7 +3871,7 @@ test bind-22.69 {HandleEventGenerate: options <Motion> -root .t} -setup { set x {} } -body { bind .t.f <Motion> "lappend x %R" - event gen .t.f <Motion> -root .t + event generate .t.f <Motion> -root .t expr {[winfo id .t] eq $x} } -cleanup { destroy .t.f @@ -3871,7 +3885,7 @@ test bind-22.70 {HandleEventGenerate: options <<Paste>> -root .t} -setup { set x {} } -body { bind .t.f <<Paste>> "lappend x %R" - event gen .t.f <<Paste>> -root .t + event generate .t.f <<Paste>> -root .t expr {[winfo id .t] eq $x} } -cleanup { destroy .t.f @@ -3885,7 +3899,7 @@ test bind-22.71 {HandleEventGenerate: options <Enter> -root .t} -setup { set x {} } -body { bind .t.f <Enter> "lappend x %R" - event gen .t.f <Enter> -root .t + event generate .t.f <Enter> -root .t expr {[winfo id .t] eq $x} } -cleanup { destroy .t.f @@ -3899,7 +3913,7 @@ test bind-22.72 {HandleEventGenerate: options <Configure> -root .t} -setup { set x {} } -body { bind .t.f <Configure> "lappend x %R" - event gen .t.f <Configure> -root .t + event generate .t.f <Configure> -root .t } -cleanup { destroy .t.f } -returnCodes error -result {<Configure> event doesn't accept "-root" option} @@ -3912,7 +3926,7 @@ test bind-22.73 {HandleEventGenerate: options <Key> -rootx xyz} -setup { set x {} } -body { bind .t.f <Key> "lappend x %X" - event gen .t.f <Key> -rootx xyz + event generate .t.f <Key> -rootx xyz } -cleanup { destroy .t.f } -returnCodes error -result {bad screen distance "xyz"} @@ -3925,7 +3939,7 @@ test bind-22.74 {HandleEventGenerate: options <Key> -rootx 2i} -setup { set x {} } -body { bind .t.f <Key> "lappend x %X" - event gen .t.f <Key> -rootx 2i + event generate .t.f <Key> -rootx 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -3939,7 +3953,7 @@ test bind-22.75 {HandleEventGenerate: options <Button> -rootx 2i} -setup { set x {} } -body { bind .t.f <Button> "lappend x %X" - event gen .t.f <Button> -rootx 2i + event generate .t.f <Button> -rootx 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -3953,7 +3967,7 @@ test bind-22.76 {HandleEventGenerate: options <ButtonRelease> -rootx 2i} -setup set x {} } -body { bind .t.f <ButtonRelease> "lappend x %X" - event gen .t.f <ButtonRelease> -rootx 2i + event generate .t.f <ButtonRelease> -rootx 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -3967,7 +3981,7 @@ test bind-22.77 {HandleEventGenerate: options <Motion> -rootx 2i} -setup { set x {} } -body { bind .t.f <Motion> "lappend x %X" - event gen .t.f <Motion> -rootx 2i + event generate .t.f <Motion> -rootx 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -3981,7 +3995,7 @@ test bind-22.78 {HandleEventGenerate: options <<Paste>> -rootx 2i} -setup { set x {} } -body { bind .t.f <<Paste>> "lappend x %X" - event gen .t.f <<Paste>> -rootx 2i + event generate .t.f <<Paste>> -rootx 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -3995,7 +4009,7 @@ test bind-22.79 {HandleEventGenerate: options <Enter> -rootx 2i} -setup { set x {} } -body { bind .t.f <Enter> "lappend x %X" - event gen .t.f <Enter> -rootx 2i + event generate .t.f <Enter> -rootx 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -4009,7 +4023,7 @@ test bind-22.80 {HandleEventGenerate: options <Configure> -rootx 2i} -setup { set x {} } -body { bind .t.f <Configure> "lappend x %X" - event gen .t.f <Configure> -rootx 2i + event generate .t.f <Configure> -rootx 2i } -cleanup { destroy .t.f } -returnCodes error -result {<Configure> event doesn't accept "-rootx" option} @@ -4022,7 +4036,7 @@ test bind-22.81 {HandleEventGenerate: options <Key> -rooty xyz} -setup { set x {} } -body { bind .t.f <Key> "lappend x %Y" - event gen .t.f <Key> -rooty xyz + event generate .t.f <Key> -rooty xyz } -cleanup { destroy .t.f } -returnCodes error -result {bad screen distance "xyz"} @@ -4035,7 +4049,7 @@ test bind-22.82 {HandleEventGenerate: options <Key> -rooty 2i} -setup { set x {} } -body { bind .t.f <Key> "lappend x %Y" - event gen .t.f <Key> -rooty 2i + event generate .t.f <Key> -rooty 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -4049,7 +4063,7 @@ test bind-22.83 {HandleEventGenerate: options <Button> -rooty 2i} -setup { set x {} } -body { bind .t.f <Button> "lappend x %Y" - event gen .t.f <Button> -rooty 2i + event generate .t.f <Button> -rooty 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -4063,7 +4077,7 @@ test bind-22.84 {HandleEventGenerate: options <ButtonRelease> -rooty 2i} -setup set x {} } -body { bind .t.f <ButtonRelease> "lappend x %Y" - event gen .t.f <ButtonRelease> -rooty 2i + event generate .t.f <ButtonRelease> -rooty 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -4077,7 +4091,7 @@ test bind-22.85 {HandleEventGenerate: options <Motion> -rooty 2i} -setup { set x {} } -body { bind .t.f <Motion> "lappend x %Y" - event gen .t.f <Motion> -rooty 2i + event generate .t.f <Motion> -rooty 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -4091,7 +4105,7 @@ test bind-22.86 {HandleEventGenerate: options <<Paste>> -rooty 2i} -setup { set x {} } -body { bind .t.f <<Paste>> "lappend x %Y" - event gen .t.f <<Paste>> -rooty 2i + event generate .t.f <<Paste>> -rooty 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -4105,7 +4119,7 @@ test bind-22.87 {HandleEventGenerate: options <Enter> -rooty 2i} -setup { set x {} } -body { bind .t.f <Enter> "lappend x %Y" - event gen .t.f <Enter> -rooty 2i + event generate .t.f <Enter> -rooty 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -4119,7 +4133,7 @@ test bind-22.88 {HandleEventGenerate: options <Configure> -rooty 2i} -setup { set x {} } -body { bind .t.f <Configure> "lappend x %Y" - event gen .t.f <Configure> -rooty 2i + event generate .t.f <Configure> -rooty 2i } -cleanup { destroy .t.f } -returnCodes error -result {<Configure> event doesn't accept "-rooty" option} @@ -4132,7 +4146,7 @@ test bind-22.89 {HandleEventGenerate: options <Key> -sendevent xyz} -setup { set x {} } -body { bind .t.f <Key> "lappend x %E" - event gen .t.f <Key> -sendevent xyz + event generate .t.f <Key> -sendevent xyz } -cleanup { destroy .t.f } -returnCodes error -result {expected boolean value but got "xyz"} @@ -4145,7 +4159,7 @@ test bind-22.90 {HandleEventGenerate: options <Key> -sendevent 1} -setup { set x {} } -body { bind .t.f <Key> "lappend x %E" - event gen .t.f <Key> -sendevent 1 + event generate .t.f <Key> -sendevent 1 return $x } -cleanup { destroy .t.f @@ -4159,7 +4173,7 @@ test bind-22.91 {HandleEventGenerate: options <Key> -sendevent yes} -setup { set x {} } -body { bind .t.f <Key> "lappend x %E" - event gen .t.f <Key> -sendevent yes + event generate .t.f <Key> -sendevent yes return $x } -cleanup { destroy .t.f @@ -4173,7 +4187,7 @@ test bind-22.92 {HandleEventGenerate: options <Key> -sendevent 43} -setup { set x {} } -body { bind .t.f <Key> "lappend x %E" - event gen .t.f <Key> -sendevent 43 + event generate .t.f <Key> -sendevent 43 return $x } -cleanup { destroy .t.f @@ -4187,7 +4201,7 @@ test bind-22.93 {HandleEventGenerate: options <Key> -serial xyz} -setup { set x {} } -body { bind .t.f <Key> "lappend x %#" - event gen .t.f <Key> -serial xyz + event generate .t.f <Key> -serial xyz } -cleanup { destroy .t.f } -returnCodes error -result {expected integer but got "xyz"} @@ -4200,7 +4214,7 @@ test bind-22.94 {HandleEventGenerate: options <Key> -serial 100} -setup { set x {} } -body { bind .t.f <Key> "lappend x %#" - event gen .t.f <Key> -serial 100 + event generate .t.f <Key> -serial 100 return $x } -cleanup { destroy .t.f @@ -4214,7 +4228,7 @@ test bind-22.95 {HandleEventGenerate: options <Key> -state xyz} -setup { set x {} } -body { bind .t.f <Key> "lappend x %s" - event gen .t.f <Key> -state xyz + event generate .t.f <Key> -state xyz } -cleanup { destroy .t.f } -returnCodes error -result {expected integer but got "xyz"} @@ -4227,7 +4241,7 @@ test bind-22.96 {HandleEventGenerate: options <Key> -state 1} -setup { set x {} } -body { bind .t.f <Key> "lappend x %s" - event gen .t.f <Key> -state 1 + event generate .t.f <Key> -state 1 return $x } -cleanup { destroy .t.f @@ -4241,7 +4255,7 @@ test bind-22.97 {HandleEventGenerate: options <Button> -state 1025} -setup { set x {} } -body { bind .t.f <Button> "lappend x %s" - event gen .t.f <Button> -state 1025 + event generate .t.f <Button> -state 1025 return $x } -cleanup { destroy .t.f @@ -4255,7 +4269,7 @@ test bind-22.98 {HandleEventGenerate: options <ButtonRelease> -state 1025} -setu set x {} } -body { bind .t.f <ButtonRelease> "lappend x %s" - event gen .t.f <ButtonRelease> -state 1025 + event generate .t.f <ButtonRelease> -state 1025 return $x } -cleanup { destroy .t.f @@ -4269,7 +4283,7 @@ test bind-22.99 {HandleEventGenerate: options <Motion> -state 1} -setup { set x {} } -body { bind .t.f <Motion> "lappend x %s" - event gen .t.f <Motion> -state 1 + event generate .t.f <Motion> -state 1 return $x } -cleanup { destroy .t.f @@ -4283,7 +4297,7 @@ test bind-22.100 {HandleEventGenerate: options <<Paste>> -state 1} -setup { set x {} } -body { bind .t.f <<Paste>> "lappend x %s" - event gen .t.f <<Paste>> -state 1 + event generate .t.f <<Paste>> -state 1 return $x } -cleanup { destroy .t.f @@ -4297,7 +4311,7 @@ test bind-22.101 {HandleEventGenerate: options <Enter> -state 1} -setup { set x {} } -body { bind .t.f <Enter> "lappend x %s" - event gen .t.f <Enter> -state 1 + event generate .t.f <Enter> -state 1 return $x } -cleanup { destroy .t.f @@ -4311,7 +4325,7 @@ test bind-22.102 {HandleEventGenerate: options <Visibility> -state xyz} -setup { set x {} } -body { bind .t.f <Visibility> "lappend x %s" - event gen .t.f <Visibility> -state xyz + event generate .t.f <Visibility> -state xyz } -cleanup { destroy .t.f } -returnCodes error -result {bad -state value "xyz": must be VisibilityUnobscured, VisibilityPartiallyObscured, or VisibilityFullyObscured} @@ -4324,7 +4338,7 @@ test bind-22.103 {HandleEventGenerate: options <Visibility> -state VisibilityUno set x {} } -body { bind .t.f <Visibility> "lappend x %s" - event gen .t.f <Visibility> -state VisibilityUnobscured + event generate .t.f <Visibility> -state VisibilityUnobscured return $x } -cleanup { destroy .t.f @@ -4338,7 +4352,7 @@ test bind-22.104 {HandleEventGenerate: options <Configure> -state xyz} -setup { set x {} } -body { bind .t.f <Configure> "lappend x %s" - event gen .t.f <Configure> -state xyz + event generate .t.f <Configure> -state xyz } -cleanup { destroy .t.f } -returnCodes error -result {<Configure> event doesn't accept "-state" option} @@ -4351,7 +4365,7 @@ test bind-22.105 {HandleEventGenerate: options <Key> -subwindow .xyz} -setup { set x {} } -body { bind .t.f <Key> "lappend x %S" - event gen .t.f <Key> -subwindow .xyz + event generate .t.f <Key> -subwindow .xyz } -cleanup { destroy .t.f } -returnCodes error -result {bad window path name ".xyz"} @@ -4364,7 +4378,7 @@ test bind-22.106 {HandleEventGenerate: options <Key> -subwindow .t} -setup { set x {} } -body { bind .t.f <Key> "lappend x %S" - event gen .t.f <Key> -subwindow .t + event generate .t.f <Key> -subwindow .t expr {[winfo id .t] eq $x} } -cleanup { destroy .t.f @@ -4378,7 +4392,7 @@ test bind-22.107 {HandleEventGenerate: options <Key> -subwindow xyz} -setup { set x {} } -body { bind .t.f <Key> "lappend x %S" - event gen .t.f <Key> -subwindow xyz + event generate .t.f <Key> -subwindow xyz } -cleanup { destroy .t.f } -returnCodes error -result {bad window name/identifier "xyz"} @@ -4391,7 +4405,7 @@ test bind-22.108 {HandleEventGenerate: options <Key> -subwindow [winfo id .t]} - set x {} } -body { bind .t.f <Key> "lappend x %S" - event gen .t.f <Key> -subwindow [winfo id .t] + event generate .t.f <Key> -subwindow [winfo id .t] expr {[winfo id .t] eq $x} } -cleanup { destroy .t.f @@ -4405,7 +4419,7 @@ test bind-22.109 {HandleEventGenerate: options <Button> -subwindow .t} -setup { set x {} } -body { bind .t.f <Button> "lappend x %S" - event gen .t.f <Button> -subwindow .t + event generate .t.f <Button> -subwindow .t expr {[winfo id .t] eq $x} } -cleanup { destroy .t.f @@ -4419,7 +4433,7 @@ test bind-22.110 {HandleEventGenerate: options <ButtonRelease> -subwindow .t} -s set x {} } -body { bind .t.f <ButtonRelease> "lappend x %S" - event gen .t.f <ButtonRelease> -subwindow .t + event generate .t.f <ButtonRelease> -subwindow .t expr {[winfo id .t] eq $x} } -cleanup { destroy .t.f @@ -4433,7 +4447,7 @@ test bind-22.111 {HandleEventGenerate: options <Motion> -subwindow .t} -setup { set x {} } -body { bind .t.f <Motion> "lappend x %S" - event gen .t.f <Motion> -subwindow .t + event generate .t.f <Motion> -subwindow .t expr {[winfo id .t] eq $x} } -cleanup { destroy .t.f @@ -4447,7 +4461,7 @@ test bind-22.112 {HandleEventGenerate: options <<Paste>> -subwindow .t} -setup { set x {} } -body { bind .t.f <<Paste>> "lappend x %S" - event gen .t.f <<Paste>> -subwindow .t + event generate .t.f <<Paste>> -subwindow .t expr {[winfo id .t] eq $x} } -cleanup { destroy .t.f @@ -4461,7 +4475,7 @@ test bind-22.113 {HandleEventGenerate: options <Enter> -subwindow .t} -setup { set x {} } -body { bind .t.f <Enter> "lappend x %S" - event gen .t.f <Enter> -subwindow .t + event generate .t.f <Enter> -subwindow .t expr {[winfo id .t] eq $x} } -cleanup { destroy .t.f @@ -4475,7 +4489,7 @@ test bind-22.114 {HandleEventGenerate: options <Configure> -subwindow .t} -setup set x {} } -body { bind .t.f <Configure> "lappend x %S" - event gen .t.f <Configure> -subwindow .t + event generate .t.f <Configure> -subwindow .t } -cleanup { destroy .t.f } -returnCodes error -result {<Configure> event doesn't accept "-subwindow" option} @@ -4488,7 +4502,7 @@ test bind-22.115 {HandleEventGenerate: options <Key> -time xyz} -setup { set x {} } -body { bind .t.f <Key> "lappend x %t" - event gen .t.f <Key> -time xyz + event generate .t.f <Key> -time xyz } -cleanup { destroy .t.f } -returnCodes error -result {expected integer but got "xyz"} @@ -4501,7 +4515,7 @@ test bind-22.116 {HandleEventGenerate: options <Key> -time 100} -setup { set x {} } -body { bind .t.f <Key> "lappend x %t" - event gen .t.f <Key> -time 100 + event generate .t.f <Key> -time 100 return $x } -cleanup { destroy .t.f @@ -4515,7 +4529,7 @@ test bind-22.117 {HandleEventGenerate: options <Button> -time 100} -setup { set x {} } -body { bind .t.f <Button> "lappend x %t" - event gen .t.f <Button> -time 100 + event generate .t.f <Button> -time 100 return $x } -cleanup { destroy .t.f @@ -4529,7 +4543,7 @@ test bind-22.118 {HandleEventGenerate: options <ButtonRelease> -time 100} -setup set x {} } -body { bind .t.f <ButtonRelease> "lappend x %t" - event gen .t.f <ButtonRelease> -time 100 + event generate .t.f <ButtonRelease> -time 100 return $x } -cleanup { destroy .t.f @@ -4543,7 +4557,7 @@ test bind-22.119 {HandleEventGenerate: options <Motion> -time 100} -setup { set x {} } -body { bind .t.f <Motion> "lappend x %t" - event gen .t.f <Motion> -time 100 + event generate .t.f <Motion> -time 100 return $x } -cleanup { destroy .t.f @@ -4557,7 +4571,7 @@ test bind-22.120 {HandleEventGenerate: options <<Paste>> -time 100} -setup { set x {} } -body { bind .t.f <<Paste>> "lappend x %t" - event gen .t.f <<Paste>> -time 100 + event generate .t.f <<Paste>> -time 100 return $x } -cleanup { destroy .t.f @@ -4571,7 +4585,7 @@ test bind-22.121 {HandleEventGenerate: options <Enter> -time 100} -setup { set x {} } -body { bind .t.f <Enter> "lappend x %t" - event gen .t.f <Enter> -time 100 + event generate .t.f <Enter> -time 100 return $x } -cleanup { destroy .t.f @@ -4585,7 +4599,7 @@ test bind-22.122 {HandleEventGenerate: options <Property> -time 100} -setup { set x {} } -body { bind .t.f <Property> "lappend x %t" - event gen .t.f <Property> -time 100 + event generate .t.f <Property> -time 100 return $x } -cleanup { destroy .t.f @@ -4599,7 +4613,7 @@ test bind-22.123 {HandleEventGenerate: options <Configure> -time 100} -setup { set x {} } -body { bind .t.f <Configure> "lappend x %t" - event gen .t.f <Configure> -time 100 + event generate .t.f <Configure> -time 100 } -cleanup { destroy .t.f } -returnCodes error -result {<Configure> event doesn't accept "-time" option} @@ -4612,7 +4626,7 @@ test bind-22.124 {HandleEventGenerate: options <Expose> -width xyz} -setup { set x {} } -body { bind .t.f <Expose> "lappend x %w" - event gen .t.f <Expose> -width xyz + event generate .t.f <Expose> -width xyz } -cleanup { destroy .t.f } -returnCodes error -result {bad screen distance "xyz"} @@ -4625,7 +4639,7 @@ test bind-22.125 {HandleEventGenerate: options <Expose> -width 2i} -setup { set x {} } -body { bind .t.f <Expose> "lappend x %w" - event gen .t.f <Expose> -width 2i + event generate .t.f <Expose> -width 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -4639,7 +4653,7 @@ test bind-22.126 {HandleEventGenerate: options <Configure> -width 2i} -setup { set x {} } -body { bind .t.f <Configure> "lappend x %w" - event gen .t.f <Configure> -width 2i + event generate .t.f <Configure> -width 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -4653,7 +4667,7 @@ test bind-22.127 {HandleEventGenerate: options <Key> -width 2i} -setup { set x {} } -body { bind .t.f <Key> "lappend x %k" - event gen .t.f <Key> -width 2i + event generate .t.f <Key> -width 2i } -cleanup { destroy .t.f } -returnCodes error -result {<Key> event doesn't accept "-width" option} @@ -4666,7 +4680,7 @@ test bind-22.128 {HandleEventGenerate: options <Unmap> -window .xyz} -setup { set x {} } -body { bind .t.f <Unmap> "lappend x %W" - event gen .t.f <Unmap> -window .xyz + event generate .t.f <Unmap> -window .xyz } -cleanup { destroy .t.f } -returnCodes error -result {bad window path name ".xyz"} @@ -4679,7 +4693,7 @@ test bind-22.129 {HandleEventGenerate: options <Unmap> -window .t.f} -setup { set x {} } -body { bind .t.f <Unmap> "lappend x %W" - event gen .t.f <Unmap> -window .t.f + event generate .t.f <Unmap> -window .t.f return $x } -cleanup { destroy .t.f @@ -4693,7 +4707,7 @@ test bind-22.130 {HandleEventGenerate: options <Unmap> -window xyz} -setup { set x {} } -body { bind .t.f <Unmap> "lappend x %W" - event gen .t.f <Unmap> -window xyz + event generate .t.f <Unmap> -window xyz } -cleanup { destroy .t.f } -returnCodes error -result {bad window name/identifier "xyz"} @@ -4706,7 +4720,7 @@ test bind-22.131 {HandleEventGenerate: options <Unmap> -window [winfo id .t.f]} set x {} } -body { bind .t.f <Unmap> "lappend x %W" - event gen .t.f <Unmap> -window [winfo id .t.f] + event generate .t.f <Unmap> -window [winfo id .t.f] return $x } -cleanup { destroy .t.f @@ -4720,7 +4734,7 @@ test bind-22.132 {HandleEventGenerate: options <Unmap> -window .t.f} -setup { set x {} } -body { bind .t.f <Unmap> "lappend x %W" - event gen .t.f <Unmap> -window .t.f + event generate .t.f <Unmap> -window .t.f return $x } -cleanup { destroy .t.f @@ -4734,7 +4748,7 @@ test bind-22.133 {HandleEventGenerate: options <Map> -window .t.f} -setup { set x {} } -body { bind .t.f <Map> "lappend x %W" - event gen .t.f <Map> -window .t.f + event generate .t.f <Map> -window .t.f return $x } -cleanup { destroy .t.f @@ -4748,7 +4762,7 @@ test bind-22.134 {HandleEventGenerate: options <Reparent> -window .t.f} -setup { set x {} } -body { bind .t.f <Reparent> "lappend x %W" - event gen .t.f <Reparent> -window .t.f + event generate .t.f <Reparent> -window .t.f return $x } -cleanup { destroy .t.f @@ -4762,7 +4776,7 @@ test bind-22.135 {HandleEventGenerate: options <Configure> -window .t.f} -setup set x {} } -body { bind .t.f <Configure> "lappend x %W" - event gen .t.f <Configure> -window .t.f + event generate .t.f <Configure> -window .t.f return $x } -cleanup { destroy .t.f @@ -4776,7 +4790,7 @@ test bind-22.136 {HandleEventGenerate: options <Gravity> -window .t.f} -setup { set x {} } -body { bind .t.f <Gravity> "lappend x %W" - event gen .t.f <Gravity> -window .t.f + event generate .t.f <Gravity> -window .t.f return $x } -cleanup { destroy .t.f @@ -4790,7 +4804,7 @@ test bind-22.137 {HandleEventGenerate: options <Circulate> -window .t.f} -setup set x {} } -body { bind .t.f <Circulate> "lappend x %W" - event gen .t.f <Circulate> -window .t.f + event generate .t.f <Circulate> -window .t.f return $x } -cleanup { destroy .t.f @@ -4804,7 +4818,7 @@ test bind-22.138 {HandleEventGenerate: options <Key> -window .t.f} -setup { set x {} } -body { bind .t.f <Key> "lappend x %W" - event gen .t.f <Key> -window .t.f + event generate .t.f <Key> -window .t.f } -cleanup { destroy .t.f } -returnCodes error -result {<Key> event doesn't accept "-window" option} @@ -4817,7 +4831,7 @@ test bind-22.139 {HandleEventGenerate: options <Key> -x xyz} -setup { set x {} } -body { bind .t.f <Key> "lappend x %x" - event gen .t.f <Key> -x xyz + event generate .t.f <Key> -x xyz } -cleanup { destroy .t.f } -returnCodes error -result {bad screen distance "xyz"} @@ -4830,7 +4844,7 @@ test bind-22.140 {HandleEventGenerate: options <Key> -x 2i} -setup { set x {} } -body { bind .t.f <Key> "lappend x %x" - event gen .t.f <Key> -x 2i + event generate .t.f <Key> -x 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -4844,7 +4858,7 @@ test bind-22.141 {HandleEventGenerate: options <Button> -x 2i} -setup { set x {} } -body { bind .t.f <Button> "lappend x %x" - event gen .t.f <Button> -x 2i + event generate .t.f <Button> -x 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -4858,7 +4872,7 @@ test bind-22.142 {HandleEventGenerate: options <ButtonRelease> -x 2i} -setup { set x {} } -body { bind .t.f <ButtonRelease> "lappend x %x" - event gen .t.f <ButtonRelease> -x 2i + event generate .t.f <ButtonRelease> -x 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -4872,7 +4886,7 @@ test bind-22.143 {HandleEventGenerate: options <Motion> -x 2i} -setup { set x {} } -body { bind .t.f <Motion> "lappend x %x" - event gen .t.f <Motion> -x 2i + event generate .t.f <Motion> -x 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -4886,7 +4900,7 @@ test bind-22.144 {HandleEventGenerate: options <<Paste>> -x 2i} -setup { set x {} } -body { bind .t.f <<Paste>> "lappend x %x" - event gen .t.f <<Paste>> -x 2i + event generate .t.f <<Paste>> -x 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -4900,7 +4914,7 @@ test bind-22.145 {HandleEventGenerate: options <Enter> -x 2i} -setup { set x {} } -body { bind .t.f <Enter> "lappend x %x" - event gen .t.f <Enter> -x 2i + event generate .t.f <Enter> -x 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -4914,7 +4928,7 @@ test bind-22.146 {HandleEventGenerate: options <Expose> -x 2i} -setup { set x {} } -body { bind .t.f <Expose> "lappend x %x" - event gen .t.f <Expose> -x 2i + event generate .t.f <Expose> -x 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -4928,7 +4942,7 @@ test bind-22.147 {HandleEventGenerate: options <Configure> -x 2i} -setup { set x {} } -body { bind .t.f <Configure> "lappend x %x" - event gen .t.f <Configure> -x 2i + event generate .t.f <Configure> -x 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -4942,7 +4956,7 @@ test bind-22.148 {HandleEventGenerate: options <Gravity> -x 2i} -setup { set x {} } -body { bind .t.f <Gravity> "lappend x %x" - event gen .t.f <Gravity> -x 2i + event generate .t.f <Gravity> -x 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -4956,7 +4970,7 @@ test bind-22.149 {HandleEventGenerate: options <Reparent> -x 2i} -setup { set x {} } -body { bind .t.f <Reparent> "lappend x %x" - event gen .t.f <Reparent> -x 2i + event generate .t.f <Reparent> -x 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -4970,7 +4984,7 @@ test bind-22.150 {HandleEventGenerate: options <Map> -x 2i} -setup { set x {} } -body { bind .t.f <Map> "lappend x %x" - event gen .t.f <Map> -x 2i + event generate .t.f <Map> -x 2i } -cleanup { destroy .t.f } -returnCodes error -result {<Map> event doesn't accept "-x" option} @@ -4983,7 +4997,7 @@ test bind-22.151 {HandleEventGenerate: options <Key> -y xyz} -setup { set x {} } -body { bind .t.f <Key> "lappend x %y" - event gen .t.f <Key> -y xyz + event generate .t.f <Key> -y xyz } -cleanup { destroy .t.f } -returnCodes error -result {bad screen distance "xyz"} @@ -4996,7 +5010,7 @@ test bind-22.152 {HandleEventGenerate: options <Key> -y 2i} -setup { set x {} } -body { bind .t.f <Key> "lappend x %y" - event gen .t.f <Key> -y 2i + event generate .t.f <Key> -y 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -5010,7 +5024,7 @@ test bind-22.153 {HandleEventGenerate: options <Button> -y 2i} -setup { set x {} } -body { bind .t.f <Button> "lappend x %y" - event gen .t.f <Button> -y 2i + event generate .t.f <Button> -y 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -5024,7 +5038,7 @@ test bind-22.154 {HandleEventGenerate: options <ButtonRelease> -y 2i} -setup { set x {} } -body { bind .t.f <ButtonRelease> "lappend x %y" - event gen .t.f <ButtonRelease> -y 2i + event generate .t.f <ButtonRelease> -y 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -5038,7 +5052,7 @@ test bind-22.155 {HandleEventGenerate: options <Motion> -y 2i} -setup { set x {} } -body { bind .t.f <Motion> "lappend x %y" - event gen .t.f <Motion> -y 2i + event generate .t.f <Motion> -y 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -5052,7 +5066,7 @@ test bind-22.156 {HandleEventGenerate: options <<Paste>> -y 2i} -setup { set x {} } -body { bind .t.f <<Paste>> "lappend x %y" - event gen .t.f <<Paste>> -y 2i + event generate .t.f <<Paste>> -y 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -5066,7 +5080,7 @@ test bind-22.157 {HandleEventGenerate: options <Enter> -y 2i} -setup { set x {} } -body { bind .t.f <Enter> "lappend x %y" - event gen .t.f <Enter> -y 2i + event generate .t.f <Enter> -y 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -5080,7 +5094,7 @@ test bind-22.158 {HandleEventGenerate: options <Expose> -y 2i} -setup { set x {} } -body { bind .t.f <Expose> "lappend x %y" - event gen .t.f <Expose> -y 2i + event generate .t.f <Expose> -y 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -5094,7 +5108,7 @@ test bind-22.159 {HandleEventGenerate: options <Configure> -y 2i} -setup { set x {} } -body { bind .t.f <Configure> "lappend x %y" - event gen .t.f <Configure> -y 2i + event generate .t.f <Configure> -y 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -5108,7 +5122,7 @@ test bind-22.160 {HandleEventGenerate: options <Gravity> -y 2i} -setup { set x {} } -body { bind .t.f <Gravity> "lappend x %y" - event gen .t.f <Gravity> -y 2i + event generate .t.f <Gravity> -y 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -5122,7 +5136,7 @@ test bind-22.161 {HandleEventGenerate: options <Reparent> -y 2i} -setup { set x {} } -body { bind .t.f <Reparent> "lappend x %y" - event gen .t.f <Reparent> -y 2i + event generate .t.f <Reparent> -y 2i expr {[winfo pixels .t.f 2i] eq $x} } -cleanup { destroy .t.f @@ -5136,7 +5150,7 @@ test bind-22.162 {HandleEventGenerate: options <Map> -y 2i} -setup { set x {} } -body { bind .t.f <Map> "lappend x %y" - event gen .t.f <Map> -y 2i + event generate .t.f <Map> -y 2i } -cleanup { destroy .t.f } -returnCodes error -result {<Map> event doesn't accept "-y" option} @@ -5149,7 +5163,7 @@ test bind-22.163 {HandleEventGenerate: options <Key> -xyz 1} -setup { set x {} } -body { bind .t.f <Key> "lappend x %k" - event gen .t.f <Key> -xyz 1 + event generate .t.f <Key> -xyz 1 } -cleanup { destroy .t.f } -returnCodes error -result {bad option "-xyz": must be -when, -above, -borderwidth, -button, -count, -data, -delta, -detail, -focus, -height, -keycode, -keysym, -mode, -override, -place, -root, -rootx, -rooty, -sendevent, -serial, -state, -subwindow, -time, -warp, -width, -window, -x, or -y} @@ -5204,20 +5218,20 @@ test bind-24.5 {FindSequence procedure, multiple bindings} -setup { bind .t.f <Triple-1> {lappend x triple} bind .t.f <Quadruple-1> {lappend x quadruple} set x press - event gen .t.f <Button-1> - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-1> + event generate .t.f <ButtonRelease-1> lappend x press - event gen .t.f <Button-1> - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-1> + event generate .t.f <ButtonRelease-1> lappend x press - event gen .t.f <Button-1> - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-1> + event generate .t.f <ButtonRelease-1> lappend x press - event gen .t.f <Button-1> - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-1> + event generate .t.f <ButtonRelease-1> lappend x press - event gen .t.f <Button-1> - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-1> + event generate .t.f <ButtonRelease-1> set x } -cleanup { destroy .t.f @@ -5233,10 +5247,10 @@ test bind-24.7 {FindSequence procedure: new pattern sequence} -setup { set x {} } -body { bind .t.f <Button-1><Button-2> {lappend x 1-2} - event gen .t.f <Button-1> - event gen .t.f <ButtonRelease-1> - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> + event generate .t.f <Button-1> + event generate .t.f <ButtonRelease-1> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> set x } -cleanup { destroy .t.f @@ -5250,13 +5264,13 @@ test bind-24.8 {FindSequence procedure: similar pattern sequence} -setup { } -body { bind .t.f <Button-1><Button-2> {lappend x 1-2} bind .t.f <Button-2> {lappend x 2} - event gen .t.f <Button-3> - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.f <Button-1> - event gen .t.f <ButtonRelease-1> - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> + event generate .t.f <Button-3> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.f <Button-1> + event generate .t.f <ButtonRelease-1> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> set x } -cleanup { destroy .t.f @@ -5270,15 +5284,15 @@ test bind-24.9 {FindSequence procedure: similar pattern sequence} -setup { } -body { bind .t.f <Button-1><Button-2> {lappend x 1-2} bind .t.f <Button-2><Button-2> {lappend x 2-2} - event gen .t.f <Button-3> - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.f <Button-1> - event gen .t.f <ButtonRelease-1> - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> + event generate .t.f <Button-3> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.f <Button-1> + event generate .t.f <ButtonRelease-1> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> set x } -cleanup { destroy .t.f @@ -5292,17 +5306,17 @@ test bind-24.10 {FindSequence procedure: similar pattern sequence} -setup { } -body { bind .t.f <Button-2><Button-2> {lappend x 2-2} bind .t.f <Double-Button-2> {lappend x d-2} - event gen .t.f <Button-3> - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> - event gen .t.f <Button-1> - event gen .t.f <ButtonRelease-1> - event gen .t.f <Button-2> -x 100 - event gen .t.f <ButtonRelease-2> - event gen .t.f <Button-2> -x 200 - event gen .t.f <ButtonRelease-2> + event generate .t.f <Button-3> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> + event generate .t.f <Button-1> + event generate .t.f <ButtonRelease-1> + event generate .t.f <Button-2> -x 100 + event generate .t.f <ButtonRelease-2> + event generate .t.f <Button-2> -x 200 + event generate .t.f <ButtonRelease-2> set x } -cleanup { destroy .t.f @@ -5746,7 +5760,7 @@ test bind-26.4 {event names: Motion} -setup { } -body { bind .t.f <Motion> "set x {event Motion}" set x xyzzy - event gen .t.f <Motion> + event generate .t.f <Motion> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -5760,7 +5774,7 @@ test bind-26.5 {event names: Button} -setup { } -body { bind .t.f <Button> "set x {event Button}" set x xyzzy - event gen .t.f <Button> + event generate .t.f <Button> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -5774,7 +5788,7 @@ test bind-26.6 {event names: ButtonPress} -setup { } -body { bind .t.f <ButtonPress> "set x {event ButtonPress}" set x xyzzy - event gen .t.f <ButtonPress> + event generate .t.f <ButtonPress> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -5788,7 +5802,7 @@ test bind-26.7 {event names: ButtonRelease} -setup { } -body { bind .t.f <ButtonRelease> "set x {event ButtonRelease}" set x xyzzy - event gen .t.f <ButtonRelease> + event generate .t.f <ButtonRelease> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -5802,7 +5816,7 @@ test bind-26.8 {event names: Colormap} -setup { } -body { bind .t.f <Colormap> "set x {event Colormap}" set x xyzzy - event gen .t.f <Colormap> + event generate .t.f <Colormap> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -5816,7 +5830,7 @@ test bind-26.9 {event names: Enter} -setup { } -body { bind .t.f <Enter> "set x {event Enter}" set x xyzzy - event gen .t.f <Enter> + event generate .t.f <Enter> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -5830,7 +5844,7 @@ test bind-26.10 {event names: Leave} -setup { } -body { bind .t.f <Leave> "set x {event Leave}" set x xyzzy - event gen .t.f <Leave> + event generate .t.f <Leave> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -5844,7 +5858,7 @@ test bind-26.11 {event names: Expose} -setup { } -body { bind .t.f <Expose> "set x {event Expose}" set x xyzzy - event gen .t.f <Expose> + event generate .t.f <Expose> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -5858,7 +5872,7 @@ test bind-26.12 {event names: Key} -setup { } -body { bind .t.f <Key> "set x {event Key}" set x xyzzy - event gen .t.f <Key> + event generate .t.f <Key> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -5872,7 +5886,7 @@ test bind-26.13 {event names: KeyPress} -setup { } -body { bind .t.f <KeyPress> "set x {event KeyPress}" set x xyzzy - event gen .t.f <KeyPress> + event generate .t.f <KeyPress> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -5886,7 +5900,7 @@ test bind-26.14 {event names: KeyRelease} -setup { } -body { bind .t.f <KeyRelease> "set x {event KeyRelease}" set x xyzzy - event gen .t.f <KeyRelease> + event generate .t.f <KeyRelease> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -5900,7 +5914,7 @@ test bind-26.15 {event names: Property} -setup { } -body { bind .t.f <Property> "set x {event Property}" set x xyzzy - event gen .t.f <Property> + event generate .t.f <Property> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -5914,7 +5928,7 @@ test bind-26.16 {event names: Visibility} -setup { } -body { bind .t.f <Visibility> "set x {event Visibility}" set x xyzzy - event gen .t.f <Visibility> + event generate .t.f <Visibility> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -5928,7 +5942,7 @@ test bind-26.17 {event names: Activate} -setup { } -body { bind .t.f <Activate> "set x {event Activate}" set x xyzzy - event gen .t.f <Activate> + event generate .t.f <Activate> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -5942,7 +5956,7 @@ test bind-26.18 {event names: Deactivate} -setup { } -body { bind .t.f <Deactivate> "set x {event Deactivate}" set x xyzzy - event gen .t.f <Deactivate> + event generate .t.f <Deactivate> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -5958,7 +5972,7 @@ test bind-26.19 {event names: Circulate} -setup { } -body { bind .t.f <Circulate> "set x {event Circulate}" set x xyzzy - event gen .t.f <Circulate> + event generate .t.f <Circulate> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -5972,7 +5986,7 @@ test bind-26.20 {event names: Configure} -setup { } -body { bind .t.f <Configure> "set x {event Configure}" set x xyzzy - event gen .t.f <Configure> + event generate .t.f <Configure> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -5986,7 +6000,7 @@ test bind-26.21 {event names: Gravity} -setup { } -body { bind .t.f <Gravity> "set x {event Gravity}" set x xyzzy - event gen .t.f <Gravity> + event generate .t.f <Gravity> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -6000,7 +6014,7 @@ test bind-26.22 {event names: Map} -setup { } -body { bind .t.f <Map> "set x {event Map}" set x xyzzy - event gen .t.f <Map> + event generate .t.f <Map> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -6014,7 +6028,7 @@ test bind-26.23 {event names: Reparent} -setup { } -body { bind .t.f <Reparent> "set x {event Reparent}" set x xyzzy - event gen .t.f <Reparent> + event generate .t.f <Reparent> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -6028,7 +6042,7 @@ test bind-26.24 {event names: Unmap} -setup { } -body { bind .t.f <Unmap> "set x {event Unmap}" set x xyzzy - event gen .t.f <Unmap> + event generate .t.f <Unmap> list $x [bind .t.f] } -cleanup { destroy .t.f @@ -6049,8 +6063,8 @@ test bind-27.3 {button names} -setup { } -body { bind .t.f <Button-1> {lappend x "button 1"} set x [bind .t.f] - event gen .t.f <Button-1> - event gen .t.f <ButtonRelease-1> + event generate .t.f <Button-1> + event generate .t.f <ButtonRelease-1> set x } -cleanup { destroy .t.f @@ -6063,8 +6077,8 @@ test bind-27.4 {button names} -setup { } -body { bind .t.f <Button-2> {lappend x "button 2"} set x [bind .t.f] - event gen .t.f <Button-2> - event gen .t.f <ButtonRelease-2> + event generate .t.f <Button-2> + event generate .t.f <ButtonRelease-2> set x } -cleanup { destroy .t.f @@ -6077,8 +6091,8 @@ test bind-27.5 {button names} -setup { } -body { bind .t.f <Button-3> {lappend x "button 3"} set x [bind .t.f] - event gen .t.f <Button-3> - event gen .t.f <ButtonRelease-3> + event generate .t.f <Button-3> + event generate .t.f <ButtonRelease-3> set x } -cleanup { destroy .t.f @@ -6091,8 +6105,8 @@ test bind-27.6 {button names} -setup { } -body { bind .t.f <Button-4> {lappend x "button 4"} set x [bind .t.f] - event gen .t.f <Button-4> - event gen .t.f <ButtonRelease-4> + event generate .t.f <Button-4> + event generate .t.f <ButtonRelease-4> set x } -cleanup { destroy .t.f @@ -6105,8 +6119,8 @@ test bind-27.7 {button names} -setup { } -body { bind .t.f <Button-5> {lappend x "button 5"} set x [bind .t.f] - event gen .t.f <Button-5> - event gen .t.f <ButtonRelease-5> + event generate .t.f <Button-5> + event generate .t.f <ButtonRelease-5> set x } -cleanup { destroy .t.f @@ -6136,14 +6150,14 @@ test bind-28.5 {keysym names} -setup { focus -force .t.f update } -body { - bind .t.f <Key-a> "lappend x \"keysym a\"" - bind .t.f <Key-x> "lappend x {bad binding match}" + bind .t.f <Key-:> "lappend x \"keysym received\"" + bind .t.f <Key-_> "lappend x {bad binding match}" set x [lsort [bind .t.f]] - event gen .t.f <Key-a> -state 0 + event generate .t.f <Key-:> ;# -state 0 set x } -cleanup { destroy .t.f -} -result {a x {keysym a}} +} -result {: _ {keysym received}} test bind-28.6 {keysym names} -setup { frame .t.f -class Test -width 150 -height 100 pack .t.f @@ -6153,7 +6167,7 @@ test bind-28.6 {keysym names} -setup { bind .t.f <Key-Return> "lappend x \"keysym Return\"" bind .t.f <Key-x> "lappend x {bad binding match}" set x [lsort [bind .t.f]] - event gen .t.f <Key-Return> -state 0 + event generate .t.f <Key-Return> -state 0 set x } -cleanup { destroy .t.f @@ -6167,7 +6181,7 @@ test bind-28.7 {keysym names} -setup { bind .t.f <Key-X> "lappend x \"keysym X\"" bind .t.f <Key-x> "lappend x {bad binding match}" set x [lsort [bind .t.f]] - event gen .t.f <Key-X> -state 1 + event generate .t.f <Key-X> -state 1 set x } -cleanup { destroy .t.f @@ -6181,7 +6195,7 @@ test bind-28.8 {keysym names} -setup { bind .t.f <Key-X> "lappend x \"keysym X\"" bind .t.f <Key-x> "lappend x {bad binding match}" set x [lsort [bind .t.f]] - event gen .t.f <Key-X> -state 1 + event generate .t.f <Key-X> -state 1 set x } -cleanup { destroy .t.f @@ -6200,8 +6214,8 @@ test bind-29.1 {Tk_BackgroundError procedure} -setup { } -body { bind .t.f <Button> {error "This is a test"} set x none - event gen .t.f <Button> - event gen .t.f <ButtonRelease> + event generate .t.f <Button> + event generate .t.f <ButtonRelease> update set x } -cleanup { @@ -6214,8 +6228,8 @@ test bind-29.1 {Tk_BackgroundError procedure} -setup { test bind-29.2 {Tk_BackgroundError procedure} -setup { proc do {} { - event gen .t.f <Button> - event gen .t.f <ButtonRelease> + event generate .t.f <Button> + event generate .t.f <ButtonRelease> } proc bgerror msg { global x errorInfo @@ -6249,7 +6263,7 @@ test bind-30.1 {MouseWheel events} -setup { set x {} } -body { bind .t.f <MouseWheel> {set x Wheel} - event gen .t.f <MouseWheel> + event generate .t.f <MouseWheel> set x } -cleanup { destroy .t.f @@ -6262,7 +6276,7 @@ test bind-30.2 {MouseWheel events} -setup { set x {} } -body { bind .t.f <MouseWheel> {set x %D} - event gen .t.f <MouseWheel> -delta 120 + event generate .t.f <MouseWheel> -delta 120 set x } -cleanup { destroy .t.f @@ -6275,7 +6289,7 @@ test bind-30.3 {MouseWheel events} -setup { set x {} } -body { bind .t.f <MouseWheel> {set x "%D %x %y"} - event gen .t.f <MouseWheel> -delta 240 -x 10 -y 30 + event generate .t.f <MouseWheel> -delta 240 -x 10 -y 30 set x } -cleanup { destroy .t.f @@ -6289,7 +6303,7 @@ test bind-31.1 {virtual event user_data field - bad generation} -setup { update } -body { # Check no confusion, since Focus events use %d for something else - event gen .t.f <FocusIn> -data foo + event generate .t.f <FocusIn> -data foo } -cleanup { destroy .t.f } -returnCodes error -result {<FocusIn> event doesn't accept "-data" option} @@ -6301,7 +6315,7 @@ test bind-31.2 {virtual event user_data field - NULL, synch} -setup { set x {} } -body { bind .t.f <<TestUserData>> {set x "TestUserData >%d<"} - event gen .t.f <<TestUserData>> + event generate .t.f <<TestUserData>> set x } -cleanup { destroy .t.f @@ -6314,7 +6328,7 @@ test bind-31.3 {virtual event user_data field - shared, synch} -setup { set x {} } -body { bind .t.f <<TestUserData>> {set x "TestUserData >%d<"} - event gen .t.f <<TestUserData>> -data "foo bar" + event generate .t.f <<TestUserData>> -data "foo bar" set x } -cleanup { destroy .t.f @@ -6327,7 +6341,7 @@ test bind-31.4 {virtual event user_data field - unshared, synch} -setup { set x {} } -body { bind .t.f <<TestUserData>> {set x "TestUserData >%d<"} - event gen .t.f <<TestUserData>> -data [string index abc 1] + event generate .t.f <<TestUserData>> -data [string index abc 1] set x } -cleanup { destroy .t.f @@ -6344,7 +6358,7 @@ test bind-31.5 {virtual event user_data field - NULL, asynch} -setup { set x {} } -body { bind .t.f <<TestUserData>> {set x "TestUserData >%d<"} - event gen .t.f <<TestUserData>> -when head + event generate .t.f <<TestUserData>> -when head list $x [update] $x } -cleanup { destroy .t.f @@ -6357,7 +6371,7 @@ test bind-31.6 {virtual event user_data field - shared, asynch} -setup { set x {} } -body { bind .t.f <<TestUserData>> {set x "TestUserData >%d<"} - event gen .t.f <<TestUserData>> -data "foo bar" -when head + event generate .t.f <<TestUserData>> -data "foo bar" -when head list $x [update] $x } -cleanup { destroy .t.f @@ -6370,7 +6384,7 @@ test bind-31.7 {virtual event user_data field - unshared, asynch} -setup { set x {} } -body { bind .t.f <<TestUserData>> {set x "TestUserData >%d<"} - event gen .t.f <<TestUserData>> -data [string index abc 1] -when head + event generate .t.f <<TestUserData>> -data [string index abc 1] -when head list $x [update] $x } -cleanup { destroy .t.f @@ -6384,11 +6398,3 @@ return # Local Variables: # mode: tcl # End: - - - - - - - - |