Help me

Iam new user in Tcl. Here my code:
package require Iwidgets



iwidgets::tabnotebook .tnb -width 5i -height 3i
pack .tnb

variable page1 [.tnb add -label "*** 1"]

variable page1 [.tnb add -label "*** 2" -command {
variable UXYZ 2
}]
variable w1 [canvas $page1.cnvbg -width 14.2c -height 8c -relief
flat ]
grid $w1 -in $page1 -column 0 -row 0
iwidgets::entryfield $w1.ent1 -textvariable UXYZ
$w1 create window 5 5 -anchor nw -window $w1.ent1
..tnb view 0

My problem is I can't update value of variable UXYZ to entry.
Thank you very much
.

Quantcast