Lines Matching +refs:val +refs:length
111 set bellpit [.bell.val.pit.entry get]
112 set belldur [.bell.val.dur.entry get]
115 set kbdcli [.kbd.val.cli get]
123 set screentim [.screen.val.le.tim.entry get]
124 set screencyc [.screen.val.le.cyc.entry get]
145 .bell.val.pit.entry delete 0 end
146 .bell.val.pit.entry insert 0 $bellpit
147 .bell.val.dur.entry delete 0 end
148 .bell.val.dur.entry insert 0 $belldur
150 .kbd.val.onoff [expr "{$kbdrep} == {on} ? {select} : {deselect}"]
151 .kbd.val.cli set $kbdcli
158 .screen.val.rb.blank [expr "{$screenbla}=={blank} ? {select} : {deselect}"]
159 .screen.val.rb.pat [expr "{$screenbla}!={blank} ? {select} : {deselect}"]
160 .screen.val.le.tim.entry delete 0 end
161 .screen.val.le.tim.entry insert 0 $screentim
162 .screen.val.le.cyc.entry delete 0 end
163 .screen.val.le.cyc.entry insert 0 $screencyc
171 proc labelentry {path text length} {
174 entry $path.entry -width $length -relief sunken
200 -from 0 -to 100 -length 200 -tickinterval 20 \
203 frame .bell.val
204 labelentry .bell.val.pit "Pitch (Hz)" 6
205 labelentry .bell.val.dur "Duration (ms)" 6
206 pack .bell.val.pit -side left -padx 5
207 pack .bell.val.dur -side right -padx 5
208 pack .bell.label .bell.vol .bell.val -side top -expand yes
218 frame .kbd.val
219 checkbutton .kbd.val.onoff \
223 scale .kbd.val.cli \
224 -from 0 -to 100 -length 200 -tickinterval 20 \
226 pack .kbd.val.onoff -side left -expand yes -fill both
227 pack .kbd.val.cli -side left -expand yes
230 pack .kbd.val -side top -expand yes -pady 2 -fill x
256 frame .screen.val
258 frame .screen.val.rb
259 radiobutton .screen.val.rb.blank \
262 radiobutton .screen.val.rb.pat \
265 pack .screen.val.rb.blank .screen.val.rb.pat -side top -pady 2 -anchor w
266 frame .screen.val.le
267 labelentry .screen.val.le.tim "Timeout (s)" 5
268 labelentry .screen.val.le.cyc "Cycle (s)" 5
269 pack .screen.val.le.tim .screen.val.le.cyc -side top -pady 2 -anchor e
271 pack .screen.val.rb .screen.val.le -side left
274 pack .screen.val -side top -expand y