Tk Library Source Code

We needed to include text above a progress bar (as there is a progress dialog) for "xx% complete", 
etc.  This seemed a general enough need that we patched progressbar.tcl rather than write our 
own wrapper.  Here's the patch.

Logged In: YES 
user_id=72656

Applying this patch to 1.4.0cvs fails with:

lorax [~/cvs/tcllib/bwidget] 47 > wish8.3 demo/demo.tcl
Error in startup script: invalid command 
name ".mainframe.status.prg"
    while executing
"$path cget $realopt"
    (procedure "Widget::cget" line 20)
    invoked from within
"Widget::cget $path $option"
    (procedure "Widget::getoption" line 6)
    invoked from within
"Widget::getoption $path -textvariable"
    (procedure "MainFrame::create" line 49)
    invoked from within
"MainFrame::create .mainframe -menu {
        "&File" all file 0 {
            {command "E&xit" {} "Exit BWidget demo" {} -
command exit}
        }
    ..."
    ("eval" body line 1)
    invoked from within
"eval MainFrame::create $path $args"
    (procedure "MainFrame" line 1)
    invoked from within
"MainFrame .mainframe -menu {
        "&File" all file 0 {
            {command "E&xit" {} "Exit BWidget demo" {} -
command exit}
    invoked from within
"MainFrame .mainframe  -menu         $descmenu  -
textvariable Demo::status  -progressvar  Demo::prgindic"
    (procedure "Demo::create" line 35)
    invoked from within
"Demo::create"
    (procedure "Demo::main" line 12)
    invoked from within
"Demo::main"
    (file "demo/demo.tcl" line 209)

Since there is already a -variable option for the 
ProgressBar, it would seem easiest to just link to that 
with an additional label.

File Added - 15295: progress.patch