Tk Source Code

Check-in [01aee6e3]
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 test progressbar-3.2 (tweaked from a proposal from René Zaumseil)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-442
Files: files | file ages | folders
SHA1:01aee6e38f48c14cd76c73c943ec57015252f836
User & Date: fvogel 2017-03-13 13:33:38
Context
2017-03-13
13:43
Reorder progressbar options alphabetically (to follow the standard convention in the source code) check-in: b00e64c4 user: fvogel tags: tip-442
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
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/ttk/progressbar.test.

93
94
95
96
97
98
99
























100
    }
    set res
} -cleanup {
    unset res
    destroy .defaultpb
} -result {w black left {} {} 0 100 100 determinate horizontal 0 0.0 {}}

























tcltest::cleanupTests







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

93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
    }
    set res
} -cleanup {
    unset res
    destroy .defaultpb
} -result {w black left {} {} 0 100 100 determinate horizontal 0 0.0 {}}

test progressbar-3.2 "TIP #442 options are taken into account" -setup {
    set res {}
    pack [ttk::progressbar .p -value 0 -maximum 50 -orient horizontal -mode determinate -length 500]
    set thefont [font actual {Arial 10}]
} -body {
    .p configure -anchor c -foreground blue -justify right \
            -text "TIP #442\noptions are now tested" -wraplength 100
    update
    .p step 10
    .p configure -anchor e -font $thefont -foreground green -justify center \
            -text "Changing the value of each option\nfrom TIP #442" -wraplength 250
    update
    .p step 20
    .p configure -orient vertical -text "Cannot be seen"
    update
    foreach option {-anchor -foreground -justify -text -wraplength} {
        lappend res [list $option [.p cget $option]]
    }
    set res
} -cleanup {
    unset res thefont
    destroy .p
} -result {{-anchor e} {-foreground green} {-justify center} {-text {Cannot be seen}} {-wraplength 250}}

tcltest::cleanupTests