例子8 进度条

package main
import "github.com/nsf/gothic"

//wm geometry . 300x30+100+100
const init_script = `
package require BWidget
pack [Button .b -text 退出程序 -helptext 退出 -command exit]
pack [Label .l -text 进度条 -helptext 默认样式的进度条1]

ArrowButton .abl -helptext 减值 -dir left -height 20 -width 40 -command dq
ArrowButton .abr -helptext 增值 -dir right -height 20 -width 40 -command incq
pack .abl .abr -side left
pack [ProgressBar .pb -maximum 10 -variable var]
set var 1
proc incq {} {
    global var
    incr var
    }
proc dq {} {
    global var
    set var [expr $var-1]
}
`

func main() {
    ir := gothic.NewInterpreter(init_script)

    <-ir.Done
}

//gui库的example目录下也有一个tcl/tk代码和go语言交互的进度条例子