Tcl / Tkред рд▓рд┐рдирдХреНрд╕ рдФрд░ рдПрдВрдбреНрд░реЙрдЗрдб рдкреНрд▓реЗрдЯрдлреЙрд░реНрдо рдХреЗ рд▓рд┐рдП рд╡реИрдХрд▓реНрдкрд┐рдХ рдлрд╝рд╛рдЗрд▓ рдПрдХреНрд╕рдкреНрд▓реЛрд░рд░

рдореИрдВ рдЬрд┐рддрдиреА рдЕрдзрд┐рдХ рдмрд╛рд░ tcl / tk рдкрд░ рд╡рд┐рднрд┐рдиреНрди рдХрд╛рд░реНрдпрдХреНрд░рдо рд▓рд┐рдЦрддрд╛ рд╣реВрдВ , рдЙрддрдирд╛ рд╣реА рдореИрдВ рдЗрд╕рдХреА рдХреНрд╖рдорддрд╛рдУрдВ рдФрд░ рд╡рд┐рдЪрд╛рд░рд╢реАрд▓рддрд╛ рдХреА рдкреНрд░рд╢рдВрд╕рд╛ рдХрд░рддрд╛ рд╣реВрдВред рд▓реЗрдХрд┐рди рдПрдХ рдЪреАрдЬ рдереА рдЬрд┐рд╕рдиреЗ рдореБрдЭреЗ рд╣рд╛рд▓ рддрдХ рдЖрд░рд╛рдо рдирд╣реАрдВ рджрд┐рдпрд╛ред рдЬреАрдпреВрдЖрдИ рд╡рд┐рдХрд╕рд┐рдд рдХрд░рддреЗ рд╕рдордп, рдЖрдкрдХреЛ рдЕрдХреНрд╕рд░ рдлрд╝рд╛рдЗрд▓ рдПрдХреНрд╕рдкреНрд▓реЛрд░рд░ (tk_getSaveFile, tk_getOpenFile рдпрд╛ tk_chooseDirectory) рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдирд╛ рд╣реЛрдЧрд╛ред рдФрд░ рдЕрдЧрд░ рд╡рд┐рдВрдбреЛрдЬрд╝ рдпрд╛ рдУрдПрд╕ рдПрдХреНрд╕ рдкреНрд▓реЗрдЯрдлрд╝реЙрд░реНрдо рдкрд░, рдЗрди рдкреНрд▓реЗрдЯрдлрд╝реЙрд░реНрдореЛрдВ рдХреА рдореВрд▓ рдлрд╝рд╛рдЗрд▓ рдПрдХреНрд╕рдкреНрд▓реЛрд░рд░ рд▓реЛрдб рдХреА рдЬрд╛рддреА рд╣реИ, рддреЛ рд▓рд┐рдирдХреНрд╕ рдкреНрд▓реЗрдЯрдлрд╝реЙрд░реНрдо рдкрд░ tcl / tk рд╕реЗ рдПрдХреНрд╕рдкреНрд▓реЛрд░рд░ рд▓реЛрдб рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ (рдареАрдХ рд╣реИ, рд▓рд┐рдирдХреНрд╕ рдореЗрдВ рдХреЛрдИ рджреЗрд╢реА рдПрдХреНрд╕рдкреНрд▓реЛрд░рд░ рдирд╣реАрдВ рд╣реИ):



рдЗрд╕ рдЦреЛрдЬрдХрд░реНрддрд╛ рдореЗрдВ рдЖрдкрдХреЛ рдХреНрдпрд╛ рдкрд╕рдВрдж рдирд╣реАрдВ рд╣реИ? рдлрд╝реЛрд▓реНрдбрд░ / рдлрд╝рд╛рдЗрд▓реЛрдВ рдХреЗ рд╕рд╛рде рдкреНрд░рд╛рдердорд┐рдХ рд╕рдВрдЪрд╛рд▓рди рдХреА рдпрд╣ рдХрдореА - рдирд┐рд░реНрдорд╛рдг, рдирд╖реНрдЯ, рдирд╛рдо рдмрджрд▓реЗрдВред рдирд╣реАрдВ, рдпрд╣ рдордд рд╕реЛрдЪрд┐рдП рдХрд┐ рдпреЗ рд╕рднреА рддрдВрддреНрд░ рдЕрдкрдиреЗ рдЖрдк рдореЗрдВ рд╣реИрдВ, рд▓рд╛рдЧреВ рдХрд┐рдП рдЧрдП рд╣реИрдВ, рд╡реЗ рдХреЗрд╡рд▓ рдПрдХреНрд╕рдкреНрд▓реЛрд░рд░ GUI рдореЗрдВ рдореМрдЬреВрдж рдирд╣реАрдВ рд╣реИрдВред рд▓реЗрдХрд┐рди рд▓рд┐рдирдХреНрд╕ рдкрд░, рдпрд╣ рдЗрддрдирд╛ рдзреНрдпрд╛рди рджреЗрдиреЗ рдпреЛрдЧреНрдп рдирд╣реАрдВ рд╣реИред рд▓реЗрдХрд┐рди рдПрдВрдбреНрд░реЙрдЗрдб рдкреНрд▓реЗрдЯрдлреЙрд░реНрдо рдкрд░, Tcl / Tk рд╕реЗ рдХрдВрдбрдХреНрдЯрд░ рдмрд╣реБрдд рдЕрд╕реБрд╡рд┐рдзрд╛ рдХрд╛ рдХрд╛рд░рдг рдмрдирддрд╛ рд╣реИ:



