Tk Source Code

Check-in [8de53960]
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:Add minimal testing of the ttk::progressbar options
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-442
Files: files | file ages | folders
SHA1:8de539604c4183d9cf383783dbb1bbc0ed033426
User & Date: fvogel 2017-03-11 10:38:10
Context
2017-03-13
13:33
Add test progressbar-3.2 (tweaked from a proposal from RenĂ© Zaumseil) check-in: 01aee6e3 user: fvogel tags: tip-442
2017-03-11
10:38
Add minimal testing of the ttk::progressbar options check-in: 8de53960 user: fvogel tags: tip-442
2017-03-07
22:00
Remove duplicate documentation of -width in ttk::button check-in: 72d43a1d user: fvogel tags: tip-442
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/ttk/progressbar.test.

77
78
79
80
81
82
83
84















85
    .pb step
    set PB		;# NOTREACHED
} -cleanup { unset PB } -returnCodes 1 -match glob -result "*YIPES!"

test progressbar-end "Cleanup" -body {
    destroy .pb
}
















tcltest::cleanupTests








>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
    .pb step
    set PB		;# NOTREACHED
} -cleanup { unset PB } -returnCodes 1 -match glob -result "*YIPES!"

test progressbar-end "Cleanup" -body {
    destroy .pb
}

# check existence and default value of each non-core option of the widget
test progressbar-3.1 "progressbar non-core options" -setup {
    set res {}
    ttk::progressbar .defaultpb
} -body {
    foreach option {-anchor -foreground -justify -style -text -wraplength \
                    -length -maximum -mode -orient -phase -value -variable} {
        lappend res [.defaultpb cget $option]
    }
    set res
} -cleanup {
    unset res
    destroy .defaultpb
} -result {w black left {} {} 0 100 100 determinate horizontal 0 0.0 {}}

tcltest::cleanupTests