Вопросик по Tcl/Tk

#!/bin/sh #\ exec wish $0

label .label pack .label set i 0

proc configure_callback {} { global i .label configure -text $i incr i }

bind . <Configure> configure_callback

#!/bin/sh
#\
exec wish $0

label .label
pack .label 
set i 0

proc configure_callback {} {
 global i
 .label configure -text $i
 incr i
}

bind . <Configure> configure_callback

всем спасибо !