mingw/lib/tk8.4/demos/ixset

   1 #!/bin/sh
   2 # the next line restarts using wish \
   3 exec wish "$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: