[37] | 1 | #!/bin/sh |
---|
| 2 | # the next line restarts using wish \ |
---|
| 3 | exec wish8.3 "$0" "$@" |
---|
| 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.2 1998/09/14 18:23:29 stanton 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 | } |
---|
| 31 | |
---|
| 32 | # apply is just "writesettings" |
---|
| 33 | |
---|
| 34 | |
---|
| 35 | # |
---|
| 36 | # Read current settings |
---|
| 37 | # |
---|
| 38 | |
---|
| 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 |
---|
| 50 | |
---|
| 51 | set xfd [open "|xset q" r] |
---|
| 52 | while {[gets $xfd line] > -1} { |
---|
| 53 | set kw [lindex $line 0] |
---|
| 54 | |
---|
| 55 | case $kw in { |
---|
| 56 | {auto} |
---|
| 57 | { |
---|
| 58 | set rpt [lindex $line 1] |
---|
| 59 | if {[expr "{$rpt} == {repeat:}"]} then { |
---|
| 60 | set kbdrep [lindex $line 2] |
---|
| 61 | set kbdcli [lindex $line 6] |
---|
| 62 | } |
---|
| 63 | } |
---|
| 64 | {bell} |
---|
| 65 | { |
---|
| 66 | set bellvol [lindex $line 2] |
---|
| 67 | set bellpit [lindex $line 5] |
---|
| 68 | set belldur [lindex $line 8] |
---|
| 69 | } |
---|
| 70 | {acceleration:} |
---|
| 71 | { |
---|
| 72 | set mouseacc [lindex $line 1] |
---|
| 73 | set mousethr [lindex $line 3] |
---|
| 74 | } |
---|
| 75 | {prefer} |
---|
| 76 | { |
---|
| 77 | set bla [lindex $line 2] |
---|
| 78 | set screenbla [expr "{$bla} == {yes} ? {blank} : {noblank}"] |
---|
| 79 | } |
---|
| 80 | {timeout:} |
---|
| 81 | { |
---|
| 82 | set screentim [lindex $line 1] |
---|
| 83 | set screencyc [lindex $line 3] |
---|
| 84 | } |
---|
| 85 | } |
---|
| 86 | } |
---|
| 87 | close $xfd |
---|
| 88 | |
---|
| 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] |
---|
| 99 | } |
---|
| 100 | |
---|
| 101 | |
---|
| 102 | # |
---|
| 103 | # Write settings into the X server |
---|
| 104 | # |
---|
| 105 | |
---|
| 106 | proc writesettings {} { |
---|
| 107 | global kbdrep kbdcli bellvol bellpit belldur |
---|
| 108 | global mouseacc mousethr screenbla screentim screencyc |
---|
| 109 | |
---|
| 110 | set bellvol [.bell.vol get] |
---|
| 111 | set bellpit [.bell.val.pit.entry get] |
---|
| 112 | set belldur [.bell.val.dur.entry get] |
---|
| 113 | |
---|
| 114 | if {[expr "{$kbdrep} == {on}"]} then { |
---|
| 115 | set kbdcli [.kbd.val.cli get] |
---|
| 116 | } else { |
---|
| 117 | set kbdcli "off" |
---|
| 118 | } |
---|
| 119 | |
---|
| 120 | set mouseacc [.mouse.hor.acc.entry get] |
---|
| 121 | set mousethr [.mouse.hor.thr.entry get] |
---|
| 122 | |
---|
| 123 | set screentim [.screen.val.le.tim.entry get] |
---|
| 124 | set screencyc [.screen.val.le.cyc.entry get] |
---|
| 125 | |
---|
| 126 | exec xset \ |
---|
| 127 | b $bellvol $bellpit $belldur \ |
---|
| 128 | c $kbdcli \ |
---|
| 129 | r $kbdrep \ |
---|
| 130 | m $mouseacc $mousethr \ |
---|
| 131 | s $screentim $screencyc \ |
---|
| 132 | s $screenbla |
---|
| 133 | } |
---|
| 134 | |
---|
| 135 | |
---|
| 136 | # |
---|
| 137 | # Sends all settings to the window |
---|
| 138 | # |
---|
| 139 | |
---|
| 140 | proc dispsettings {} { |
---|
| 141 | global kbdrep kbdcli bellvol bellpit belldur |
---|
| 142 | global mouseacc mousethr screenbla screentim screencyc |
---|
| 143 | |
---|
| 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 |
---|
| 149 | |
---|
| 150 | .kbd.val.onoff [expr "{$kbdrep} == {on} ? {select} : {deselect}"] |
---|
| 151 | .kbd.val.cli set $kbdcli |
---|
| 152 | |
---|
| 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 |
---|
| 157 | |
---|
| 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 |
---|
| 164 | } |
---|
| 165 | |
---|
| 166 | |
---|
| 167 | # |
---|
| 168 | # Create all windows, and pack them |
---|
| 169 | # |
---|
| 170 | |
---|
| 171 | proc labelentry {path text length} { |
---|
| 172 | frame $path |
---|
| 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 |
---|
| 177 | } |
---|
| 178 | |
---|
| 179 | proc createwindows {} { |
---|
| 180 | # |
---|
| 181 | # Buttons |
---|
| 182 | # |
---|
| 183 | |
---|
| 184 | frame .buttons |
---|
| 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" |
---|
| 189 | |
---|
| 190 | pack .buttons.ok .buttons.apply .buttons.cancel .buttons.quit \ |
---|
| 191 | -side left -expand yes -pady 5 |
---|
| 192 | |
---|
| 193 | # |
---|
| 194 | # Bell settings |
---|
| 195 | # |
---|
| 196 | |
---|
| 197 | frame .bell -relief raised -borderwidth 2 |
---|
| 198 | label .bell.label -text "Bell Settings" |
---|
| 199 | scale .bell.vol \ |
---|
| 200 | -from 0 -to 100 -length 200 -tickinterval 20 \ |
---|
| 201 | -label "Volume (%)" -orient horizontal |
---|
| 202 | |
---|
| 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 |
---|
| 209 | |
---|
| 210 | # |
---|
| 211 | # Keyboard settings |
---|
| 212 | # |
---|
| 213 | |
---|
| 214 | frame .kbd -relief raised -borderwidth 2 |
---|
| 215 | |
---|
| 216 | label .kbd.label -text "Keyboard Repeat Settings" |
---|
| 217 | |
---|
| 218 | frame .kbd.val |
---|
| 219 | checkbutton .kbd.val.onoff \ |
---|
| 220 | -text "On" \ |
---|
| 221 | -onvalue "on" -offvalue "off" -variable kbdrep \ |
---|
| 222 | -relief flat |
---|
| 223 | scale .kbd.val.cli \ |
---|
| 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 |
---|
| 228 | |
---|
| 229 | pack .kbd.label -side top -expand yes |
---|
| 230 | pack .kbd.val -side top -expand yes -pady 2 -fill x |
---|
| 231 | |
---|
| 232 | # |
---|
| 233 | # Mouse settings |
---|
| 234 | # |
---|
| 235 | |
---|
| 236 | frame .mouse -relief raised -borderwidth 2 |
---|
| 237 | |
---|
| 238 | label .mouse.label -text "Mouse Settings" |
---|
| 239 | frame .mouse.hor |
---|
| 240 | labelentry .mouse.hor.acc "Acceleration" 3 |
---|
| 241 | labelentry .mouse.hor.thr "Threshold (pixels)" 3 |
---|
| 242 | |
---|
| 243 | pack .mouse.hor.acc -side left |
---|
| 244 | pack .mouse.hor.thr -side right |
---|
| 245 | |
---|
| 246 | pack .mouse.label -side top |
---|
| 247 | pack .mouse.hor -side top -expand yes |
---|
| 248 | |
---|
| 249 | # |
---|
| 250 | # Screen Saver settings |
---|
| 251 | # |
---|
| 252 | |
---|
| 253 | frame .screen -relief raised -borderwidth 2 |
---|
| 254 | |
---|
| 255 | label .screen.label -text "Screen-saver Settings" |
---|
| 256 | frame .screen.val |
---|
| 257 | |
---|
| 258 | frame .screen.val.rb |
---|
| 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 |
---|
| 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 |
---|
| 270 | |
---|
| 271 | pack .screen.val.rb .screen.val.le -side left |
---|
| 272 | |
---|
| 273 | pack .screen.label -side top |
---|
| 274 | pack .screen.val -side top -expand y |
---|
| 275 | |
---|
| 276 | # |
---|
| 277 | # Main window |
---|
| 278 | # |
---|
| 279 | |
---|
| 280 | pack .buttons -side top -fill both |
---|
| 281 | pack .bell .kbd .mouse .screen -side top -fill both -ipady 5 -expand yes |
---|
| 282 | |
---|
| 283 | # |
---|
| 284 | # Let the user resize our window |
---|
| 285 | # |
---|
| 286 | wm minsize . 10 10 |
---|
| 287 | } |
---|
| 288 | |
---|
| 289 | ############################################################################## |
---|
| 290 | # Main program |
---|
| 291 | |
---|
| 292 | # |
---|
| 293 | # Listen what "xset" tells us... |
---|
| 294 | # |
---|
| 295 | |
---|
| 296 | readsettings |
---|
| 297 | |
---|
| 298 | # |
---|
| 299 | # Create all windows |
---|
| 300 | # |
---|
| 301 | |
---|
| 302 | createwindows |
---|
| 303 | |
---|
| 304 | # |
---|
| 305 | # Write xset parameters |
---|
| 306 | # |
---|
| 307 | |
---|
| 308 | dispsettings |
---|
| 309 | |
---|
| 310 | # |
---|
| 311 | # Now, wait for user actions... |
---|
| 312 | # |
---|