? ???????? ??????? ?????????? ?????????, ??????????? ???????? ????? ????? ?????? ????????.
????? ?????????:
global var1 var2 var3 var4 var5
set var1 ""
set var2 ""
set var3 ""
set var4 ""
set var5 ""
proc showValue {} {
global var1 var2 var3 var4 var5
puts "?????????? var1 = $var1"
puts "?????????? var2 = $var2"
puts "?????????? var3 = $var3"
puts "?????????? var4 = $var4"
puts "?????????? var5 = $var5"
}
wm title . "Form"
label .msg -font fixed -justify left -text "Test window."
pack .msg -side top
frame .buttons
pack .buttons -side bottom -fill x -pady 2m
button .buttons.dismiss -text "????" -command "exit"
button .buttons.code -text "????????" -command "showValue"
pack .buttons.dismiss .buttons.code -side left -expand 1
foreach i {var1 var2 var3 var4 var5} {
frame .$i -bd 2
entry .$i.entry -relief sunken -width 40 -textvariable $i
label .$i.label
pack .$i.entry -side right
pack .$i.label -side left
}.var1.label config -text Name:
.var2.label config -text Address:
.var5.label config -text Phone:
pack .msg .var1 .var2 .var3 .var4 .var5 -side top -fill x
focus .var1.entry
? ???? ??????? ????? ????? ?????? ???????? ???????? ????????? ????? ???????????? ? ?????????? var1 var2 var3 var4 var5.
?????? ?????????? ????? ?? ???????
? ?????? ????????? ????????? ?????????? ?????????? ? ??????????? ?? ????????? ????????:
global var1 var2 var3 var4 var5
set var1 ""
set var2 ""
set var3 ""
set var4 ""
set var5 ""????? ????????? ?????????, ??????? ????? ?????????? ??? ??????? ?????? “????????“ ? ???????? ?? ??????????? ?????????? ?????? ???????? ????? ??????????:
proc showValue {} {
? ?????? ????????? ????????? ?????????? ??????????, ??????? ????? ????????????
global var1 var2 var3 var4 var5
????? ????????????? ??
puts "?????????? var1 = $var1"
puts "?????????? var2 = $var2"
puts "?????????? var3 = $var3"
puts "?????????? var4 = $var4"
puts "?????????? var5 = $var5"
}????????? ????????? ???????? ???? ?? ?????? “Form“, ????????? ??????? ?????????? ?????????? ???? WM
wm title . "Form"???????? ??????? ? ?????? .msg. ??? ??????? ??????? ?? “?????“ ? ?????, ??? “?????“ - ??? ????????????? ??????? (??????? ????), ??? - ??? ???????????? ???????.
????? ????, ????? ?? ?????????? ??????? ???????, ???????????? ? ?????????? ?????
label .msg -font fixed -justify left -text "Test window."????????? ??????? pack, ?? ??????? ??????????????, ??? ?????? ? ?????? (? ?????? ?????? ??? .msg) ????? ??????????? ? ??????? ????? ????????????? (????????) ???? (???????)
pack .msg -side top
???????? frame ??????? ??????? ??? ???????????? ? ??? ?????? ?????????? ? ?????? .buttons. ??? ????? ?? ?????, ??? ??????? ??????????? ???????? ????
frame .buttons???????????? ??????? .buttons ?????? ? ?????? ????? ?????, ?????? ??? ??????? ????? ???????? ?? ?????? ??? ???????????? ????????????? ????. ????? “-pady 2m“ ????????????? ?????? ???????? ?? ?????????, ??????? ????? ????????????? ?? ?????????? ????? .buttons, ?????? 2 ??.
pack .buttons -side bottom -fill x -pady 2m?????? ???????? ? ?????????? ? ????????? ??????? ?????? ??????????
button .buttons.dismiss -text "????" -command "exit"
button .buttons.code -text "????????" -command "showValue"
pack .buttons.dismiss .buttons.code -side left -expand 1????? ???????? ?? ???? ?? ????????, “.buttons.“ - ???????????? ????, “dismiss“ - ??? ???????.
??? ??????? ?????? .buttons.dismiss ?? ???????????? ????????? ??????? “exit“, ??? ???????? ? ?????????? ?????????. ??? ??????? ?????? .buttons.code ?? ???????????? ????????? ????????? ? ?????? “showValue“, ??????? ????? ??????? ????.
?????? ???????? 5 ????? ????? ??? ?????????? var1, var2, var3, var4 ? var5. ?????? ???? ????? ??????? ?? ??????? (frame), ? ??????? ????????? ???? ????? ? ???????. ??? ???????? ???? ????? ( ??????? “entry“ ) ???????????? ????? “relief“ ??? ???????? ??????? ??????? ?????, ? ????? ???????? ?????? ? ????????.
foreach i { var1 var2 var3 var4 var5} {
frame .$i -bd 2
entry .$i.entry -relief sunken -width 40
entry .$i.entry -relief sunken -width 40 -textvariable $i
????? -textvariable ?????????, ??? ???????? ???? ????? ??????? ? ????? ???????? ? ?????????? ? ?????? “$i“.
label .$i.label
pack .$i.entry -side right
pack .$i.label -side left
}
????? .$i.label : “.$i.“ - ???????????? ??????, label - ??? ???????. ??? ????????????? ??????? ? ????? ????? ?????????? ?? ??????????? ???????? $i, ? ????? ????????? ????????:
. var1.---, . var2.---, . var3.---, . var4.--- ? . var5.---.
??????? ????????????? ?????, ? ???? ????? ??????.
??????? ??? ????? ????? ???????????? ? ??????? ??????? ???????????????? “config“.
.var1.label config -text Name:
.var2.label config -text Address:
.var5.label config -text Phone:
?????????? ????????? ???? ????? ? ??????? ???? ? ????????? ???????.
pack .msg .var1 .var2 .var3 .var4 .var5 -side top -fill x
????? ????? ?????????? ? ?????? ???? ?????.
focus .var1.entry
????? ????????? ????????? showValue, ??????? ? ????? ?????? ????????????? ????????, ??????? ???? ??????? ?????????? ? ????? ?????.
proc showValue {} {
foreach i {f1 f2 f3 f4 f5} {
puts "Field $i : [.$i.entry get]"
}}??????? puts “Field $i : [.$i.entry get]“ ???????? ??????, ? ??????? ???????????? ??????????? $i ?? f1, f2, f3, f4 ? f5, ? [.$i.entry get] ?? ???????? ??????????????? ????? ????? .f1.entry, .f2.entry, .f3.entry, .f4.entry ? .f5.entry.
??? ????? ???????? 1992-1999 DataX/FLORIN, Inc.
