Tk Source Code

Check-in [7bc53e6b]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:Removed test listbox-3.18c since it is irrelevant (the rendering of the selected items is made in a code that depends on existence of a selection but this is untestable by bboxing since bbox is independent from the presence of a selection in the listbox)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-441
Files: files | file ages | folders
SHA1: 7bc53e6b1a74dcc4539b50143b9475f5c554e9d5
User & Date: fvogel 2016-01-16 15:45:54
Context
2016-01-17
20:40
Addressed questions 3 and 5 (see artifact [9d48a9c212] of ticket [3f456a5bb9]). It is not desirable to make the listbox xview jump on resizing. check-in: 33195408 user: fvogel tags: tip-441
2016-01-16
15:45
Removed test listbox-3.18c since it is irrelevant (the rendering of the selected items is made in a code that depends on existence of a selection but this is untestable by bboxing since bbox is independent from the presence of a selection in the listbox) check-in: 7bc53e6b user: fvogel tags: tip-441
15:43
Decided about test results for listbox-3.18a check-in: 712e2125 user: fvogel tags: tip-441
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/listbox.test.

501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
        set res [expr {$res * [expr {[lindex $lres $i] >= 0}] }]
    }
    set res
} -cleanup {
    destroy .top.l .top
    unset -nocomplain lres res
} -result {1}
test listbox-3.18c {ListboxWidgetCmd procedure, "bbox" option, justified, selecting does not change offset} -setup {
    destroy .top.l .top
    unset -nocomplain bb1 bb2
} -body {
    toplevel .top
    listbox .top.l -justify center
    .top.l insert end Item1 Item2 Item3
    pack .top.l
    update
    set bb1 [.top.l bbox 1]
    .top.l selection set 1
    update
    set bb2 [.top.l bbox 1]
    expr {
            [lindex $bb1 0] == [lindex $bb2 0] &&
            [lindex $bb1 1] == [lindex $bb2 1] &&
            [lindex $bb1 2] == [lindex $bb2 2] &&
            [lindex $bb1 3] == [lindex $bb2 3]
         }
    # Note: the result of this test is relevant only if test listbox-3.18a
    #       succeeds first, otherwise the fact the present test listbox-3.18c
    #       passes does not mean it is OK
} -cleanup {
    destroy .top.l .top
    unset -nocomplain bb1 bb2
} -result {1}
test listbox-3.19 {ListboxWidgetCmd procedure, "cget" option} -body {
    .l cget
} -returnCodes error -result {wrong # args: should be ".l cget option"}
test listbox-3.20 {ListboxWidgetCmd procedure, "cget" option} -body {
    .l cget a b
} -returnCodes error -result {wrong # args: should be ".l cget option"}
test listbox-3.21 {ListboxWidgetCmd procedure, "cget" option} -body {






<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<







501
502
503
504
505
506
507


























508
509
510
511
512
513
514
        set res [expr {$res * [expr {[lindex $lres $i] >= 0}] }]
    }
    set res
} -cleanup {
    destroy .top.l .top
    unset -nocomplain lres res
} -result {1}


























test listbox-3.19 {ListboxWidgetCmd procedure, "cget" option} -body {
    .l cget
} -returnCodes error -result {wrong # args: should be ".l cget option"}
test listbox-3.20 {ListboxWidgetCmd procedure, "cget" option} -body {
    .l cget a b
} -returnCodes error -result {wrong # args: should be ".l cget option"}
test listbox-3.21 {ListboxWidgetCmd procedure, "cget" option} -body {