![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ixset CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Micropolis - Activity] / micropolis / src / tk / library / demos|
Return to ixset CVS log | Up to [Micropolis - Activity] / micropolis / src / tk / library / demos |
1.1 root 1: #!/usr/local/bin/wish -f
2:
3: #
4: # A nice interface to "xset" to change X server settings
5: #
6: # History :
7: # 91/11/23 : [email protected], [email protected] : design
8: # 92/08/01 : [email protected] : cleaning
9: #
10:
11: #
12: # Button actions
13: #
14:
15: proc quit {} {
16: destroy .
17: }
18:
19: proc ok {} {
20: writesettings
21: quit
22: }
23:
24: proc cancel {} {
25: readsettings
26: dispsettings
27: }
28:
29: # apply is just "writesettings"
30:
31:
32: #
33: # Read current settings
34: #
35:
36: proc readsettings {} {
37: global kbdrep ; set kbdrep "on"
38: global kbdcli ; set kbdcli 0
39: global bellvol ; set bellvol 100
40: global bellpit ; set bellpit 440
41: global belldur ; set belldur 100
42: global mouseacc ; set mouseacc "3/1"
43: global mousethr ; set mousethr 4
44: global screenbla ; set screenbla "blank"
45: global screentim ; set screentim 600
46: global screencyc ; set screencyc 600
47:
48: set xfd [open "|xset q" r]
49: while {[gets $xfd line] > -1} {
50: set kw [lindex $line 0]
51:
52: case $kw in {
53: {auto}
54: {
55: set rpt [lindex $line 1]
56: if {[expr "{$rpt} == {repeat:}"]} then {
57: set kbdrep [lindex $line 2]
58: set kbdcli [lindex $line 6]
59: }
60: }
61: {bell}
62: {
63: set bellvol [lindex $line 2]
64: set bellpit [lindex $line 5]
65: set belldur [lindex $line 8]
66: }
67: {acceleration:}
68: {
69: set mouseacc [lindex $line 1]
70: set mousethr [lindex $line 3]
71: }
72: {prefer}
73: {
74: set bla [lindex $line 2]
75: set screenbla [expr "{$bla} == {yes} ? {blank} : {noblank}"]
76: }
77: {timeout:}
78: {
79: set screentim [lindex $line 1]
80: set screencyc [lindex $line 3]
81: }
82: }
83: }
84: close $xfd
85:
86: # puts stdout [format "Key REPEAT = %s\n" $kbdrep]
87: # puts stdout [format "Key CLICK = %s\n" $kbdcli]
88: # puts stdout [format "Bell VOLUME = %s\n" $bellvol]
89: # puts stdout [format "Bell PITCH = %s\n" $bellpit]
90: # puts stdout [format "Bell DURATION = %s\n" $belldur]
91: # puts stdout [format "Mouse ACCELERATION = %s\n" $mouseacc]
92: # puts stdout [format "Mouse THRESHOLD = %s\n" $mousethr]
93: # puts stdout [format "Screen BLANCK = %s\n" $screenbla]
94: # puts stdout [format "Screen TIMEOUT = %s\n" $screentim]
95: # puts stdout [format "Screen CYCLE = %s\n" $screencyc]
96: }
97:
98:
99: #
100: # Write settings into the X server
101: #
102:
103: proc writesettings {} {
104: global kbdrep kbdcli bellvol bellpit belldur
105: global mouseacc mousethr screenbla screentim screencyc
106:
107: set bellvol [.bell.vol get]
108: set bellpit [.bell.val.pit.entry get]
109: set belldur [.bell.val.dur.entry get]
110:
111: if {[expr "{$kbdrep} == {on}"]} then {
112: set kbdcli [.kbd.val.cli get]
113: } else {
114: set kbdcli "off"
115: }
116:
117: set mouseacc [.mouse.hor.acc.entry get]
118: set mousethr [.mouse.hor.thr.entry get]
119:
120: set screentim [.screen.val.le.tim.entry get]
121: set screencyc [.screen.val.le.cyc.entry get]
122:
123: exec xset \
124: b $bellvol $bellpit $belldur \
125: c $kbdcli \
126: r $kbdrep \
127: m $mouseacc $mousethr \
128: s $screentim $screencyc \
129: s $screenbla
130: }
131:
132:
133: #
134: # Sends all settings to the window
135: #
136:
137: proc dispsettings {} {
138: global kbdrep kbdcli bellvol bellpit belldur
139: global mouseacc mousethr screenbla screentim screencyc
140:
141: .bell.vol set $bellvol
142: .bell.val.pit.entry delete 0 end
143: .bell.val.pit.entry insert 0 $bellpit
144: .bell.val.dur.entry delete 0 end
145: .bell.val.dur.entry insert 0 $belldur
146:
147: .kbd.val.onoff [expr "{$kbdrep} == {on} ? {select} : {deselect}"]
148: .kbd.val.cli set $kbdcli
149:
150: .mouse.hor.acc.entry delete 0 end
151: .mouse.hor.acc.entry insert 0 $mouseacc
152: .mouse.hor.thr.entry delete 0 end
153: .mouse.hor.thr.entry insert 0 $mousethr
154:
155: .screen.val.rb.blank [expr "{$screenbla}=={blank} ? {select} : {deselect}"]
156: .screen.val.rb.pat [expr "{$screenbla}!={blank} ? {select} : {deselect}"]
157: .screen.val.le.tim.entry delete 0 end
158: .screen.val.le.tim.entry insert 0 $screentim
159: .screen.val.le.cyc.entry delete 0 end
160: .screen.val.le.cyc.entry insert 0 $screencyc
161: }
162:
163:
164: #
165: # Create all windows, and pack them
166: #
167:
168: proc labelentry {path text length} {
169: frame $path
170: label $path.label -text $text
171: entry $path.entry -width $length -relief sunken
172: pack append $path $path.label {left expand} $path.entry {right expand}
173: }
174:
175: proc createwindows {} {
176: #
177: # Buttons
178: #
179:
180: frame .buttons
181: button .buttons.ok -command "ok" -text "Ok"
182: button .buttons.apply -command "writesettings" -text "Apply"
183: button .buttons.cancel -command "cancel" -text "Cancel"
184: button .buttons.quit -command "quit" -text "Quit"
185:
186: pack append .buttons \
187: .buttons.ok {left expand pady 10} \
188: .buttons.apply {left expand pady 10} \
189: .buttons.cancel {left expand pady 10} \
190: .buttons.quit {left expand pady 10}
191:
192: #
193: # Bell settings
194: #
195:
196: frame .bell -relief raised -borderwidth 2
197: label .bell.label -text "Bell Settings"
198: scale .bell.vol \
199: -from 0 -to 100 -length 200 -tickinterval 20 \
200: -label "Volume (%)" -orient horizontal \
201: -bg Bisque1 -activeforeground Gray
202:
203: frame .bell.val
204: labelentry .bell.val.pit "Pitch (Hz)" 6
205: labelentry .bell.val.dur "Duration (ms)" 6
206: pack append .bell.val \
207: .bell.val.pit {left padx 10} \
208: .bell.val.dur {right padx 10}
209:
210: pack append .bell \
211: .bell.label {top expand} \
212: .bell.vol {top expand} \
213: .bell.val {top expand}
214:
215: #
216: # Keyboard settings
217: #
218:
219: frame .kbd -relief raised -borderwidth 2
220:
221: label .kbd.label -text "Keyboard Repeat Settings"
222:
223: frame .kbd.val
224: checkbutton .kbd.val.onoff \
225: -text "On" \
226: -onvalue "on" -offvalue "off" -variable kbdrep \
227: -relief flat \
228: -activebackground Bisque1
229: scale .kbd.val.cli \
230: -from 0 -to 100 -length 200 -tickinterval 20 \
231: -label "Click Volume (%)" -orient horizontal \
232: -bg Bisque1 -activeforeground Gray
233: pack append .kbd.val \
234: .kbd.val.onoff {left expand fill} \
235: .kbd.val.cli {left expand}
236:
237: pack append .kbd \
238: .kbd.label {top expand} \
239: .kbd.val {top expand pady 4 fillx}
240:
241: #
242: # Mouse settings
243: #
244:
245: frame .mouse -relief raised -borderwidth 2
246:
247: label .mouse.label -text "Mouse Settings"
248: frame .mouse.hor
249: labelentry .mouse.hor.acc "Acceleration" 3
250: labelentry .mouse.hor.thr "Threshold (pixels)" 3
251:
252: pack append .mouse.hor \
253: .mouse.hor.acc {left} \
254: .mouse.hor.thr {right}
255:
256: pack append .mouse \
257: .mouse.label {top} \
258: .mouse.hor {top expand}
259:
260: #
261: # Screen Saver settings
262: #
263:
264: frame .screen -relief raised -borderwidth 2
265:
266: label .screen.label -text "Screen-saver Settings"
267: frame .screen.val
268:
269: frame .screen.val.rb
270: radiobutton .screen.val.rb.blank \
271: -variable screenblank -text "Blank" -relief flat \
272: -value "blank" -variable screenbla \
273: -activebackground Bisque1
274: radiobutton .screen.val.rb.pat \
275: -variable screenblank -text "Pattern" -relief flat \
276: -value "noblank" -variable screenbla \
277: -activebackground Bisque1
278: pack append .screen.val.rb \
279: .screen.val.rb.blank {top pady 4 frame w} \
280: .screen.val.rb.pat {top pady 4 frame w}
281: frame .screen.val.le
282: labelentry .screen.val.le.tim "Timeout (s)" 5
283: labelentry .screen.val.le.cyc "Cycle (s)" 5
284: pack append .screen.val.le \
285: .screen.val.le.tim {top pady 4 frame e} \
286: .screen.val.le.cyc {top pady 4 frame e}
287:
288: pack append .screen.val \
289: .screen.val.rb {left} \
290: .screen.val.le {left}
291:
292: pack append .screen \
293: .screen.label {top} \
294: .screen.val {top expand}
295:
296: #
297: # Main window
298: #
299:
300: pack append . \
301: .buttons {top fill} \
302: .bell {top fill pady 10 expand} \
303: .kbd {top fill pady 10 expand} \
304: .mouse {top fill pady 10 expand} \
305: .screen {top fill pady 10 expand}
306:
307: #
308: # Let the user resize our window
309: #
310: wm minsize . 10 10
311: }
312:
313: ##############################################################################
314: # Main program
315:
316: #
317: # Listen what "xset" tells us...
318: #
319:
320: readsettings
321:
322: #
323: # Create all windows
324: #
325:
326: createwindows
327:
328: #
329: # Write xset parameters
330: #
331:
332: dispsettings
333:
334: #
335: # Now, wait for user actions...
336: #
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.