~ubuntu-branches/ubuntu/gutsy/amsn/gutsy

« back to all changes in this revision

Viewing changes to progressbar.tcl

• browse files at revision 6
• compare with another revision
• download diff
• download tarball
• view history from revision 6

Show diffs side-by-side

added

removed

progressbar.tcl

52

52

    }

53

53

 

54

54

    proc SetProgress {win value {range 100}} {

55

 

        set progress [expr {int(100*$value)/int($range)}]

56

 

        set relwidth [expr {double($value)/double($range)}]

57

 

 

58

 

        variable progressPercent

59

 

        place conf $win.l.fill -relwidth $relwidth

60

 

        set progressPercent($win) "${progress}%"

 

55

                if {[winfo exists $win]} {

 

56

                        set progress [expr {int(100*$value)/int($range)}]

 

57

                        set relwidth [expr {double($value)/double($range)}]

 

58

                        variable progressPercent

 

59

                        place conf $win.l.fill -relwidth $relwidth

 

60

                        set progressPercent($win) "${progress}%"

 

61

                }

61

62

    }

62

63

}

63

64

 

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1