share/tk8.4/demos/ixset - toolchains/skids - Git at Google

 #!/bin/sh
 # the next line restarts using wish \
 exec wish8.4 "$0" ${1+"$@"}

 # ixset --
 # A nice interface to "xset" to change X server settings
 #
 # History :
 #   91/11/23 : pda@masi.ibp.fr, jt@ratp.fr : design
 #   92/08/01 : pda@masi.ibp.fr : cleaning
 #
 # RCS: @(#) $Id: ixset,v 1.4 2001/11/05 10:13:53 dkf Exp $

 #
 # Button actions
 #

 proc quit {} {
     destroy .
 }

 proc ok {} {
     writesettings
     quit
 }

 proc cancel {} {
     readsettings
     dispsettings
     .buttons.apply configure -state disabled
     .buttons.cancel configure -state disabled
 }

 proc apply {} {
     writesettings
     .buttons.apply configure -state disabled
     .buttons.cancel configure -state disabled
 }

 #
 # Read current settings
 #

 proc readsettings {} {
     global kbdrep ;	set kbdrep	"on"
     global kbdcli ;	set kbdcli	0
     global bellvol ;	set bellvol	100
     global bellpit ;	set bellpit	440
     global belldur ;	set belldur	100
     global mouseacc ;	set mouseacc	"3/1"
     global mousethr ;	set mousethr	4
     global screenbla ;	set screenbla	"blank"
     global screentim ;	set screentim	600
     global screencyc ;	set screencyc	600

     set xfd [open "|xset q" r]
     while {[gets $xfd line] > -1} {
 	set kw [lindex $line 0]

 	case $kw in {
 	    {auto}
 		{
 		    set rpt [lindex $line 1]
 		    if {[expr "{$rpt} == {repeat:}"]} then {
 			set kbdrep [lindex $line 2]
 			set kbdcli [lindex $line 6]
 		    }
 		}
 	    {bell}
 		{
 		    set bellvol [lindex $line 2]
 		    set bellpit [lindex $line 5]
 		    set belldur [lindex $line 8]
 		}
 	    {acceleration:}
 		{
 		    set mouseacc [lindex $line 1]
 		    set mousethr [lindex $line 3]
 		}
 	    {prefer}
 		{
 		    set bla [lindex $line 2]
 		    set screenbla [expr "{$bla} == {yes} ? {blank} : {noblank}"]
 		}
 	    {timeout:}
 		{
 		    set screentim [lindex $line 1]
 		    set screencyc [lindex $line 3]
 		}
 	}
     }
     close $xfd

     # puts stdout [format "Key REPEAT = %s\n" $kbdrep]
     # puts stdout [format "Key CLICK  = %s\n" $kbdcli]
     # puts stdout [format "Bell VOLUME = %s\n" $bellvol]
     # puts stdout [format "Bell PITCH = %s\n" $bellpit]
     # puts stdout [format "Bell DURATION = %s\n" $belldur]
     # puts stdout [format "Mouse ACCELERATION = %s\n" $mouseacc]
     # puts stdout [format "Mouse THRESHOLD = %s\n" $mousethr]
     # puts stdout [format "Screen BLANCK = %s\n" $screenbla]
     # puts stdout [format "Screen TIMEOUT = %s\n" $screentim]
     # puts stdout [format "Screen CYCLE = %s\n" $screencyc]
 }


 #
 # Write settings into the X server
 #

 proc writesettings {} {
     global kbdrep kbdcli  bellvol bellpit belldur
     global mouseacc mousethr  screenbla screentim screencyc

     set bellvol		[.bell.vol get]
     set bellpit		[.bell.val.pit.entry get]
     set belldur		[.bell.val.dur.entry get]

     if {[expr "{$kbdrep} == {on}"]} then {
 	set kbdcli	[.kbd.val.cli get]
     } else {
 	set kbdcli	"off"
     }

     set mouseacc	[.mouse.hor.acc.entry get]
     set mousethr	[.mouse.hor.thr.entry get]

     set screentim	[.screen.tim.entry get]
     set screencyc	[.screen.cyc.entry get]

     exec xset \
 	b $bellvol $bellpit $belldur \
 	c $kbdcli \
 	r $kbdrep \
 	m $mouseacc $mousethr \
 	s $screentim $screencyc \
 	s $screenbla
 }


 #
 # Sends all settings to the window
 #

 proc dispsettings {} {
     global kbdrep kbdcli  bellvol bellpit belldur
     global mouseacc mousethr  screenbla screentim screencyc

     .bell.vol set $bellvol
     .bell.val.pit.entry delete 0 end
     .bell.val.pit.entry insert 0 $bellpit
     .bell.val.dur.entry delete 0 end
     .bell.val.dur.entry insert 0 $belldur

     .kbd.val.onoff [expr "{$kbdrep} == {on} ? {select} : {deselect}"]
     .kbd.val.cli set $kbdcli

     .mouse.hor.acc.entry delete 0 end
     .mouse.hor.acc.entry insert 0 $mouseacc
     .mouse.hor.thr.entry delete 0 end
     .mouse.hor.thr.entry insert 0 $mousethr

     .screen.blank [expr "{$screenbla}=={blank} ? {select} : {deselect}"]
     .screen.pat   [expr "{$screenbla}!={blank} ? {select} : {deselect}"]
     .screen.tim.entry delete 0 end
     .screen.tim.entry insert 0 $screentim
     .screen.cyc.entry delete 0 end
     .screen.cyc.entry insert 0 $screencyc
 }


 #
 # Create all windows, and pack them
 #

 proc labelentry {path text length {range {}}} {
     frame $path
     label $path.label -text $text
     if {[llength $range]} {
 	spinbox $path.entry -width $length -relief sunken \
 		-from [lindex $range 0] -to [lindex $range 1]
     } else {
 	entry $path.entry -width $length -relief sunken
     }
     pack $path.label -side left
     pack $path.entry -side right -expand y -fill x
 }

 proc createwindows {} {
     #
     # Buttons
     #

     frame .buttons
     button .buttons.ok	   -default active -command ok     -text "Ok"
     button .buttons.apply  -default normal -command apply  -text "Apply" \
 	    -state disabled
     button .buttons.cancel -default normal -command cancel -text "Cancel" \
 	    -state disabled
     button .buttons.quit   -default normal -command quit   -text "Quit"

     pack .buttons.ok .buttons.apply .buttons.cancel .buttons.quit \
 	    -side left -expand yes -pady 5

     bind . <Return> {.buttons.ok   flash; .buttons.ok   invoke}
     bind . <Escape> {.buttons.quit flash; .buttons.quit invoke}
     bind . <1> {
 	if {![string match .buttons* %W]} {
 	    .buttons.apply  configure -state normal
 	    .buttons.cancel configure -state normal
 	}
     }
     bind . <Key> {
 	if {![string match .buttons* %W]} {
 	    switch -glob %K {
 		Return - Escape - Tab - *Shift* {}
 		default {
 		    .buttons.apply  configure -state normal
 		    .buttons.cancel configure -state normal
 		}
 	    }
 	}
     }

     #
     # Bell settings
     #

     labelframe .bell -text "Bell Settings" -padx 1.5m -pady 1.5m
     scale .bell.vol \
 	    -from 0 -to 100 -length 200 -tickinterval 20 \
 	    -label "Volume (%)" -orient horizontal

     frame .bell.val
     labelentry .bell.val.pit "Pitch (Hz)"    6 {25 20000}
     labelentry .bell.val.dur "Duration (ms)" 6 {1 10000}
     pack .bell.val.pit -side left -padx 5
     pack .bell.val.dur -side right -padx 5
     pack .bell.vol .bell.val -side top -expand yes

     #
     # Keyboard settings
     #

     labelframe .kbd -text "Keyboard Repeat Settings" -padx 1.5m -pady 1.5m

     frame .kbd.val
     checkbutton .kbd.val.onoff \
 	    -text "On" \
 	    -onvalue "on" -offvalue "off" -variable kbdrep \
 	    -relief flat
     scale .kbd.val.cli \
 	    -from 0 -to 100 -length 200 -tickinterval 20 \
 	    -label "Click Volume (%)" -orient horizontal
     pack .kbd.val.onoff -side left -fill x -expand yes -padx {0 1m}
     pack .kbd.val.cli -side left -expand yes -fill x -padx {1m 0}

     pack .kbd.val -side top -expand yes -pady 2 -fill x

     #
     # Mouse settings
     #

     labelframe .mouse -text "Mouse Settings" -padx 1.5m -pady 1.5m

     frame .mouse.hor
     labelentry .mouse.hor.acc "Acceleration" 5
     labelentry .mouse.hor.thr "Threshold (pixels)" 3 {1 2000}

     pack .mouse.hor.acc -side left -padx {0 1m}
     pack .mouse.hor.thr -side right -padx {1m 0}

     pack .mouse.hor -side top -expand yes

     #
     # Screen Saver settings
     #

     labelframe .screen -text "Screen-saver Settings" -padx 1.5m -pady 1.5m

     radiobutton .screen.blank \
 	    -variable screenblank -text "Blank" -relief flat \
 	    -value "blank" -variable screenbla -anchor w
     radiobutton .screen.pat \
 	    -variable screenblank -text "Pattern" -relief flat \
 	    -value "noblank" -variable screenbla -anchor w
     labelentry .screen.tim "Timeout (s)" 5 {1 100000}
     labelentry .screen.cyc "Cycle (s)" 5 {1 100000}

     grid .screen.blank .screen.tim -sticky e
     grid .screen.pat   .screen.cyc -sticky e
     grid configure .screen.blank .screen.pat -sticky ew

     #
     # Main window
     #

     pack .buttons -side top -fill both
     pack .bell .kbd .mouse .screen -side top -fill both -expand yes \
 	    -padx 1m -pady 1m

     #
     # Let the user resize our window
     #
     wm minsize . 10 10
 }

 ##############################################################################
 # Main program

 #
 # Listen what "xset" tells us...
 #

 readsettings

 #
 # Create all windows
 #

 createwindows

 #
 # Write xset parameters
 #

 dispsettings

 #
 # Now, wait for user actions...
 #

 # Local Variables:
 # mode: tcl
 # End:
	#!/bin/sh
	# the next line restarts using wish \
	exec wish8.4 "$0" ${1+"$@"}

	# ixset --
	# A nice interface to "xset" to change X server settings
	#
	# History :
	# 91/11/23 : pda@masi.ibp.fr, jt@ratp.fr : design
	# 92/08/01 : pda@masi.ibp.fr : cleaning
	#
	# RCS: @(#) $Id: ixset,v 1.4 2001/11/05 10:13:53 dkf Exp $

	#
	# Button actions
	#

	proc quit {} {
	destroy .
	}

	proc ok {} {
	writesettings
	quit
	}

	proc cancel {} {
	readsettings
	dispsettings
	.buttons.apply configure -state disabled
	.buttons.cancel configure -state disabled
	}

	proc apply {} {
	writesettings
	.buttons.apply configure -state disabled
	.buttons.cancel configure -state disabled
	}

	#
	# Read current settings
	#

	proc readsettings {} {
	global kbdrep ; set kbdrep "on"
	global kbdcli ; set kbdcli 0
	global bellvol ; set bellvol 100
	global bellpit ; set bellpit 440
	global belldur ; set belldur 100
	global mouseacc ; set mouseacc "3/1"
	global mousethr ; set mousethr 4
	global screenbla ; set screenbla "blank"
	global screentim ; set screentim 600
	global screencyc ; set screencyc 600

	set xfd [open "\|xset q" r]
	while {[gets $xfd line] > -1} {
	set kw [lindex $line 0]

	case $kw in {
	{auto}
	{
	set rpt [lindex $line 1]
	if {[expr "{$rpt} == {repeat:}"]} then {
	set kbdrep [lindex $line 2]
	set kbdcli [lindex $line 6]
	}
	}
	{bell}
	{
	set bellvol [lindex $line 2]
	set bellpit [lindex $line 5]
	set belldur [lindex $line 8]
	}
	{acceleration:}
	{
	set mouseacc [lindex $line 1]
	set mousethr [lindex $line 3]
	}
	{prefer}
	{
	set bla [lindex $line 2]
	set screenbla [expr "{$bla} == {yes} ? {blank} : {noblank}"]
	}
	{timeout:}
	{
	set screentim [lindex $line 1]
	set screencyc [lindex $line 3]
	}
	}
	}
	close $xfd

	# puts stdout [format "Key REPEAT = %s\n" $kbdrep]
	# puts stdout [format "Key CLICK = %s\n" $kbdcli]
	# puts stdout [format "Bell VOLUME = %s\n" $bellvol]
	# puts stdout [format "Bell PITCH = %s\n" $bellpit]
	# puts stdout [format "Bell DURATION = %s\n" $belldur]
	# puts stdout [format "Mouse ACCELERATION = %s\n" $mouseacc]
	# puts stdout [format "Mouse THRESHOLD = %s\n" $mousethr]
	# puts stdout [format "Screen BLANCK = %s\n" $screenbla]
	# puts stdout [format "Screen TIMEOUT = %s\n" $screentim]
	# puts stdout [format "Screen CYCLE = %s\n" $screencyc]
	}


	#
	# Write settings into the X server
	#

	proc writesettings {} {
	global kbdrep kbdcli bellvol bellpit belldur
	global mouseacc mousethr screenbla screentim screencyc

	set bellvol [.bell.vol get]
	set bellpit [.bell.val.pit.entry get]
	set belldur [.bell.val.dur.entry get]

	if {[expr "{$kbdrep} == {on}"]} then {
	set kbdcli [.kbd.val.cli get]
	} else {
	set kbdcli "off"
	}

	set mouseacc [.mouse.hor.acc.entry get]
	set mousethr [.mouse.hor.thr.entry get]

	set screentim [.screen.tim.entry get]
	set screencyc [.screen.cyc.entry get]

	exec xset \
	b $bellvol $bellpit $belldur \
	c $kbdcli \
	r $kbdrep \
	m $mouseacc $mousethr \
	s $screentim $screencyc \
	s $screenbla
	}


	#
	# Sends all settings to the window
	#

	proc dispsettings {} {
	global kbdrep kbdcli bellvol bellpit belldur
	global mouseacc mousethr screenbla screentim screencyc

	.bell.vol set $bellvol
	.bell.val.pit.entry delete 0 end
	.bell.val.pit.entry insert 0 $bellpit
	.bell.val.dur.entry delete 0 end
	.bell.val.dur.entry insert 0 $belldur

	.kbd.val.onoff [expr "{$kbdrep} == {on} ? {select} : {deselect}"]
	.kbd.val.cli set $kbdcli

	.mouse.hor.acc.entry delete 0 end
	.mouse.hor.acc.entry insert 0 $mouseacc
	.mouse.hor.thr.entry delete 0 end
	.mouse.hor.thr.entry insert 0 $mousethr

	.screen.blank [expr "{$screenbla}=={blank} ? {select} : {deselect}"]
	.screen.pat [expr "{$screenbla}!={blank} ? {select} : {deselect}"]
	.screen.tim.entry delete 0 end
	.screen.tim.entry insert 0 $screentim
	.screen.cyc.entry delete 0 end
	.screen.cyc.entry insert 0 $screencyc
	}


	#
	# Create all windows, and pack them
	#

	proc labelentry {path text length {range {}}} {
	frame $path
	label $path.label -text $text
	if {[llength $range]} {
	spinbox $path.entry -width $length -relief sunken \
	-from [lindex $range 0] -to [lindex $range 1]
	} else {
	entry $path.entry -width $length -relief sunken
	}
	pack $path.label -side left
	pack $path.entry -side right -expand y -fill x
	}

	proc createwindows {} {
	#
	# Buttons
	#

	frame .buttons
	button .buttons.ok -default active -command ok -text "Ok"
	button .buttons.apply -default normal -command apply -text "Apply" \
	-state disabled
	button .buttons.cancel -default normal -command cancel -text "Cancel" \
	-state disabled
	button .buttons.quit -default normal -command quit -text "Quit"

	pack .buttons.ok .buttons.apply .buttons.cancel .buttons.quit \
	-side left -expand yes -pady 5

	bind . <Return> {.buttons.ok flash; .buttons.ok invoke}
	bind . <Escape> {.buttons.quit flash; .buttons.quit invoke}
	bind . <1> {
	if {![string match .buttons* %W]} {
	.buttons.apply configure -state normal
	.buttons.cancel configure -state normal
	}
	}
	bind . <Key> {
	if {![string match .buttons* %W]} {
	switch -glob %K {
	Return - Escape - Tab - Shift {}
	default {
	.buttons.apply configure -state normal
	.buttons.cancel configure -state normal
	}
	}
	}
	}

	#
	# Bell settings
	#

	labelframe .bell -text "Bell Settings" -padx 1.5m -pady 1.5m
	scale .bell.vol \
	-from 0 -to 100 -length 200 -tickinterval 20 \
	-label "Volume (%)" -orient horizontal

	frame .bell.val
	labelentry .bell.val.pit "Pitch (Hz)" 6 {25 20000}
	labelentry .bell.val.dur "Duration (ms)" 6 {1 10000}
	pack .bell.val.pit -side left -padx 5
	pack .bell.val.dur -side right -padx 5
	pack .bell.vol .bell.val -side top -expand yes

	#
	# Keyboard settings
	#

	labelframe .kbd -text "Keyboard Repeat Settings" -padx 1.5m -pady 1.5m

	frame .kbd.val
	checkbutton .kbd.val.onoff \
	-text "On" \
	-onvalue "on" -offvalue "off" -variable kbdrep \
	-relief flat
	scale .kbd.val.cli \
	-from 0 -to 100 -length 200 -tickinterval 20 \
	-label "Click Volume (%)" -orient horizontal
	pack .kbd.val.onoff -side left -fill x -expand yes -padx {0 1m}
	pack .kbd.val.cli -side left -expand yes -fill x -padx {1m 0}

	pack .kbd.val -side top -expand yes -pady 2 -fill x

	#
	# Mouse settings
	#

	labelframe .mouse -text "Mouse Settings" -padx 1.5m -pady 1.5m

	frame .mouse.hor
	labelentry .mouse.hor.acc "Acceleration" 5
	labelentry .mouse.hor.thr "Threshold (pixels)" 3 {1 2000}

	pack .mouse.hor.acc -side left -padx {0 1m}
	pack .mouse.hor.thr -side right -padx {1m 0}

	pack .mouse.hor -side top -expand yes

	#
	# Screen Saver settings
	#

	labelframe .screen -text "Screen-saver Settings" -padx 1.5m -pady 1.5m

	radiobutton .screen.blank \
	-variable screenblank -text "Blank" -relief flat \
	-value "blank" -variable screenbla -anchor w
	radiobutton .screen.pat \
	-variable screenblank -text "Pattern" -relief flat \
	-value "noblank" -variable screenbla -anchor w
	labelentry .screen.tim "Timeout (s)" 5 {1 100000}
	labelentry .screen.cyc "Cycle (s)" 5 {1 100000}

	grid .screen.blank .screen.tim -sticky e
	grid .screen.pat .screen.cyc -sticky e
	grid configure .screen.blank .screen.pat -sticky ew

	#
	# Main window
	#

	pack .buttons -side top -fill both
	pack .bell .kbd .mouse .screen -side top -fill both -expand yes \
	-padx 1m -pady 1m

	#
	# Let the user resize our window
	#
	wm minsize . 10 10
	}

	##############################################################################
	# Main program

	#
	# Listen what "xset" tells us...
	#

	readsettings

	#
	# Create all windows
	#

	createwindows

	#
	# Write xset parameters
	#

	dispsettings

	#
	# Now, wait for user actions...
	#

	# Local Variables:
	# mode: tcl
	# End: