diff options
| author | fvogel <fvogelnew1@free.fr> | 2021-03-06 10:19:16 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2021-03-06 10:19:16 (GMT) |
| commit | d28658ecf2728c9a192d3173ff479302928b3534 (patch) | |
| tree | a983b44924b22de28e33f632811d2b9ffe312676 | |
| parent | 8a59ed048ad3c768155313815729cf11be0f2007 (diff) | |
| download | tk-d28658ecf2728c9a192d3173ff479302928b3534.zip tk-d28658ecf2728c9a192d3173ff479302928b3534.tar.gz tk-d28658ecf2728c9a192d3173ff479302928b3534.tar.bz2 | |
Some debug info in an attempt to understand what's going on with textTag-16.2 (font issue?)
| -rw-r--r-- | tests/textTag.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/textTag.test b/tests/textTag.test index ad2a830..618b1cc 100644 --- a/tests/textTag.test +++ b/tests/textTag.test @@ -1608,6 +1608,14 @@ test textTag-16.2 {TkTextPickCurrent procedure} -constraints { wm geometry . +200+200 ; update event generate {} <Motion> -warp 1 -x 5 -y 5 ; update idletasks ; after 50 } -body { +# some debug info +puts [.t cget -font] +puts [font actual [.t cget -font]] +puts [font metrics [.t cget -font]] +puts $bigFont +puts [font actual $bigFont] +puts [font metrics $bigFont] +puts "$x1,$y1 -- $x2,$y2" .t tag configure big -font $bigFont event gen .t <ButtonRelease-1> -state 0x100 -x $x1 -y $y1 event gen .t <Motion> -x $x2 -y $y2 |