VentilationControlHVAC

1
. configure -width 200 -height 400
2
label .header -text "Tk Tutorial Example"
3
place .header -x 5 -y 2
4
scale .slider -from 1 -to 100 -orient horiz
5
.slider configure -variable SlidVal
6
place .slider -x 5 -y 20
7
entry .slidbox -width 5 -textvariable SlidVal
8
place .slidbox -x 120 -y 40
9
radiobutton .one -text "Mode 1" -variable Mode -value 1
10
radiobutton .two -text "Mode 2" -variable Mode -value 0
11
place .one -x 5 -y 70
12
place .two -x 5 -y 90
13
text .twindow -width 22 -height 14 -font {clean -14}
14
place .twindow -x 5 -y 120
15
button .ok -command {process_data $SlidVal} -text "OK"
16
place .ok -x 15 -y 350
17
button .go -command {puts stdout "Go"} -text "GO"
18
place .go -x 120 -y 350
19
proc process_data {SlidVal} {puts stdout $SlidVal}
20