Tk Source Code

Check-in [29670ec1]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:-selectfgstipple tag configuration option: tests
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-443
Files: files | file ages | folders
SHA1:29670ec14c1fae99febe793047dddb36727d20bf
User & Date: fvogel 2016-02-09 21:37:33
Context
2016-02-09
21:40
-underlinefg tag configuration option: implementation check-in: 6a21622c user: fvogel tags: tip-443
21:37
-selectfgstipple tag configuration option: tests check-in: 29670ec1 user: fvogel tags: tip-443
21:36
-selectfgstipple tag configuration option: documentation (+ polished doc of the previously developed new tag options) check-in: 305ec969 user: fvogel tags: tip-443
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/textTag.test.

247
248
249
250
251
252
253











254
255
256
257
258
259
260
261
262
263
264
265
266
} -result {gray50}
test textTag-1.25d {configuration options} -body {
    .t tag configure x -selectbgstipple badStipple
} -cleanup {
    .t tag configure x -selectbgstipple [lindex [.t tag configure x -selectbgstipple] 3]
} -returnCodes error -result {bitmap "badStipple" not defined}
test textTag-1.25e {tag configuration options} -body {











    .t tag configure x -selectforeground #012345
    .t tag cget x -selectforeground
} -cleanup {
    .t tag configure x -selectforeground [lindex [.t tag configure x -selectforeground] 3]
} -result {#012345}
test textTag-1.25f {configuration options} -body {
    .t tag configure x -selectforeground non-existent
} -cleanup {
    .t tag configure x -selectforeground [lindex [.t tag configure x -selectforeground] 3]
} -returnCodes error -result {unknown color name "non-existent"}
test textTag-1.26 {tag configuration options} -constraints {
    haveCourier12
} -body {







>
>
>
>
>
>
>
>
>
>
>





|







247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
} -result {gray50}
test textTag-1.25d {configuration options} -body {
    .t tag configure x -selectbgstipple badStipple
} -cleanup {
    .t tag configure x -selectbgstipple [lindex [.t tag configure x -selectbgstipple] 3]
} -returnCodes error -result {bitmap "badStipple" not defined}
test textTag-1.25e {tag configuration options} -body {
    .t tag configure x -selectfgstipple gray50
    .t tag cget x -selectfgstipple
} -cleanup {
    .t tag configure x -selectfgstipple [lindex [.t tag configure x -selectfgstipple] 3]
} -result {gray50}
test textTag-1.25f {configuration options} -body {
    .t tag configure x -selectfgstipple badStipple
} -cleanup {
    .t tag configure x -selectfgstipple [lindex [.t tag configure x -selectfgstipple] 3]
} -returnCodes error -result {bitmap "badStipple" not defined}
test textTag-1.25g {tag configuration options} -body {
    .t tag configure x -selectforeground #012345
    .t tag cget x -selectforeground
} -cleanup {
    .t tag configure x -selectforeground [lindex [.t tag configure x -selectforeground] 3]
} -result {#012345}
test textTag-1.25h {configuration options} -body {
    .t tag configure x -selectforeground non-existent
} -cleanup {
    .t tag configure x -selectforeground [lindex [.t tag configure x -selectforeground] 3]
} -returnCodes error -result {unknown color name "non-existent"}
test textTag-1.26 {tag configuration options} -constraints {
    haveCourier12
} -body {