VentilationControlHVAC
/
Branch1.tcl
21 строка · 525.0 Байт
1. configure -background #ff80ff
2labelframe .2 -foreground #870c78 -relief raised -text TestString
3pack .2
4label .label1 -text TestLabet
5pack .label1
6listbox .3
7pack .3
8entry .entryName1
9pack .entryName1
10entry .entryName2
11pack .entryName2
12entry .entryName3
13pack .entryName3
14set Button1 [button .1 -text ReadSourceData]
15pack .1
16set TextField [label .4 -font {System 10 {bold roman}} -text TestTextLine]
17pack .4
18set Button2 [button .d22 -text LoadSourceData]
19pack .d22
20set Button3 [button .5 -text SaveSourceDataToBD]
21pack .5
22
23