рдЬрдм рд╣рдо рдПрдВрдбреНрд░реЙрдЗрдб рдкреНрд▓реЗрдЯрдлреЙрд░реНрдо рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рдмрд╛рдд рдХрд░рддреЗ рд╣реИрдВ, рддреЛ рд╣рдорд╛рд░рд╛ рдорддрд▓рдм рдПрдВрдбреНрд░реЛрдЗрд╢ рдкрд░ рдЕрдиреБрдкреНрд░рдпреЛрдЧреЛрдВ рдХреЗ рд╡рд┐рдХрд╛рд╕ рд╕реЗ рд╣реИ ред

рдФрд░ рдлрд┐рд░ рдРрд╕реЗ рд╕рдордп рдЖ рдЧрдП рд╣реИрдВ, рдЖрддреНрдо-рдЕрд▓рдЧрд╛рд╡, рдЖрджрд┐ред рдирддреАрдЬрддрди, рдПрдХ рдмрд╛рд▓рд┐рдХрд╛ рдХрд╛ рдЬрдиреНрдо рд╣реБрдЖ (рдЬрд┐рд╕реЗ tcl рдХреЗ рд▓рд┐рдП рд╕рдВрдХреБрд▓ рднреА рдХрд╣рд╛ рдЬрд╛рддрд╛ рд╣реИ) tkfe (tk file explorer)ред

Tkfe рдкреИрдХреЗрдЬ рдХреЛ рд╡рд┐рдХрд╕рд┐рдд рдХрд░рддреЗ рд╕рдордп, рд╣рдордиреЗ рди рдХреЗрд╡рд▓ рдпрд╣ рдзреНрдпрд╛рди рдореЗрдВ рд░рдЦрд╛ рдХрд┐ рдлрд╛рдЗрд▓реЛрдВ / рдирд┐рд░реНрджреЗрд╢рд┐рдХрд╛рдУрдВ рдХреЗ рд╕рд╛рде рдХрдо рд╕реЗ рдХрдо рдкреНрд░рд╛рдердорд┐рдХ рд╕рдВрдЪрд╛рд▓рди рдЖрд╡рд╢реНрдпрдХ рд╣реИ, рдмрд▓реНрдХрд┐ рдПрдХ рдЕрд▓рдЧ рд╡рд┐рдВрдбреЛ рдореЗрдВ рди рдХреЗрд╡рд▓ рдПрдХ рдПрдХреНрд╕рдкреНрд▓реЛрд░рд░ рд░рдЦрдиреЗ рдХреА рдЗрдЪреНрдЫрд╛ рд╣реИ, рдмрд▓реНрдХрд┐ рдПрдХ рдЕрд▓рдЧ рдлреНрд░реЗрдо рдореЗрдВ рднреА рд╣реИ, рдЬрд┐рд╕реЗ рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рд╕реНрд╡рдпрдВ рдЕрдкрдиреЗ GUI рдореЗрдВ рдЕрдкрдиреА рдЗрдЪреНрдЫрд╛ рдХреЗ рдЕрдиреБрд╕рд╛рд░ рд░рдЦ рд╕рдХрддрд╛ рд╣реИред рдкрд░рд┐рдпреЛрдЬрдирд╛ рдореЗрдВ рдкреИрдХреЗрдЬ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдиреЗ рдХрд╛ рдПрдХ рд╡реНрдпрд╛рдкрдХ рдЙрджрд╛рд╣рд░рдг рд╣реИред рддреЛ, рдкреНрд░реЛрдЬреЗрдХреНрдЯ рдбрд╛рдЙрдирд▓реЛрдб рдХрд░реЗрдВ, ~ // TkFileExplorer / рдирдореВрдиреЛрдВ рдХреЗ рдлрд╝реЛрд▓реНрдбрд░ рдореЗрдВ рдЬрд╛рдПрдВ рдФрд░ рдЙрджрд╛рд╣рд░рдг рдЪрд▓рд╛рдПрдБ:

