
# 71107a79fa - -reverse option for ttk::progressbar in determinate mode

package require Tk

ttk::progressbar .pb -mode determinate -length 500 -variable val -maximum 1000
pack .pb
update

proc run {} {
    global val
    for {set i 0} {$i < 1000} {incr i} {
        set val $i
#        after 1
        update
    }
}

ttk::style theme use

foreach th [ttk::style theme names] {
    puts $th
    ttk::style theme use $th
    .pb conf -orient v -reverse false
    run
    .pb conf -reverse true
    run

    .pb conf -orient h -reverse false
    run
    .pb conf -reverse true
    run
    after 2000
}

.pb conf -orient h -text "Test text"
.pb conf -anchor center


