gbutton.tk

来自「这是一个Linux下的集成开发环境」· TK 代码 · 共 8 行

proc glish_buttonx {b name cmd} {
	button $b -text $name -command $cmd
	# bind $b <Enter> { %W activate }
	# bind $b <Leave> { %W deactivate }
	bind $b <Any-ButtonPress> { %W invoke }
	return $b
}