Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add failsOnXQuarz constraint to more testcases |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | core-8-6-branch |
| Files: | files | file ages | folders |
| SHA3-256: |
fe177b079984eaddd6662f413768c3e5 |
| User & Date: | jan.nijtmans 2024-08-11 16:43:52.103 |
Context
|
2024-08-16
| ||
| 14:48 | Fix [d82fa2953a]: Cosmetic issues when ttk::treeview height is not a full number of lines. check-in: 5428a246 user: sbron tags: core-8-6-branch | |
|
2024-08-15
| ||
| 14:17 | Create new branch named "bug-d82fa2953a" check-in: 1232613a user: csaba tags: bug-d82fa2953a | |
|
2024-08-11
| ||
| 16:48 | See if --disable-aqua build works now check-in: 9c1acbf1 user: jan.nijtmans tags: bug-36e379c01b | |
| 16:43 | Add failsOnXQuarz constraint to more testcases check-in: fe177b07 user: jan.nijtmans tags: core-8-6-branch | |
|
2024-08-09
| ||
| 13:51 | Same cleanup as in commit [520afa7b]. Thanks Jan! check-in: 5dd765ba user: csaba tags: core-8-6-branch | |
Changes
Changes to tests/entry.test.
| ︙ | ︙ | |||
990 991 992 993 994 995 996 |
pack .e ; update idletasks
update
} -body {
.e index 0
} -cleanup {
destroy .e
} -returnCodes {ok} -match glob -result {*}
| | | 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 |
pack .e ; update idletasks
update
} -body {
.e index 0
} -cleanup {
destroy .e
} -returnCodes {ok} -match glob -result {*}
test entry-3.35 {EntryWidgetCmd procedure, "index" widget command} -constraints failsOnXQuarz -setup {
entry .e
pack .e ; update idletasks
update
} -body {
# UTF
.e insert 0 abc\u4e4e\u0153def
list [.e index 3] [.e index 4] [.e index end]
|
| ︙ | ︙ |
Changes to tests/spinbox.test.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
# This file is a Tcl script to test spinbox widgets in Tk. It is
# organized in the standard fashion for Tcl tests.
#
# Copyright (c) 1994 The Regents of the University of California.
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
# Copyright (c) 1998-1999 Scriptics Corporation.
# All rights reserved.
package require tcltest 2.2
namespace import ::tcltest::*
eval tcltest::configure $argv
tcltest::loadTestedCommands
# For xscrollcommand
set scrollInfo {}
proc scroll args {
global scrollInfo
set scrollInfo $args
}
# For trace add variable
| > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
# This file is a Tcl script to test spinbox widgets in Tk. It is
# organized in the standard fashion for Tcl tests.
#
# Copyright (c) 1994 The Regents of the University of California.
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
# Copyright (c) 1998-1999 Scriptics Corporation.
# All rights reserved.
package require tcltest 2.2
namespace import ::tcltest::*
eval tcltest::configure $argv
tcltest::loadTestedCommands
testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowingsystem] ne "x11" }]
# For xscrollcommand
set scrollInfo {}
proc scroll args {
global scrollInfo
set scrollInfo $args
}
# For trace add variable
|
| ︙ | ︙ | |||
1225 1226 1227 1228 1229 1230 1231 |
} -body {
.e insert end "01234567890"
.e delete 6
.e get
} -cleanup {
destroy .e
} -result 0123457890
| | | 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 |
} -body {
.e insert end "01234567890"
.e delete 6
.e get
} -cleanup {
destroy .e
} -result 0123457890
test spinbox-3.24 {SpinboxWidgetCmd procedure, "delete" widget command} -constraints failsOnXQuarz -setup {
spinbox .e
pack .e
update
set x {}
} -body {
# UTF
.e insert end "01234\u4e4e67890"
|
| ︙ | ︙ | |||
1343 1344 1345 1346 1347 1348 1349 |
pack .e
update
} -body {
.e index 0
} -cleanup {
destroy .e
} -returnCodes {ok} -match glob -result {*}
| | | 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 |
pack .e
update
} -body {
.e index 0
} -cleanup {
destroy .e
} -returnCodes {ok} -match glob -result {*}
test spinbox-3.35 {SpinboxWidgetCmd procedure, "index" widget command} -constraints failsOnXQuarz -setup {
spinbox .e
pack .e
update
} -body {
# UTF
.e insert 0 abc\u4e4e\u0153def
list [.e index 3] [.e index 4] [.e index end]
|
| ︙ | ︙ |