Tk Library Source Code

Artifact b384cd36d3f86dd6bddbce73a282ec097283bdd5:

Attachment "progressbar_modify" to ticket [622927ffff] added by decosterjos 2002-10-14 16:33:57.

---

# ----------------------------------------------------------------------------
#  Command ProgressBar::_modify
# ----------------------------------------------------------------------------
proc ProgressBar::_modify { path args } {
    variable _widget

    if { ![GlobalVar::exists $_widget($path,var)] ||
         [set val [GlobalVar::getvar $_widget($path,var)]] < 0 } {
        catch {place forget $path.bar}
    } else {
	place $path.bar -relx 0 -rely 0 -relwidth 1 -relheight 1
	set type [Widget::getoption $path -type]
	if { $val != 0 && $type != "normal" && \
		$type != "nonincremental_infinite"} {
	    set val [expr {$val+$_widget($path,val)}]
	}
	set _widget($path,val) $val
	set max [Widget::getoption $path -maximum]
	set bd  [expr {2*[$path.bar cget -bd]}]
	set w   [winfo width  $path.bar]
	set h   [winfo height $path.bar]
	if {$type == "infinite" || $type == "nonincremental_infinite"} {
	    # JDC: New infinite behaviour
	    set tval [expr {$val % $max}]
	    if { $tval < ($max / 2.0) } {
		set x0 [expr {double($tval) / double($max) * 1.5}]
	    } else {
		set x0 [expr {(1.0-(double($tval) / double($max))) * 1.5}]
	    }
	    set x1 [expr {$x0 + 0.25}]
	    if {[Widget::getoption $path -orient] == "horizontal"} {
		$path.bar coords rect [expr {$x0*$w}] 0 [expr {$x1*$w}] $h
	    } else {
		$path.bar coords rect 0 [expr {$h-$x0*$h}] $w \
			[expr {$x1*$h}]
	    }
	    
	} else {
	    if { $val > $max } {set val $max}
	    if {[Widget::getoption $path -orient] == "horizontal"} {
		$path.bar coords rect -1 0 [expr {$val*$w/$max}] $h
	    } else {
		$path.bar coords rect 0 [expr {$h+1}] $w \
			[expr {$h*(1.0 - double($val)/$max)}]
	    }
	}
    }
    if {![Widget::cget $path -idle]} {
	update idletasks
    }
}