Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added visual tests for borders, following bug [1997299fff] |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | bug-1997299fff |
| Files: | files | file ages | folders |
| SHA1: |
8e4f69e8507046f29b01523c0c095bb8 |
| User & Date: | fvogel 2015-11-18 21:14:04 |
Context
|
2015-11-29
| ||
| 14:21 | Fixed bug [1997299fff] - Tag borderwidth leaking check-in: 9046f1cb user: fvogel tags: core-8-5-branch | |
|
2015-11-18
| ||
| 21:14 | Added visual tests for borders, following bug [1997299fff] Closed-Leaf check-in: 8e4f69e8 user: fvogel tags: bug-1997299fff | |
|
2015-11-17
| ||
| 23:52 | More leaking tags fixed, see test script in bug [1997299fff] check-in: e5e8449b user: fvogel tags: bug-1997299fff | |
Changes
Changes to tests/bevel.tcl.
| ︙ | ︙ | |||
38 39 40 41 42 43 44 45 46 47 48 49 50 51 | regions to exercise the bevel-drawing facilities of DisplayLineBackground. The letters have the following significance: r - should appear raised u - should appear raised and also slightly offset vertically s - should appear sunken n - preceding relief should extend right to end of line. * - should appear "normal" x - extra long lines to allow horizontal scrolling. Try scrolling the text both vertically and horizontally to be sure that the bevels are still drawn correctly. | > | 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | regions to exercise the bevel-drawing facilities of DisplayLineBackground. The letters have the following 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. Try scrolling the text both vertically and horizontally to be sure that the bevels are still drawn correctly. |
| ︙ | ︙ | |||
121 122 123 124 125 126 127 |
.t.t insert end rrrrr r1
}
.t.t insert end \n
.t.t insert end rrr r1
.t.t insert end *****
.t.t insert end rrr r1
| | | | | | > > > > > > > > > > > > > > | > > > > > | > | 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 |
.t.t insert end rrrrr r1
}
.t.t insert end \n
.t.t insert end rrr r1
.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
|