#acupoftea - mail.ontime-ae.com

System	:	Linux server1.ontime-gulf.com 4.18.0-553.5.1.el8_10.x86_64 #1 SMP Wed Jun 5 09:12:13 EDT 2024 x86_64
Software	:	Apache
Server	:	162.0.230.206
Domains	:	40 Domain
Permission	:	[ drwxr-xr-x ]
	:	/ usr / share / tk8.6 / demos /

216.73.216.49

Home

File ixset

#!/bin/sh
# the next line restarts using wish \
exec wish8.6 "$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

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 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} {
	switch -- [lindex $line 0] {
	    auto {
		set rpt [lindex $line 1]
		if {$rpt eq "repeat:"} {
		    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 eq "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 {$kbdrep eq "on"} {
	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 eq "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 eq "blank" ? "select" : "deselect"}]
    .screen.pat   [expr {$screenbla ne "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:

Name	Type	Size	Permission	Last Modified	Actions
.	DIR	-	drwxr-xr-x	2024-03-13 04:40:23
..	DIR	-	drwxr-xr-x	2024-03-13 04:40:23
images	DIR	-	drwxr-xr-x	2024-03-13 04:40:23
README	text/plain	2.03 KB	-rw-r--r--	2019-10-16 05:25:12
anilabel.tcl	text/plain	6.51 KB	-rw-r--r--	2019-10-16 05:25:12
aniwave.tcl	text/plain	3.41 KB	-rw-r--r--	2019-10-16 05:25:12
arrow.tcl	text/plain	7.8 KB	-rw-r--r--	2019-10-16 05:25:12
bind.tcl	text/plain	2.88 KB	-rw-r--r--	2019-10-16 05:25:12
bitmap.tcl	text/plain	1.38 KB	-rw-r--r--	2019-10-16 05:25:12
browse	text/x-shellscript	1.72 KB	-rwxr-xr-x	2019-10-16 05:25:12
button.tcl	text/plain	1.47 KB	-rw-r--r--	2019-10-16 05:25:12
check.tcl	text/plain	2.22 KB	-rw-r--r--	2019-10-16 05:25:12
clrpick.tcl	text/plain	1.4 KB	-rw-r--r--	2019-10-16 05:25:12
colors.tcl	text/plain	4.88 KB	-rw-r--r--	2019-10-16 05:25:12
combo.tcl	text/plain	1.92 KB	-rw-r--r--	2019-10-16 05:25:12
cscroll.tcl	text/plain	3.31 KB	-rw-r--r--	2019-10-16 05:25:12
ctext.tcl	text/plain	5.88 KB	-rw-r--r--	2019-10-16 05:25:12
dialog1.tcl	text/plain	660 B	-rw-r--r--	2019-10-16 05:25:12
dialog2.tcl	text/plain	613 B	-rw-r--r--	2019-10-16 05:25:12
en.msg	text/plain	3.78 KB	-rw-r--r--	2019-10-16 05:25:12
entry1.tcl	text/plain	1.35 KB	-rw-r--r--	2019-10-16 05:25:12
entry2.tcl	text/plain	2.03 KB	-rw-r--r--	2019-10-16 05:25:12
entry3.tcl	text/plain	5.96 KB	-rw-r--r--	2019-10-16 05:25:12
filebox.tcl	text/plain	2.3 KB	-rw-r--r--	2019-10-16 05:25:12
floor.tcl	text/plain	77.25 KB	-rw-r--r--	2019-10-16 05:25:12
fontchoose.tcl	text/plain	1.71 KB	-rw-r--r--	2019-10-16 05:25:12
form.tcl	text/plain	1.02 KB	-rw-r--r--	2019-10-16 05:25:12
goldberg.tcl	text/plain	55.23 KB	-rw-r--r--	2019-10-16 05:25:12
hello	text/x-shellscript	512 B	-rwxr-xr-x	2019-10-16 05:25:12
hscale.tcl	text/plain	1.46 KB	-rw-r--r--	2019-10-16 05:25:12
icon.tcl	text/plain	2.01 KB	-rw-r--r--	2019-10-16 05:25:12
image1.tcl	text/plain	1002 B	-rw-r--r--	2019-10-16 05:25:12
image2.tcl	text/plain	3.27 KB	-rw-r--r--	2019-10-16 05:25:12
items.tcl	text/plain	9.9 KB	-rw-r--r--	2019-10-16 05:25:12
ixset	text/x-shellscript	7.88 KB	-rwxr-xr-x	2019-10-16 05:25:12
knightstour.tcl	text/plain	8.93 KB	-rw-r--r--	2019-10-16 05:25:12
label.tcl	text/plain	1.35 KB	-rw-r--r--	2019-10-16 05:25:12
labelframe.tcl	text/plain	1.8 KB	-rw-r--r--	2019-10-16 05:25:12
license.terms	text/plain	2.21 KB	-rw-r--r--	2019-10-16 05:25:12
mclist.tcl	text/plain	4.25 KB	-rw-r--r--	2019-10-16 05:25:12
menu.tcl	text/plain	6.62 KB	-rw-r--r--	2019-10-16 05:25:12
menubu.tcl	text/plain	4.37 KB	-rw-r--r--	2019-10-16 05:25:12
msgbox.tcl	text/plain	1.95 KB	-rw-r--r--	2019-10-16 05:25:12
nl.msg	text/plain	6.59 KB	-rw-r--r--	2019-10-16 05:25:12
paned1.tcl	text/plain	1.08 KB	-rw-r--r--	2019-10-16 05:25:12
paned2.tcl	text/plain	2.19 KB	-rw-r--r--	2019-10-16 05:25:12
pendulum.tcl	text/plain	7.42 KB	-rw-r--r--	2019-10-16 05:25:12
plot.tcl	text/plain	2.69 KB	-rw-r--r--	2019-10-16 05:25:12
puzzle.tcl	text/plain	2.54 KB	-rw-r--r--	2019-10-16 05:25:12
radio.tcl	text/plain	2.69 KB	-rw-r--r--	2019-10-16 05:25:12
rmt	text/x-shellscript	5.19 KB	-rwxr-xr-x	2019-10-16 05:25:12
rolodex	text/x-shellscript	8.11 KB	-rwxr-xr-x	2019-10-16 05:25:12
ruler.tcl	text/plain	5.09 KB	-rw-r--r--	2019-10-16 05:25:12
sayings.tcl	text/plain	2.22 KB	-rw-r--r--	2019-10-16 05:25:12
search.tcl	text/plain	4.3 KB	-rw-r--r--	2019-10-16 05:25:12
spin.tcl	text/plain	1.78 KB	-rw-r--r--	2019-10-16 05:25:12
states.tcl	text/plain	2 KB	-rw-r--r--	2019-10-16 05:25:12
style.tcl	text/plain	6.78 KB	-rw-r--r--	2019-10-16 05:25:12
tclIndex	text/plain	4.25 KB	-rw-r--r--	2019-10-16 05:25:12
tcolor	text/x-shellscript	10.99 KB	-rwxr-xr-x	2019-10-16 05:25:12
text.tcl	text/plain	4.17 KB	-rw-r--r--	2019-10-16 05:25:12
textpeer.tcl	text/plain	2.14 KB	-rw-r--r--	2019-10-16 05:25:12
timer	text/x-shellscript	1.07 KB	-rwxr-xr-x	2019-10-16 05:25:12
toolbar.tcl	text/plain	3.19 KB	-rw-r--r--	2019-10-16 05:25:12
tree.tcl	text/plain	3.09 KB	-rw-r--r--	2019-10-16 05:25:12
ttkbut.tcl	text/plain	3.33 KB	-rw-r--r--	2019-10-16 05:25:12
ttkmenu.tcl	text/plain	2.33 KB	-rw-r--r--	2019-10-16 05:25:12
ttknote.tcl	text/plain	2.26 KB	-rw-r--r--	2019-10-16 05:25:12
ttkpane.tcl	text/plain	4.07 KB	-rw-r--r--	2019-10-16 05:25:12
ttkprogress.tcl	text/plain	1.5 KB	-rw-r--r--	2019-10-16 05:25:12
ttkscale.tcl	text/plain	1.39 KB	-rw-r--r--	2019-10-16 05:25:12
twind.tcl	text/plain	10.79 KB	-rw-r--r--	2019-10-16 05:25:12
unicodeout.tcl	text/plain	4.3 KB	-rw-r--r--	2019-10-16 05:25:12
vscale.tcl	text/plain	1.44 KB	-rw-r--r--	2019-10-16 05:25:12
widget	text/x-shellscript	22.72 KB	-rwxr-xr-x	2019-10-16 05:25:12

~ ACUPOFTEA - mail.ontime-ae.com