#!/bin/sh
# the next line restarts using wish \
exec wish "$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.5 2003/09/30 14:54:30 dkf Exp $

package require Tcl 8.4
package require Tk

#
# 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 bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bellvol	100
    global bellpit ;	set bell   global bellvol ;	set bell