summaryrefslogtreecommitdiffstats
path: root/tests/bevel.tcl
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-11-29 14:21:34 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-11-29 14:21:34 (GMT)
commitb8bfd3505b511a3cc94297df7f04c55505d6df2c (patch)
tree8e2c7042fb900403847a2471872c872231fe9527 /tests/bevel.tcl
parent510e1a4afed492f79e94a67224a0823158aa1db2 (diff)
parent617357cee930232f242f3f6345ac828f2ab59b10 (diff)
downloadtk-b8bfd3505b511a3cc94297df7f04c55505d6df2c.zip
tk-b8bfd3505b511a3cc94297df7f04c55505d6df2c.tar.gz
tk-b8bfd3505b511a3cc94297df7f04c55505d6df2c.tar.bz2
Fixed bug [1997299fff] - Tag borderwidth leaking
Diffstat (limited to 'tests/bevel.tcl')
-rw-r--r--tests/bevel.tcl39
1 files changed, 30 insertions, 9 deletions
diff --git a/tests/bevel.tcl b/tests/bevel.tcl
index 950b714..531def0 100644
--- a/tests/bevel.tcl
+++ b/tests/bevel.tcl
@@ -42,6 +42,7 @@ significance:
r - should appear raised
u - should appear raised and also slightly offset vertically
s - should appear sunken
+S - should appear solid
n - preceding relief should extend right to end of line.
* - should appear "normal"
x - extra long lines to allow horizontal scrolling.
@@ -125,15 +126,35 @@ foreach i {1 2 3} {
.t.t insert end *****
.t.t insert end rrr r1
+font configure TkFixedFont -size 20
+.t.t tag configure sol100 -relief solid -borderwidth 100 \
+ -foreground red -font TkFixedFont
+.t.t tag configure sol12 -relief solid -borderwidth 12 \
+ -foreground red -font TkFixedFont
+.t.t tag configure big -font TkFixedFont
+set ind [.t.t index end]
+
+.t.t insert end "\n\nBorders do not leak on the neighbour chars"
+.t.t insert end "\nOnly \"S\" is on dark background"
+.t.t insert end {
+ xxx
+ x} {} S sol100 {x
+ xxx}
+
+.t.t insert end "\n\nA very thick border grows toward the inside of the tagged area only"
+.t.t insert end "\nOnly \"S\" is on dark background"
+.t.t insert end {
+ xxxx} {} SSSSS sol100 {xxxx
+ x} {} SSSSSSSSSSSSSSSSSS sol100 {x
+ xxx} {} SSSSSSSSS sol100 xxxx {}
+}
+.t.t insert end "\n\nA thinner border is continuous"
+.t.t insert end {
+ xxxx} {} SSSSS sol12 {xxxx
+ x} {} SSSSSSSSSSSSSSSSSS sol12 {x
+ xxx} {} SSSSSSSSS sol12 xxxx {}
+}
-
-
-
-
-
-
-
-
-
+.t.t tag add big $ind end