#! /usr/local/tk3.2/bin/wish -f
#
# This routine provides a completion bar
proc StartCompletionBar { w mx } {
frame $w -geometry 300x75 -relief raised -bg white -borderwidth 2

}

# Set the completion bar
proc ChangeCompletionBar { w cx } {
# bar is 300 * cx / mx long
}
