init

来自「著名的15谜游戏（15-puzzle ）的Tcl/Tk版本」· 代码 · 共 18 行

set IMGPATH ~/puzz/images


option add *background #CCCCAA
option add *Text.background #FFFFFF
. configure -background #CCCCAA

set fontlabel -*-Helvetica-Bold-R-Normal--*-140-*-*-*-*-*-*

set but_puzz "-highlightthickness 0 -activebackground #CCCCAA -takefocus 0 \
		-borderwidth 1"
set but_option "-highlightthickness 0 -activebackground #CCCCAA -takefocus 0"
set butimg_option "-highlightthickness 0 -activebackground #CCCCAA \
	-borderwidth 0"
set check_option "-highlightthickness 0 -activebackground #CCCCAA -takefocus 0"