diff options
author | fvogel <fvogelnew1@free.fr> | 2022-06-28 22:48:23 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2022-06-28 22:48:23 (GMT) |
commit | 4c5e92fc40f2037e7307530382063fa1419f3ea1 (patch) | |
tree | 0ea9b5cc4aed363511ea05f1b0feb99ab7bafed1 /tests/unixEmbed.test | |
parent | 39eed7da387ffc81dff38dd021195711bc9375ef (diff) | |
download | tk-4c5e92fc40f2037e7307530382063fa1419f3ea1.zip tk-4c5e92fc40f2037e7307530382063fa1419f3ea1.tar.gz tk-4c5e92fc40f2037e7307530382063fa1419f3ea1.tar.bz2 |
In unixEmbed-11.2, make a difference in the output between the result of the winfo containing commands and the -command triggered.
Diffstat (limited to 'tests/unixEmbed.test')
-rw-r--r-- | tests/unixEmbed.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/unixEmbed.test b/tests/unixEmbed.test index 1b84de5..35cb61c 100644 --- a/tests/unixEmbed.test +++ b/tests/unixEmbed.test @@ -1299,13 +1299,13 @@ test unixEmbed-11.2 {mouse coordinates in embedded toplevels} -constraints { wm geometry .main 200x400+100+100 set result {} pack [button .main.b -text "Main Button" \ - -command {lappend result ".main.b"}] -padx 30 -pady 30 + -command {lappend result "pushed .main.b"}] -padx 30 -pady 30 pack [frame .main.f -container 1 -width 200 -height 200] -fill both updateWidgets toplevel .embed -use [winfo id .main.f] -bg green update pack [button .embed.b -text "Emb Button" \ - -command {lappend result ".embed.b"}] -padx 30 -pady 30 + -command {lappend result "pushed .embed.b"}] -padx 30 -pady 30 update waitForMap .embed.b focus -force .main @@ -1324,7 +1324,7 @@ test unixEmbed-11.2 {mouse coordinates in embedded toplevels} -constraints { set result } -cleanup { deleteWindows -} -result {.main.b .main.b .embed.b .embed.b} +} -result {.main.b {pushed .main.b} .embed.b {pushed .embed.b}} # cleanup |