home *** CD-ROM | disk | FTP | other *** search
/ Freelog Special Freeware 31 / FreelogHS31.iso / Texte / scribus / scribus-1.3.3.9-win32-install.exe / tcl / tk8.4 / demos / ixset < prev    next >
Text File  |  2001-11-04  |  8KB  |  336 lines
  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:
  336.