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