Tk Source Code

Artifact 1352986eb8eacc879c933e6becef17e809cfcc7e1b699b1c0026715f0e15f2e4:

Attachment "71107a79fa - -reverse option for ttkprogressbar.tcl" to ticket [71107a79] added by fvogel 2019-12-04 21:01:40.

---

# 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