cvs.zerfleddert.de Git - micropolis/blame_incremental - src/tk/library/demos/ixset

#!/usr/local/bin/wish -f

#
# 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
#

#
# Button actions
#

proc quit {} {
    destroy .
}

proc ok {} {
    writesettings
    quit
}

proc cancel {} {
    readsettings
    dispsettings
}

# apply is just "writesettings"


#
# 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.val.le.tim.entry get]
    set screencyc	[.screen.val.le.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.val.rb.blank [expr "{$screenbla}=={blank} ? {select} : {deselect}"]
    .screen.val.rb.pat   [expr "{$screenbla}!={blank} ? {select} : {deselect}"]
    .screen.val.le.tim.entry delete 0 end
    .screen.val.le.tim.entry insert 0 $screentim
    .screen.val.le.cyc.entry delete 0 end
    .screen.val.le.cyc.entry insert 0 $screencyc
}


#
# Create all windows, and pack them
#

proc labelentry {path text length} {
    frame $path
    label $path.label -text $text
    entry $path.entry -width $length -relief sunken
    pack append $path $path.label {left expand} $path.entry {right expand}
}

proc createwindows {} {
    #
    # Buttons
    #

    frame .buttons
    button .buttons.ok		-command "ok"			-text "Ok"
    button .buttons.apply	-command "writesettings"	-text "Apply"
    button .buttons.cancel	-command "cancel"		-text "Cancel"
    button .buttons.quit	-command "quit"			-text "Quit"

    pack append .buttons \
	    .buttons.ok		{left expand pady 10} \
	    .buttons.apply	{left expand pady 10} \
	    .buttons.cancel	{left expand pady 10} \
	    .buttons.quit	{left expand pady 10}

    #
    # Bell settings
    #

    frame .bell -relief raised -borderwidth 2
    label .bell.label	-text "Bell Settings"
    scale .bell.vol \
	    -from 0 -to 100 -length 200 -tickinterval 20 \
	    -label "Volume (%)" -orient horizontal \
	    -bg Bisque1 -activeforeground Gray

    frame .bell.val
    labelentry .bell.val.pit "Pitch (Hz)"    6
    labelentry .bell.val.dur "Duration (ms)" 6
    pack append .bell.val \
	    .bell.val.pit	{left padx 10} \
	    .bell.val.dur	{right padx 10}

    pack append .bell \
	    .bell.label		{top expand} \
	    .bell.vol		{top expand} \
	    .bell.val		{top expand}

    #
    # Keyboard settings
    #

    frame .kbd -relief raised -borderwidth 2

    label .kbd.label -text "Keyboard Repeat Settings"

    frame .kbd.val
    checkbutton .kbd.val.onoff \
	    -text "On" \
	    -onvalue "on" -offvalue "off" -variable kbdrep \
	    -relief flat \
	    -activebackground Bisque1
    scale .kbd.val.cli \
	    -from 0 -to 100 -length 200 -tickinterval 20 \
	    -label "Click Volume (%)" -orient horizontal \
	    -bg Bisque1 -activeforeground Gray
    pack append .kbd.val \
	    .kbd.val.onoff	{left expand fill} \
	    .kbd.val.cli	{left expand}

    pack append .kbd \
	    .kbd.label		{top expand} \
	    .kbd.val		{top expand pady 4 fillx}

    #
    # Mouse settings
    #

    frame .mouse -relief raised -borderwidth 2

    label .mouse.label -text "Mouse Settings"
    frame .mouse.hor
    labelentry .mouse.hor.acc "Acceleration" 3
    labelentry .mouse.hor.thr "Threshold (pixels)" 3

    pack append .mouse.hor \
	    .mouse.hor.acc	{left} \
	    .mouse.hor.thr	{right}

    pack append .mouse \
	    .mouse.label	{top} \
	    .mouse.hor		{top expand}

    #
    # Screen Saver settings
    #

    frame .screen -relief raised -borderwidth 2

    label .screen.label -text "Screen-saver Settings"
    frame .screen.val

    frame .screen.val.rb
    radiobutton .screen.val.rb.blank \
	    -variable screenblank -text "Blank" -relief flat \
	    -value "blank" -variable screenbla \
	    -activebackground Bisque1
    radiobutton .screen.val.rb.pat \
	    -variable screenblank -text "Pattern" -relief flat \
	    -value "noblank" -variable screenbla \
	    -activebackground Bisque1
    pack append .screen.val.rb \
	    .screen.val.rb.blank	{top pady 4 frame w} \
	    .screen.val.rb.pat	{top pady 4 frame w}
    frame .screen.val.le
    labelentry .screen.val.le.tim "Timeout (s)" 5
    labelentry .screen.val.le.cyc "Cycle (s)" 5
    pack append .screen.val.le \
	    .screen.val.le.tim	{top pady 4 frame e} \
	    .screen.val.le.cyc	{top pady 4 frame e}

    pack append .screen.val \
	    .screen.val.rb	{left} \
	    .screen.val.le	{left}

    pack append .screen \
	    .screen.label	{top} \
	    .screen.val		{top expand}

    #
    # Main window
    #

    pack append . \
	    .buttons	{top fill} \
	    .bell	{top fill pady 10 expand} \
	    .kbd	{top fill pady 10 expand} \
	    .mouse	{top fill pady 10 expand} \
	    .screen	{top fill pady 10 expand}

    #
    # 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...
#
Commit	Line	Data
	1	#!/usr/local/bin/wish -f
	2
	3	#
	4	# A nice interface to "xset" to change X server settings
	5	#
	6	# History :
	7	# 91/11/23 : pda@masi.ibp.fr, jt@ratp.fr : design
	8	# 92/08/01 : pda@masi.ibp.fr : cleaning
	9	#
	10
	11	#
	12	# Button actions
	13	#
	14
	15	proc quit {} {
	16	destroy .
	17	}
	18
	19	proc ok {} {
	20	writesettings
	21	quit
	22	}
	23
	24	proc cancel {} {
	25	readsettings
	26	dispsettings
	27	}
	28
	29	# apply is just "writesettings"
	30
	31
	32	#
	33	# Read current settings
	34	#
	35
	36	proc readsettings {} {
	37	global kbdrep ; set kbdrep "on"
	38	global kbdcli ; set kbdcli 0
	39	global bellvol ; set bellvol 100
	40	global bellpit ; set bellpit 440
	41	global belldur ; set belldur 100
	42	global mouseacc ; set mouseacc "3/1"
	43	global mousethr ; set mousethr 4
	44	global screenbla ; set screenbla "blank"
	45	global screentim ; set screentim 600
	46	global screencyc ; set screencyc 600
	47
	48	set xfd [open "\|xset q" r]
	49	while {[gets $xfd line] > -1} {
	50	set kw [lindex $line 0]
	51
	52	case $kw in {
	53	{auto}
	54	{
	55	set rpt [lindex $line 1]
	56	if {[expr "{$rpt} == {repeat:}"]} then {
	57	set kbdrep [lindex $line 2]
	58	set kbdcli [lindex $line 6]
	59	}
	60	}
	61	{bell}
	62	{
	63	set bellvol [lindex $line 2]
	64	set bellpit [lindex $line 5]
	65	set belldur [lindex $line 8]
	66	}
	67	{acceleration:}
	68	{
	69	set mouseacc [lindex $line 1]
	70	set mousethr [lindex $line 3]
	71	}
	72	{prefer}
	73	{
	74	set bla [lindex $line 2]
	75	set screenbla [expr "{$bla} == {yes} ? {blank} : {noblank}"]
	76	}
	77	{timeout:}
	78	{
	79	set screentim [lindex $line 1]
	80	set screencyc [lindex $line 3]
	81	}
	82	}
	83	}
	84	close $xfd
	85
	86	# puts stdout [format "Key REPEAT = %s\n" $kbdrep]
	87	# puts stdout [format "Key CLICK = %s\n" $kbdcli]
	88	# puts stdout [format "Bell VOLUME = %s\n" $bellvol]
	89	# puts stdout [format "Bell PITCH = %s\n" $bellpit]
	90	# puts stdout [format "Bell DURATION = %s\n" $belldur]
	91	# puts stdout [format "Mouse ACCELERATION = %s\n" $mouseacc]
	92	# puts stdout [format "Mouse THRESHOLD = %s\n" $mousethr]
	93	# puts stdout [format "Screen BLANCK = %s\n" $screenbla]
	94	# puts stdout [format "Screen TIMEOUT = %s\n" $screentim]
	95	# puts stdout [format "Screen CYCLE = %s\n" $screencyc]
	96	}
	97
	98
	99	#
	100	# Write settings into the X server
	101	#
	102
	103	proc writesettings {} {
	104	global kbdrep kbdcli bellvol bellpit belldur
	105	global mouseacc mousethr screenbla screentim screencyc
	106
	107	set bellvol [.bell.vol get]
	108	set bellpit [.bell.val.pit.entry get]
	109	set belldur [.bell.val.dur.entry get]
	110
	111	if {[expr "{$kbdrep} == {on}"]} then {
	112	set kbdcli [.kbd.val.cli get]
	113	} else {
	114	set kbdcli "off"
	115	}
	116
	117	set mouseacc [.mouse.hor.acc.entry get]
	118	set mousethr [.mouse.hor.thr.entry get]
	119
	120	set screentim [.screen.val.le.tim.entry get]
	121	set screencyc [.screen.val.le.cyc.entry get]
	122
	123	exec xset \
	124	b $bellvol $bellpit $belldur \
	125	c $kbdcli \
	126	r $kbdrep \
	127	m $mouseacc $mousethr \
	128	s $screentim $screencyc \
	129	s $screenbla
	130	}
	131
	132
	133	#
	134	# Sends all settings to the window
	135	#
	136
	137	proc dispsettings {} {
	138	global kbdrep kbdcli bellvol bellpit belldur
	139	global mouseacc mousethr screenbla screentim screencyc
	140
	141	.bell.vol set $bellvol
	142	.bell.val.pit.entry delete 0 end
	143	.bell.val.pit.entry insert 0 $bellpit
	144	.bell.val.dur.entry delete 0 end
	145	.bell.val.dur.entry insert 0 $belldur
	146
	147	.kbd.val.onoff [expr "{$kbdrep} == {on} ? {select} : {deselect}"]
	148	.kbd.val.cli set $kbdcli
	149
	150	.mouse.hor.acc.entry delete 0 end
	151	.mouse.hor.acc.entry insert 0 $mouseacc
	152	.mouse.hor.thr.entry delete 0 end
	153	.mouse.hor.thr.entry insert 0 $mousethr
	154
	155	.screen.val.rb.blank [expr "{$screenbla}=={blank} ? {select} : {deselect}"]
	156	.screen.val.rb.pat [expr "{$screenbla}!={blank} ? {select} : {deselect}"]
	157	.screen.val.le.tim.entry delete 0 end
	158	.screen.val.le.tim.entry insert 0 $screentim
	159	.screen.val.le.cyc.entry delete 0 end
	160	.screen.val.le.cyc.entry insert 0 $screencyc
	161	}
	162
	163
	164	#
	165	# Create all windows, and pack them
	166	#
	167
	168	proc labelentry {path text length} {
	169	frame $path
	170	label $path.label -text $text
	171	entry $path.entry -width $length -relief sunken
	172	pack append $path $path.label {left expand} $path.entry {right expand}
	173	}
	174
	175	proc createwindows {} {
	176	#
	177	# Buttons
	178	#
	179
	180	frame .buttons
	181	button .buttons.ok -command "ok" -text "Ok"
	182	button .buttons.apply -command "writesettings" -text "Apply"
	183	button .buttons.cancel -command "cancel" -text "Cancel"
	184	button .buttons.quit -command "quit" -text "Quit"
	185
	186	pack append .buttons \
	187	.buttons.ok {left expand pady 10} \
	188	.buttons.apply {left expand pady 10} \
	189	.buttons.cancel {left expand pady 10} \
	190	.buttons.quit {left expand pady 10}
	191
	192	#
	193	# Bell settings
	194	#
	195
	196	frame .bell -relief raised -borderwidth 2
	197	label .bell.label -text "Bell Settings"
	198	scale .bell.vol \
	199	-from 0 -to 100 -length 200 -tickinterval 20 \
	200	-label "Volume (%)" -orient horizontal \
	201	-bg Bisque1 -activeforeground Gray
	202
	203	frame .bell.val
	204	labelentry .bell.val.pit "Pitch (Hz)" 6
	205	labelentry .bell.val.dur "Duration (ms)" 6
	206	pack append .bell.val \
	207	.bell.val.pit {left padx 10} \
	208	.bell.val.dur {right padx 10}
	209
	210	pack append .bell \
	211	.bell.label {top expand} \
	212	.bell.vol {top expand} \
	213	.bell.val {top expand}
	214
	215	#
	216	# Keyboard settings
	217	#
	218
	219	frame .kbd -relief raised -borderwidth 2
	220
	221	label .kbd.label -text "Keyboard Repeat Settings"
	222
	223	frame .kbd.val
	224	checkbutton .kbd.val.onoff \
	225	-text "On" \
	226	-onvalue "on" -offvalue "off" -variable kbdrep \
	227	-relief flat \
	228	-activebackground Bisque1
	229	scale .kbd.val.cli \
	230	-from 0 -to 100 -length 200 -tickinterval 20 \
	231	-label "Click Volume (%)" -orient horizontal \
	232	-bg Bisque1 -activeforeground Gray
	233	pack append .kbd.val \
	234	.kbd.val.onoff {left expand fill} \
	235	.kbd.val.cli {left expand}
	236
	237	pack append .kbd \
	238	.kbd.label {top expand} \
	239	.kbd.val {top expand pady 4 fillx}
	240
	241	#
	242	# Mouse settings
	243	#
	244
	245	frame .mouse -relief raised -borderwidth 2
	246
	247	label .mouse.label -text "Mouse Settings"
	248	frame .mouse.hor
	249	labelentry .mouse.hor.acc "Acceleration" 3
	250	labelentry .mouse.hor.thr "Threshold (pixels)" 3
	251
	252	pack append .mouse.hor \
	253	.mouse.hor.acc {left} \
	254	.mouse.hor.thr {right}
	255
	256	pack append .mouse \
	257	.mouse.label {top} \
	258	.mouse.hor {top expand}
	259
	260	#
	261	# Screen Saver settings
	262	#
	263
	264	frame .screen -relief raised -borderwidth 2
	265
	266	label .screen.label -text "Screen-saver Settings"
	267	frame .screen.val
	268
	269	frame .screen.val.rb
	270	radiobutton .screen.val.rb.blank \
	271	-variable screenblank -text "Blank" -relief flat \
	272	-value "blank" -variable screenbla \
	273	-activebackground Bisque1
	274	radiobutton .screen.val.rb.pat \
	275	-variable screenblank -text "Pattern" -relief flat \
	276	-value "noblank" -variable screenbla \
	277	-activebackground Bisque1
	278	pack append .screen.val.rb \
	279	.screen.val.rb.blank {top pady 4 frame w} \
	280	.screen.val.rb.pat {top pady 4 frame w}
	281	frame .screen.val.le
	282	labelentry .screen.val.le.tim "Timeout (s)" 5
	283	labelentry .screen.val.le.cyc "Cycle (s)" 5
	284	pack append .screen.val.le \
	285	.screen.val.le.tim {top pady 4 frame e} \
	286	.screen.val.le.cyc {top pady 4 frame e}
	287
	288	pack append .screen.val \
	289	.screen.val.rb {left} \
	290	.screen.val.le {left}
	291
	292	pack append .screen \
	293	.screen.label {top} \
	294	.screen.val {top expand}
	295
	296	#
	297	# Main window
	298	#
	299
	300	pack append . \
	301	.buttons {top fill} \
	302	.bell {top fill pady 10 expand} \
	303	.kbd {top fill pady 10 expand} \
	304	.mouse {top fill pady 10 expand} \
	305	.screen {top fill pady 10 expand}
	306
	307	#
	308	# Let the user resize our window
	309	#
	310	wm minsize . 10 10
	311	}
	312
	313	##############################################################################
	314	# Main program
	315
	316	#
	317	# Listen what "xset" tells us...
	318	#
	319
	320	readsettings
	321
	322	#
	323	# Create all windows
	324	#
	325
	326	createwindows
	327
	328	#
	329	# Write xset parameters
	330	#
	331
	332	dispsettings
	333
	334	#
	335	# Now, wait for user actions...
	336	#