eval [list $widget configure {-text} "建立索引:$key"]
update