$wish tkfe_samplefull.tcl


рджрд░рдЕрд╕рд▓, рдЙрджрд╛рд╣рд░рдг рдкреИрдХреЗрдЬ рдХреА рд╕рднреА рд╡рд┐рд╢реЗрд╖рддрд╛рдУрдВ рдХреЛ рд╕реНрдкрд╖реНрдЯ рд░реВрдк рд╕реЗ рдкреНрд░рджрд░реНрд╢рд┐рдд рдХрд░рддрд╛ рд╣реИред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рдПрдХ рдЕрд▓рдЧ рд╡рд┐рдВрдбреЛ рдореЗрдВ рдПрдХ рдлрд╝реЛрд▓реНрдбрд░ рдХрд╛ рдЪрдпрди рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдПрдХреНрд╕рдкреНрд▓реЛрд░рд░ рдЪрд▓рд╛рдПрдВ:



рдПрдХреНрд╕рдкреНрд▓реЛрд░рд░ рдореЗрдВ рд╕реНрд╡рдпрдВ рджреЛ рднрд╛рд╖рд╛рдУрдВ рдореЗрдВ рдПрдХ рдЗрдВрдЯрд░рдлрд╝реЗрд╕ рд╣реИ: рд░реВрд╕реА рдФрд░ рдЕрдВрдЧреНрд░реЗрдЬреАред рдЬрдм рдЖрдк рдзреНрд╡рдЬ рдХреЗ рд╕рд╛рде рдмрдЯрди рдкрд░ рдХреНрд▓рд┐рдХ рдХрд░рддреЗ рд╣реИрдВ рддреЛ рдЕрдиреБрд╡рд╛рдж рдордХреНрдЦреА рдкрд░ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ: рдзреНрд╡рдЬ рдХреЗ рд╕рд╛рде рдмрдЯрди рдХреЗ



рдЕрд▓рд╛рд╡рд╛, рдЙрдкрдХрд░рдг (рдЙрдкрдХрд░рдг) рдХреЗ рд╕рд╛рде рдПрдХ рдмрдЯрди рд╣реЛрддрд╛ рд╣реИ, рдЬрдм рдХреНрд▓рд┐рдХ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рддреЛ рд╕рдВрджрд░реНрдн рдореЗрдиреВ рдкреНрд░рджрд░реНрд╢рд┐рдд рд╣реЛрддрд╛ рд╣реИ, рд╡рд░реНрддрдорд╛рди рдирд┐рд░реНрджреЗрд╢рд┐рдХрд╛ (рдирд┐рд░реНрджреЗрд╢рд┐рдХрд╛ / рдлрд╝рд╛рдЗрд▓ рдмрдирд╛рдПрдВ) рдпрд╛ рдЪрдпрдирд┐рдд рдлрд╝рд╛рдЗрд▓ / рдлрд╝реЛрд▓реНрдбрд░ рдХреЗ рд╕рд╛рде рдХреНрдпрд╛ рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИ; рд╣рдЯрд╛рдПрдВ / рдирд╛рдо рдмрджрд▓реЗрдВ):



