Tk Source Code

Check-in [9a244ba8]
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:Removed unfinished test case committed by error in the previous commit.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-441
Files: files | file ages | folders
SHA1:9a244ba86e58935facd83daa7d72a75fe1bfc9d9
User & Date: fvogel 2016-01-18 18:45:27
Context
2016-01-22
09:21
Implement TIP #441: Add -justify Configuration Option to the listbox Widget check-in: 12499582 user: jan.nijtmans tags: trunk
2016-01-18
18:45
Removed unfinished test case committed by error in the previous commit. Closed-Leaf check-in: 9a244ba8 user: fvogel tags: tip-441
18:43
Reverted [5f396dacdc]. check-in: d1731afd user: fvogel tags: tip-441
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/listbox.test.

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, with x scrolling} -setup {
     destroy .top.l .top.hs .top

} -body {
package req Tk
destroy .top.l .top.hs .top
     toplevel .top
     listbox .top.l -justify right -borderwidth 7 -highlightthickness 10 -selectborderwidth 20
     scrollbar .top.hs -command ".top.l xview" -orient horizontal
     .top.l configure -xscrollcommand ".top.hs set"
     set huge [concat "START -" [string repeat "Huge Item... " 20] "- END"]
     .top.l insert end VeryVeryLongItem1 AnEvenMuchVeryVeryLongerItem2 $huge ShortItem3
     pack .top.l -expand 1 -fill both
     pack .top.hs -expand 1 -fill x
     update

<TODO> finish write this test case

} -cleanup {
     destroy .top.l .top.hs .top

} -result {}
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 {







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







505
506
507
508
509
510
511






















512
513
514
515
516
517
518
        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 {