2
# the next line restarts using wish \
6
# A nice interface to "xset" to change X server settings
9
# 91/11/23 : pda@masi.ibp.fr, jt@ratp.fr : design
10
# 92/08/01 : pda@masi.ibp.fr : cleaning
12
# RCS: @(#) $Id: ixset,v 1.2 1998/09/14 18:23:29 stanton Exp $
32
# apply is just "writesettings"
36
# Read current settings
39
proc readsettings {} {
40
global kbdrep ; set kbdrep "on"
41
global kbdcli ; set kbdcli 0
42
global bellvol ; set bellvol 100
43
global bellpit ; set bellpit 440
44
global belldur ; set belldur 100
45
global mouseacc ; set mouseacc "3/1"
46
global mousethr ; set mousethr 4
47
global screenbla ; set screenbla "blank"
48
global screentim ; set screentim 600
49
global screencyc ; set screencyc 600
51
set xfd [open "|xset q" r]
52
while {[gets $xfd line] > -1} {
53
set kw [lindex $line 0]
58
set rpt [lindex $line 1]
59
if {[expr "{$rpt} == {repeat:}"]} then {
60
set kbdrep [lindex $line 2]
61
set kbdcli [lindex $line 6]
66
set bellvol [lindex $line 2]
67
set bellpit [lindex $line 5]
68
set belldur [lindex $line 8]
72
set mouseacc [lindex $line 1]
73
set mousethr [lindex $line 3]
77
set bla [lindex $line 2]
78
set screenbla [expr "{$bla} == {yes} ? {blank} : {noblank}"]
82
set screentim [lindex $line 1]
83
set screencyc [lindex $line 3]
89
# puts stdout [format "Key REPEAT = %s\n" $kbdrep]
90
# puts stdout [format "Key CLICK = %s\n" $kbdcli]
91
# puts stdout [format "Bell VOLUME = %s\n" $bellvol]
92
# puts stdout [format "Bell PITCH = %s\n" $bellpit]
93
# puts stdout [format "Bell DURATION = %s\n" $belldur]
94
# puts stdout [format "Mouse ACCELERATION = %s\n" $mouseacc]
95
# puts stdout [format "Mouse THRESHOLD = %s\n" $mousethr]
96
# puts stdout [format "Screen BLANCK = %s\n" $screenbla]
97
# puts stdout [format "Screen TIMEOUT = %s\n" $screentim]
98
# puts stdout [format "Screen CYCLE = %s\n" $screencyc]
103
# Write settings into the X server
106
proc writesettings {} {
107
global kbdrep kbdcli bellvol bellpit belldur
108
global mouseacc mousethr screenbla screentim screencyc
110
set bellvol [.bell.vol get]
111
set bellpit [.bell.val.pit.entry get]
112
set belldur [.bell.val.dur.entry get]
114
if {[expr "{$kbdrep} == {on}"]} then {
115
set kbdcli [.kbd.val.cli get]
120
set mouseacc [.mouse.hor.acc.entry get]
121
set mousethr [.mouse.hor.thr.entry get]
123
set screentim [.screen.val.le.tim.entry get]
124
set screencyc [.screen.val.le.cyc.entry get]
127
b $bellvol $bellpit $belldur \
130
m $mouseacc $mousethr \
131
s $screentim $screencyc \
137
# Sends all settings to the window
140
proc dispsettings {} {
141
global kbdrep kbdcli bellvol bellpit belldur
142
global mouseacc mousethr screenbla screentim screencyc
144
.bell.vol set $bellvol
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
153
.mouse.hor.acc.entry delete 0 end
154
.mouse.hor.acc.entry insert 0 $mouseacc
155
.mouse.hor.thr.entry delete 0 end
156
.mouse.hor.thr.entry insert 0 $mousethr
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
168
# Create all windows, and pack them
171
proc labelentry {path text length} {
173
label $path.label -text $text
174
entry $path.entry -width $length -relief sunken
175
pack $path.label -side left -expand y
176
pack $path.entry -side right -expand y
179
proc createwindows {} {
185
button .buttons.ok -command "ok" -text "Ok"
186
button .buttons.apply -command "writesettings" -text "Apply"
187
button .buttons.cancel -command "cancel" -text "Cancel"
188
button .buttons.quit -command "quit" -text "Quit"
190
pack .buttons.ok .buttons.apply .buttons.cancel .buttons.quit \
191
-side left -expand yes -pady 5
197
frame .bell -relief raised -borderwidth 2
198
label .bell.label -text "Bell Settings"
200
-from 0 -to 100 -length 200 -tickinterval 20 \
201
-label "Volume (%)" -orient horizontal
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
214
frame .kbd -relief raised -borderwidth 2
216
label .kbd.label -text "Keyboard Repeat Settings"
219
checkbutton .kbd.val.onoff \
221
-onvalue "on" -offvalue "off" -variable kbdrep \
224
-from 0 -to 100 -length 200 -tickinterval 20 \
225
-label "Click Volume (%)" -orient horizontal
226
pack .kbd.val.onoff -side left -expand yes -fill both
227
pack .kbd.val.cli -side left -expand yes
229
pack .kbd.label -side top -expand yes
230
pack .kbd.val -side top -expand yes -pady 2 -fill x
236
frame .mouse -relief raised -borderwidth 2
238
label .mouse.label -text "Mouse Settings"
240
labelentry .mouse.hor.acc "Acceleration" 3
241
labelentry .mouse.hor.thr "Threshold (pixels)" 3
243
pack .mouse.hor.acc -side left
244
pack .mouse.hor.thr -side right
246
pack .mouse.label -side top
247
pack .mouse.hor -side top -expand yes
250
# Screen Saver settings
253
frame .screen -relief raised -borderwidth 2
255
label .screen.label -text "Screen-saver Settings"
259
radiobutton .screen.val.rb.blank \
260
-variable screenblank -text "Blank" -relief flat \
261
-value "blank" -variable screenbla
262
radiobutton .screen.val.rb.pat \
263
-variable screenblank -text "Pattern" -relief flat \
264
-value "noblank" -variable screenbla
265
pack .screen.val.rb.blank .screen.val.rb.pat -side top -pady 2 -anchor w
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
273
pack .screen.label -side top
274
pack .screen.val -side top -expand y
280
pack .buttons -side top -fill both
281
pack .bell .kbd .mouse .screen -side top -fill both -ipady 5 -expand yes
284
# Let the user resize our window
289
##############################################################################
293
# Listen what "xset" tells us...
305
# Write xset parameters
311
# Now, wait for user actions...
added
removed
library/demos/ixset