рдлрд╝рд╛рдЗрд▓ рдПрдХреНрд╕рдкреНрд▓реЛрд░рд░ рдХрд╛ рдХреЛрдИ рднреА рдХрд╛рд░реНрдп рдЪрд░ рдХрд╛ рдирд╛рдо (рд░реЗрдЦрд╛рдВрдХрд┐рдд - NAME) рд▓реМрдЯрд╛рддрд╛ рд╣реИ (tkfe_samplefull.tcl рдЙрджрд╛рд╣рд░рдг рджреЗрдЦреЗрдВ), рдЬрд┐рд╕рдореЗрдВ рдЪрдпрдирд┐рдд рдлрд╝рд╛рдЗрд▓ рдпрд╛ рдирд┐рд░реНрджреЗрд╢рд┐рдХрд╛ рдХреЗ рд▓рд┐рдП рдкрде рд▓рд┐рдЦрд╛ рдЬрд╛рдПрдЧрд╛, рдпрд╛ рдЬреЛ рдкрд╕рдВрдж рд╕реЗ рдЗрдирдХрд╛рд░ рдХрд░ рджрд┐рдпрд╛ рд╣реИ рддреЛ рдЦрд╛рд▓реА рд╣реЛ рдЬрд╛рдПрдЧрд╛ред рдЪрд░ рдирд╛рдо рдкреНрд░рд╛рдкреНрдд рдХрд░рдиреЗ рдХреЗ рдмрд╛рдж, рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рдЬрдм рдХреЛрдИ рдкрд░рд┐рдгрд╛рдо рдкреНрд░рд╛рдкреНрдд рд╣реЛрддрд╛ рд╣реИ рддреЛ рдпрд╣ рдЗрдВрддрдЬрд╛рд░ рдХрд░рдирд╛ рдкрдбрд╝рддрд╛ рд╣реИ:

 . . .
#   
#   window -  ; frame -  
set typew "window"
#  
 set msk "*.txt *.doc *.crt * .*"
# 
set tekdir $env(HOME)
#  
 set vrr [FE::fe_getopenfile  $typew $w $tekdir $msk]
# 
 vwait $vrr
. . .

рдпрджрд┐ рдЖрдк рдлрд╝реНрд░реЗрдо рдХрдВрдбрдХреНрдЯрд░ рдХреЗ рдкреНрд▓реЗрд╕рдореЗрдВрдЯ рдХреЗ рдкреНрд░рдХрд╛рд░ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рддреЗ рд╣реИрдВ, рддреЛ рдЖрдкрдХреЛ рдЕрдкрдиреА рддрд╕реНрд╡реАрд░ рдореЗрдВ рдЗрд╕рдХреЗ рдкреНрд▓реЗрд╕рдореЗрдВрдЯ рдХрд╛ рдзреНрдпрд╛рди рд░рдЦрдирд╛ рд╣реЛрдЧрд╛ред рдкреНрд▓реЗрд╕рдореЗрдВрдЯ рдХрд┐рд╕реА рднреА рддрд░рд╣ рд╕реЗ рд╣реЛ рд╕рдХрддрд╛ рд╣реИ (рдЧреНрд░рд┐рдб, рдкреИрдХ рдпрд╛ рд╕реНрдерд╛рди)ред рдкрд╕рдВрджреАрджрд╛ рд╡рд┐рдзрд┐ рдЕрднреА рднреА рдЬрдЧрд╣ рд╡рд┐рдзрд┐ рд╣реИред рдЖрдкрдХреЛ рдЫрд╡рд┐ рдХреЛ рд╕реБрдзрд╛рд░рдиреЗ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рдЪрд┐рдВрддрд╛ рдХрд░рдиреЗ рдХреА рдЬрд╝рд░реВрд░рдд рдирд╣реАрдВ рд╣реИ, рдХреНрдпреЛрдВрдХрд┐ рдЬрдЧрд╣, рдЧреНрд░рд┐рдб рдФрд░ рдкреИрдХ рдХреЗ рд╡рд┐рдкрд░реАрдд, рдЖрдкрдХреЛ рдореМрдЬреВрджрд╛ рдЫрд╡рд┐ рдХреЗ рд╢реАрд░реНрд╖ рдкрд░ рдлреНрд░реЗрдо рдХреЛ рдУрд╡рд░рд▓реЗ рдХрд░рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрддрд╛ рд╣реИ:



