|
From: Harald O. <har...@el...> - 2018-01-09 14:30:35
|
Brian, Francois, thank you for your contrinutions. A ticket is created with additional tests of a man walking in the dark: https://core.tcl.tk/tk/info/69b48f427e94899a Maybe, we continue the discussion there. Thank you, Harald Am 08.01.2018 um 22:41 schrieb Brian Griffin: > I think this test is suspect. There's no certainty that an Enter event > is NOT produced from the action of the first event gen statement since > the initial position of the cursor is unknown: > > event gen .t <Motion> -warp 1 -x 0 -y 0 ; update > > I would try changing the test: > > event gen .t <Motion> -warp 1 -x 0 -y 0 ; update ;# Initialize pointer > location. > set res {} > # Bindings must not trigger on the widget border, only over > # the actual tagged characters themselves. > event gen .t <Motion> -warp 1 -x 0 -y 0 ; update ;# Should be a no-op > now because the previous event will essentially initialize the pointer > location. |