Kiev1.org  арта сайта ‘айлы ‘отографии  иева
  
–еклама:






???????
 
 Sysadmin
 ??????????????
 ????? ? ?????
 ??????????
 ???????????? ???????
 ?????????????
 ? ???????
 ? ???????????
 ???????? ? ??????
 ???????????
 ??????????? ???????
 ???????? ????? ?????? ?????? ???????? ??????????
 ??????
 ??????
 ?????? ?????? 1924-1994
 ??????? ?? ??????
 ???? ? ???????
 ????? ??????????
 ?????????


¬нимание! „ита€ пророчества на этом сайте помните что достоверность трудно проверить и все может во времени измен€тьс€ - самое главное думать своей головой и не верить легкомысленно всему что говор€т, особенно советское телевидение
"ќ дне же том, или часе, никто не знает, ни јнгелы небесные, ни —ын, но только ќтец (ћк. 13, 32)"

?????? ????????? ?????????, ??????????? ???????? ????? ????? ?????? ????????



?????? ????????? ????????? ?????????? ?? TCL/TK
 

? ???????? ??????? ?????????? ?????????, ??????????? ???????? ????? ????? ?????? ????????.

????? ?????????:
 

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.





Х ?????????? ? ??????????? TclMySQL
Х ???????? ??????? ? ???????? ????? TCL
Х ??????????? ?????????????? TCL/TK
Х ???????????? ?? ???????????????? ?? TCL/TK


¬нимание! „ита€ пророчества на этом сайте помните что достоверность трудно проверить и все может во времени измен€тьс€
"ќ дне же том, или часе, никто не знает, ни јнгелы небесные, ни —ын, но только ќтец (ћк. 13, 32)"