рдпрджрд┐ рдЖрдк рдзреНрдпрд╛рди рд╕реЗ рдЫрд╡рд┐ рдХреЛ рджреЗрдЦрддреЗ рд╣реИрдВ, рддреЛ рдЖрдк рджреЗрдЦреЗрдВрдЧреЗ рдХрд┐ рджрд╛рдпрд╛рдБ рд╕реНрдХреНрд░реАрдирд╢реЙрдЯ рдмрд╛рдИрдВ рдУрд░ рд╕реЗ рдЫрд┐рдкреЗ рд╣реБрдП рдлрд╝реЛрд▓реНрдбрд░ рдХреА рдЙрдкрд╕реНрдерд┐рддрд┐ рд╕реЗ рднрд┐рдиреНрди рд╣реЛрддрд╛ рд╣реИ (рдирд╛рдо рд╢реБрд░реВ рдмрд┐рдиреНрджреБ рд╕реЗ)ред рдЫрд┐рдкреЗ рд╣реБрдП рдмрдЯрди рджрд┐рдЦрд╛рдиреЗ рдХреЗ рд▓рд┐рдП, рдЖрдкрдХреЛ рдмрдЯрди рдХреЛ рдЖрдВрдЦреЛрдВ рдХреЗ рдЖрдХрд╛рд░ рдХреЗ рдЖрдЗрдХрди рдХреЗ рд╕рд╛рде рд╕рдХреНрд╖рдо рдХрд░рдирд╛ рд╣реЛрдЧрд╛ред рдлрд╝реЛрд▓реНрдбрд░реЛрдВ рдФрд░ рдлрд╝рд╛рдЗрд▓реЛрдВ рдХреЛ рд╡рд░реНрдгрд╛рдиреБрдХреНрд░рдо рдореЗрдВ рдФрд░ рдлрд╝рд╛рдЗрд▓реЛрдВ рдХреЛ рдЖрдХрд╛рд░ рдХреЗ рдЖрдзрд╛рд░ рдкрд░ рдХреНрд░рдордмрджреНрдз рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИ:



рдЬрдм рдПрдХреНрд╕рдкреНрд▓реЛрд░рд░ рдХреЛ рдлреНрд░реЗрдо рдореЗрдВ рд░рдЦрд╛ рдЬрд╛рддрд╛ рд╣реИ, рддреЛ рдЖрдкрдХреЛ рдПрдХреНрд╕рдЯреНрд░реЙрдирд┐рдХ рдмрдЯрди рдХреЛ рдмреНрд▓реЙрдХ рдХрд░рдиреЗ рдХрд╛ рднреА рдзреНрдпрд╛рди рд░рдЦрдирд╛ рдЪрд╛рд╣рд┐рдП (рдЬрдм рдПрдХреНрд╕рдкреНрд▓реЛрд░рд░ рдХреЛ рд╡рд┐рдВрдбреЛ рдореЗрдВ рд░рдЦрд╛ рдЬрд╛рддрд╛ рд╣реИ, рддреЛ tkfe balalaika рдЗрд╕ рдмрд╛рдд рдХрд╛ рдзреНрдпрд╛рди рд░рдЦрддрд╛ рд╣реИ)ред

Tkfe рдкреИрдХреЗрдЬ рдореЗрдВ рджреЛ рдХрд╛рд░реНрдп рд╢рд╛рдорд┐рд▓ рд╣реИрдВ рдЬреЛ рд╡рд┐рдЬреЗрдЯ рдХреЛ рджреБрд░реНрдЧрдо (all_disable) рдмрдирд╛рддреЗ рд╣реИрдВ рдпрд╛ рдХрд┐рд╕реА рджрд┐рдП рдЧрдП рд╡рд┐рдЬреЗрдЯ рдХреЗ рднреАрддрд░ рдЙрдкрд▓рдмреНрдз (all_enable):

  proc all_disable {parent} {
    set widgets [info commands $parent*]
    foreach w $widgets {
	catch {$w configure -state disabled}
    }
  }
  proc all_enable {parent} {
    set widgets [info commands $parent*]
    foreach w $widgets {
	catch {$w configure -state normal}
    }
  }
  namespace export fe_getsavefile
  namespace export fe_getopenfile
  namespace export fe_choosedir
  namespace export all_enable
  namespace export all_disable

рд╣рд╛рд▓рд╛рдБрдХрд┐, рдореИрдВ tk рд╡реНрдпрд╕реНрдд рд╕реБрд╡рд┐рдзрд╛рдУрдВ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдирд╛ рдкрд╕рдВрдж рдХрд░рддрд╛ рд╣реВрдБред рдпрд╣ рдЙрджрд╛рд╣рд░рдг рдореЗрдВ рд╕реНрдкрд╖реНрдЯ рд░реВрдк рд╕реЗ рджреЗрдЦрд╛ рдЧрдпрд╛ рд╣реИ:



