Tcl/Tk 烹调书 - Tk 基础

Part-II - 第 5 步: 建立绑定来发送和重新配置属性的新值

脚本

在av2 中插入(以 tkwait 开始的行的前面)几行脚本:

proc ValCh {a} { 
	 global aList vList
	 ;# get current index value for a within aList
	 set idx [lsearch $aList $a]
	 set va [.rc.fff.sub$idx.ent get]
      send av [list reJig $va $a]
	}

过程 ValCh

1. 接受用户想变更的配置选项 "a"，
2. 得到与之相关联的新值 "va"，
3. 建立由过程名 reJig、va 和 a 的值组成的一个脚本行，并发送给在同一个显示器上的叫"av"的一个 Tk 应用且在 "av" 中执行。

注意这个过程 "ValCh" 是将被作为每个录入组组件的事件绑定而调用的脚本。

脚本中新的或变更了的行被突出显示了。

改变任何配置选项的值并看结果。下面展示了设置背景色为 Red 的结果。