рдпрд╣ рдПрдХ рд╕рд┐рджреНрдзрд╛рдВрдд рд╣реИред рд╡реНрдпрд╡рд╣рд╛рд░ рдореЗрдВ, рдХреНрд░рд┐рдкреНрдЯреЛрдЧреНрд░рд╛рдлрд┐рдХ рд╡рд░реНрдХрд╕реНрдЯреЗрд╢рди рдореЗрдВ рдХреНрд░рд┐рдкреНрдЯреЛрдХрд░рдВрд╕реА рдХреЗ рд╕рд╛рд░реНрд╡рдЬрдирд┐рдХ рдХреБрдВрдЬреА рдорд╛рдирдХреЛрдВ рдХреЗ рдЖрдзрд╛рд░ рдкрд░ tkfe рдкреИрдХреЗрдЬ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЧрдпрд╛ рдерд╛ ред рдЕрдм рд▓рд┐рдирдХреНрд╕ рдкреНрд▓реЗрдЯрдлрд╝реЙрд░реНрдо рдХреЗ рд▓рд┐рдП рдЗрд╕ рдПрдкреНрд▓рд┐рдХреЗрд╢рди рдореЗрдВ рдлрд╝рд╛рдЗрд▓ рдПрдХреНрд╕рдкреНрд▓реЛрд░рд░ рдХрд╛ рдЙрдкрдпреЛрдЧ рдЗрд╕ рддрд░рд╣ рджрд┐рдЦрддрд╛ рд╣реИ:



рд▓реЗрдХрд┐рди рдЦреЛрдЬрдХрд░реНрддрд╛, рдлреНрд░реЗрдо рдореЗрдВ рд╕реНрдерд┐рдд рд╣реИ:



рдФрд░, рдирд┐рд╢реНрдЪрд┐рдд рд░реВрдк рд╕реЗ, рдПрдВрдбреНрд░реЙрдЗрдб рдкреНрд▓реЗрдЯрдлреЙрд░реНрдо рдкрд░ рдПрдХреНрд╕рдкреНрд▓реЛрд░рд░ рдХреЗ рд╕рд╛рде рдХрд╛рдо рдХрд░рдирд╛ рдмрд╣реБрдд рд╕реБрд╡рд┐рдзрд╛рдЬрдирдХ рд╣реЛ рдЧрдпрд╛:



рдХреЛрдИ рдпрд╣ рдкреВрдЫ рд╕рдХрддрд╛ рд╣реИ: рд╡рд┐рдВрдбреЛрдЬ рдпрд╛ рдУрдПрд╕ рдПрдХреНрд╕ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рдХреНрдпрд╛? рд╣рд╛рдБ, рд╕рдм рдХреБрдЫ рдмрд╣реБрдд рдЕрдЪреНрдЫрд╛ рд╣реИред рд▓реЗрдХрд┐рди рд╣рдореЗрд╢рд╛ рдХреА рддрд░рд╣ Windows рдкрд░ - рдпрд╣ Russification рдХреА рд╕рдорд╕реНрдпрд╛ рд╣реИ, рд╣рдорд╛рд░реЗ рдорд╛рдорд▓реЗ рдореЗрдВ рдпрд╣ рдирд╛рдордХрд░рдг рдлрд╝рд╛рдЗрд▓реЛрдВ рдФрд░ рдлрд╝реЛрд▓реНрдбрд░реЛрдВ рдореЗрдВ рд╕рд┐рд░рд┐рд▓рд┐рдХ рдХрд╛ рдЙрдкрдпреЛрдЧ рд╣реИ, рд╕рд╛рде рд╣реА рдПрдХ рдмреИрдХрд╕реНрд▓реИрд╢ рдХрд╛ рдЙрдкрдпреЛрдЧ рднреА рд╣реИред рдЗрд╕рд▓рд┐рдП, рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдкрдВрдХреНрддрд┐рдпреЛрдВ рдХреЛ рдХреЛрдб рдореЗрдВ рдЬреЛрдбрд╝рд╛ рдЬрд╛рдирд╛ рдЪрд╛рд╣рд┐рдП:

#    
# MS Win    cp1251
set tekdir [encoding convertfrom cp1251 $tekdir ]
#       
set tekdir [string map {"\\" "/"} $tekdir]

рдпрд╣ рд╡рд╣реА рд╣реИ рдЬреЛ tkfe рдПрдХреНрд╕рдкреНрд▓реЛрд░рд░ рд╡рд┐рдВрдбреЛрдЬ рдкреНрд▓реЗрдЯрдлреЙрд░реНрдо рдкрд░ рджрд┐рдЦрддрд╛ рд╣реИ:



рдкреИрдХреЗрдЬ рд╕реНрд╡рдпрдВ рдФрд░ рдЗрд╕рдХреЗ рдЙрдкрдпреЛрдЧ рдХреЗ рдЙрджрд╛рд╣рд░рдг рдпрд╣рд╛рдВ рд╣реИрдВ ред

All Articles