ixset revision 3f54fd611f536639ec30dd53c48e5ec1897cc7d9
f743002678eb67b99bbc29fee116b65d9530fec0wrowe#!/bin/sh
80833bb9a1bf25dcf19e814438a4b311d2e1f4cffuankg# the next line restarts using wish \
a34684a59b60a4173c25035d0c627ef17e6dc215rpluemexec wish "$0" "$@"
1337c7673efc1f80f634139fbad7cbb98a0dc657ylavic
1337c7673efc1f80f634139fbad7cbb98a0dc657ylavic# ixset --
1337c7673efc1f80f634139fbad7cbb98a0dc657ylavic# A nice interface to "xset" to change X server settings
1337c7673efc1f80f634139fbad7cbb98a0dc657ylavic#
4da61833a1cbbca94094f9653fd970582b97a72etrawick# History :
4da61833a1cbbca94094f9653fd970582b97a72etrawick# 91/11/23 : pda@masi.ibp.fr, jt@ratp.fr : design
4da61833a1cbbca94094f9653fd970582b97a72etrawick# 92/08/01 : pda@masi.ibp.fr : cleaning
4da61833a1cbbca94094f9653fd970582b97a72etrawick#
4da61833a1cbbca94094f9653fd970582b97a72etrawick# SCCS: @(#) ixset 1.7 96/02/16 10:49:19
4789804be088bcd86ae637a29cdb7fda25169521jailletc
4789804be088bcd86ae637a29cdb7fda25169521jailletc#
4789804be088bcd86ae637a29cdb7fda25169521jailletc# Button actions
4789804be088bcd86ae637a29cdb7fda25169521jailletc#
e50c3026198fd496f183cda4c32a202925476778covener
e50c3026198fd496f183cda4c32a202925476778covenerproc quit {} {
e50c3026198fd496f183cda4c32a202925476778covener destroy .
5b88c8507d5ef6d0c4cfbc78230294968175b638minfrin}
5b88c8507d5ef6d0c4cfbc78230294968175b638minfrin
6c3b9cebb551140fbb25d58bae08b539b3802133ylavicproc ok {} {
6c3b9cebb551140fbb25d58bae08b539b3802133ylavic writesettings
6c3b9cebb551140fbb25d58bae08b539b3802133ylavic quit
4f29b65ab4b547ad5dbe506e2d0ff5d12ead9247ylavic}
4f29b65ab4b547ad5dbe506e2d0ff5d12ead9247ylavic
0a0df13b7f1f4f1a74fe295253d89ca3911b301aylavicproc cancel {} {
0a0df13b7f1f4f1a74fe295253d89ca3911b301aylavic readsettings
0a0df13b7f1f4f1a74fe295253d89ca3911b301aylavic dispsettings
0a0df13b7f1f4f1a74fe295253d89ca3911b301aylavic}
69301145375a889e7e37caf7cc7321ac0f91801erpluem
69301145375a889e7e37caf7cc7321ac0f91801erpluem# apply is just "writesettings"
69301145375a889e7e37caf7cc7321ac0f91801erpluem
506bfe33206b2fece40ef25f695af39dd4130facjkaluza
506bfe33206b2fece40ef25f695af39dd4130facjkaluza#
506bfe33206b2fece40ef25f695af39dd4130facjkaluza# Read current settings
506bfe33206b2fece40ef25f695af39dd4130facjkaluza#
d58a848a016d401b965111e50ef829e1641f7834minfrin
d58a848a016d401b965111e50ef829e1641f7834minfrinproc readsettings {} {
d58a848a016d401b965111e50ef829e1641f7834minfrin global kbdrep ; set kbdrep "on"
2e6f4d654c96c98b761fb012fd25c5d5b1558c44sf global kbdcli ; set kbdcli 0
2e6f4d654c96c98b761fb012fd25c5d5b1558c44sf global bellvol ; set bellvol 100
2e6f4d654c96c98b761fb012fd25c5d5b1558c44sf global bellpit ; set bellpit 440
17e6c95f3b22d18acdf8380fb26a8d0e10c80767ylavic global belldur ; set belldur 100
17e6c95f3b22d18acdf8380fb26a8d0e10c80767ylavic global mouseacc ; set mouseacc "3/1"
17e6c95f3b22d18acdf8380fb26a8d0e10c80767ylavic global mousethr ; set mousethr 4
17e6c95f3b22d18acdf8380fb26a8d0e10c80767ylavic global screenbla ; set screenbla "blank"
17e6c95f3b22d18acdf8380fb26a8d0e10c80767ylavic global screentim ; set screentim 600
e8bd80a4bb88199d2f9a24a50345688e52d9c116ylavic global screencyc ; set screencyc 600
e8bd80a4bb88199d2f9a24a50345688e52d9c116ylavic
e8bd80a4bb88199d2f9a24a50345688e52d9c116ylavic set xfd [open "|xset q" r]
330e16bea8fe9cace4de90c349750c03dfb1fe64ylavic while {[gets $xfd line] > -1} {
330e16bea8fe9cace4de90c349750c03dfb1fe64ylavic set kw [lindex $line 0]
330e16bea8fe9cace4de90c349750c03dfb1fe64ylavic
330e16bea8fe9cace4de90c349750c03dfb1fe64ylavic case $kw in {
330e16bea8fe9cace4de90c349750c03dfb1fe64ylavic {auto}
330e16bea8fe9cace4de90c349750c03dfb1fe64ylavic {
330e16bea8fe9cace4de90c349750c03dfb1fe64ylavic set rpt [lindex $line 1]
d7205b1a86c51c27b71a2c458dc453fd53a261c1covener if {[expr "{$rpt} == {repeat:}"]} then {
d7205b1a86c51c27b71a2c458dc453fd53a261c1covener set kbdrep [lindex $line 2]
d7205b1a86c51c27b71a2c458dc453fd53a261c1covener set kbdcli [lindex $line 6]
d7205b1a86c51c27b71a2c458dc453fd53a261c1covener }
d7205b1a86c51c27b71a2c458dc453fd53a261c1covener }
44ff304057225e944e220e981d434a046d14cf06covener {bell}
44ff304057225e944e220e981d434a046d14cf06covener {
44ff304057225e944e220e981d434a046d14cf06covener set bellvol [lindex $line 2]
44ff304057225e944e220e981d434a046d14cf06covener set bellpit [lindex $line 5]
5d1ba75b8794925e67591c209085a49279791de9covener set belldur [lindex $line 8]
5d1ba75b8794925e67591c209085a49279791de9covener }
5d1ba75b8794925e67591c209085a49279791de9covener {acceleration:}
032982212dbcc7c3cce95bf89c503bb56e185ac7kbrand {
032982212dbcc7c3cce95bf89c503bb56e185ac7kbrand set mouseacc [lindex $line 1]
032982212dbcc7c3cce95bf89c503bb56e185ac7kbrand set mousethr [lindex $line 3]
032982212dbcc7c3cce95bf89c503bb56e185ac7kbrand }
caad2986f81ab263f7af41467dd622dc9add17f3ylavic {prefer}
caad2986f81ab263f7af41467dd622dc9add17f3ylavic {
caad2986f81ab263f7af41467dd622dc9add17f3ylavic set bla [lindex $line 2]
caad2986f81ab263f7af41467dd622dc9add17f3ylavic set screenbla [expr "{$bla} == {yes} ? {blank} : {noblank}"]
45a10d38e6051fd7bdf9d742aaae633d97ff02abjailletc }
f7317ff316c2b141feea31bddb74d5d3fa1584edjorton {timeout:}
f7317ff316c2b141feea31bddb74d5d3fa1584edjorton {
2165214331e4afafca4048f66f303d0253d7b001covener set screentim [lindex $line 1]
a34684a59b60a4173c25035d0c627ef17e6dc215rpluem set screencyc [lindex $line 3]
a34684a59b60a4173c25035d0c627ef17e6dc215rpluem }
1e2d421a36999d292042a5539971070d54aa6c63ylavic }
1e2d421a36999d292042a5539971070d54aa6c63ylavic }
1e2d421a36999d292042a5539971070d54aa6c63ylavic close $xfd
fa7ed98b9dc94c5845cf845aea0a44ecacd290c9humbedooh
fa7ed98b9dc94c5845cf845aea0a44ecacd290c9humbedooh # puts stdout [format "Key REPEAT = %s\n" $kbdrep]
fa7ed98b9dc94c5845cf845aea0a44ecacd290c9humbedooh # puts stdout [format "Key CLICK = %s\n" $kbdcli]
0b67eb8568cd58bb77082703951679b42cf098actrawick # puts stdout [format "Bell VOLUME = %s\n" $bellvol]
0b67eb8568cd58bb77082703951679b42cf098actrawick # puts stdout [format "Bell PITCH = %s\n" $bellpit]
0b67eb8568cd58bb77082703951679b42cf098actrawick # puts stdout [format "Bell DURATION = %s\n" $belldur]
0b67eb8568cd58bb77082703951679b42cf098actrawick # puts stdout [format "Mouse ACCELERATION = %s\n" $mouseacc]
5ef3c61605a3a021ff71f488983cb0065f8e1a79covener # puts stdout [format "Mouse THRESHOLD = %s\n" $mousethr]
fb1985a97912b25ec6564c73e610a31e5fc6e25fcovener # puts stdout [format "Screen BLANCK = %s\n" $screenbla]
09c87c777bed1655621bb20e1c46cb6b1a63279dcovener # puts stdout [format "Screen TIMEOUT = %s\n" $screentim]
6502b7b32f980cc2093bb3ebce37e5e4dc68fba4ylavic # puts stdout [format "Screen CYCLE = %s\n" $screencyc]
6502b7b32f980cc2093bb3ebce37e5e4dc68fba4ylavic}
3060ce7f798fbda7999cd4ddf89b525d2b294185covener
c1a63b8fad09c419c1a64f75993feb8a343a6801ylavic
c1a63b8fad09c419c1a64f75993feb8a343a6801ylavic#
c1a63b8fad09c419c1a64f75993feb8a343a6801ylavic# Write settings into the X server
e6b4bd1113567627ab6bb6c6a7105e1e01a7d889jailletc#
e6b4bd1113567627ab6bb6c6a7105e1e01a7d889jailletc
e466c40e1801982602ee0200c9e8b61cc148742djailletcproc writesettings {} {
e466c40e1801982602ee0200c9e8b61cc148742djailletc global kbdrep kbdcli bellvol bellpit belldur
457468b82e59d01eba00dd9d0817309c8f5e414ejim global mouseacc mousethr screenbla screentim screencyc
457468b82e59d01eba00dd9d0817309c8f5e414ejim
457468b82e59d01eba00dd9d0817309c8f5e414ejim set bellvol [.bell.vol get]
04983e3bd1754764eec7d6bb772fe3b0bf391771jorton set bellpit [.bell.val.pit.entry get]
04983e3bd1754764eec7d6bb772fe3b0bf391771jorton set belldur [.bell.val.dur.entry get]
15890c9306ba98f6fc243e15a3c4778ddc7d773erpluem
15660979a30d251681463de2e0584853890082accovener if {[expr "{$kbdrep} == {on}"]} then {
15660979a30d251681463de2e0584853890082accovener set kbdcli [.kbd.val.cli get]
49dacedb6c387b786b7911082ff35121a45f414bcovener } else {
49dacedb6c387b786b7911082ff35121a45f414bcovener set kbdcli "off"
cfd9415521847b2f9394fad04fb701cfb955f503rjung }
cfd9415521847b2f9394fad04fb701cfb955f503rjung
cfd9415521847b2f9394fad04fb701cfb955f503rjung set mouseacc [.mouse.hor.acc.entry get]
28c31fb73c1264bd1d0ff932573677030b024c7dwrowe set mousethr [.mouse.hor.thr.entry get]
28c31fb73c1264bd1d0ff932573677030b024c7dwrowe
28c31fb73c1264bd1d0ff932573677030b024c7dwrowe set screentim [.screen.val.le.tim.entry get]
28c31fb73c1264bd1d0ff932573677030b024c7dwrowe set screencyc [.screen.val.le.cyc.entry get]
28c31fb73c1264bd1d0ff932573677030b024c7dwrowe
8491e0600f69b0405e156ea8a419653c065c645bcovener exec xset \
63b9f1f5880391261705f696d7d65507bbe9ace3covener b $bellvol $bellpit $belldur \
63b9f1f5880391261705f696d7d65507bbe9ace3covener c $kbdcli \
63b9f1f5880391261705f696d7d65507bbe9ace3covener r $kbdrep \
49dacedb6c387b786b7911082ff35121a45f414bcovener m $mouseacc $mousethr \
49dacedb6c387b786b7911082ff35121a45f414bcovener s $screentim $screencyc \
49dacedb6c387b786b7911082ff35121a45f414bcovener s $screenbla
49dacedb6c387b786b7911082ff35121a45f414bcovener}
3c990331fc6702119e4f5b8ba9eae3021aea5265jim
3c990331fc6702119e4f5b8ba9eae3021aea5265jim
3c990331fc6702119e4f5b8ba9eae3021aea5265jim#
3c990331fc6702119e4f5b8ba9eae3021aea5265jim# Sends all settings to the window
fc42512879dd0504532f52fe5d0d0383dda96a1eniq#
fc42512879dd0504532f52fe5d0d0383dda96a1eniq
fc42512879dd0504532f52fe5d0d0383dda96a1eniqproc dispsettings {} {
0451df5dc50fa5d8b3e07d92ee6a92e36a1181a5niq global kbdrep kbdcli bellvol bellpit belldur
0451df5dc50fa5d8b3e07d92ee6a92e36a1181a5niq global mouseacc mousethr screenbla screentim screencyc
0451df5dc50fa5d8b3e07d92ee6a92e36a1181a5niq
da0442c0440caef34706e2c2f3af05cb65921cc0jailletc .bell.vol set $bellvol
983528026996668ea295be95aedb9c7a346af470ylavic .bell.val.pit.entry delete 0 end
da0442c0440caef34706e2c2f3af05cb65921cc0jailletc .bell.val.pit.entry insert 0 $bellpit
da0442c0440caef34706e2c2f3af05cb65921cc0jailletc .bell.val.dur.entry delete 0 end
06b8f183140c8e02e0974e938a05078b511d1603covener .bell.val.dur.entry insert 0 $belldur
06b8f183140c8e02e0974e938a05078b511d1603covener
06b8f183140c8e02e0974e938a05078b511d1603covener .kbd.val.onoff [expr "{$kbdrep} == {on} ? {select} : {deselect}"]
15890c9306ba98f6fc243e15a3c4778ddc7d773erpluem .kbd.val.cli set $kbdcli
259878293a997ff49f5ddfc53d3739cbdc25444ecovener
259878293a997ff49f5ddfc53d3739cbdc25444ecovener .mouse.hor.acc.entry delete 0 end
259878293a997ff49f5ddfc53d3739cbdc25444ecovener .mouse.hor.acc.entry insert 0 $mouseacc
259878293a997ff49f5ddfc53d3739cbdc25444ecovener .mouse.hor.thr.entry delete 0 end
15890c9306ba98f6fc243e15a3c4778ddc7d773erpluem .mouse.hor.thr.entry insert 0 $mousethr
b54b024c06a19926832d77d40ba35ad8c41e4d3dminfrin
b54b024c06a19926832d77d40ba35ad8c41e4d3dminfrin .screen.val.rb.blank [expr "{$screenbla}=={blank} ? {select} : {deselect}"]
b54b024c06a19926832d77d40ba35ad8c41e4d3dminfrin .screen.val.rb.pat [expr "{$screenbla}!={blank} ? {select} : {deselect}"]
65967d05f839dbf27cf91d91fa79585eeae19660minfrin .screen.val.le.tim.entry delete 0 end
65967d05f839dbf27cf91d91fa79585eeae19660minfrin .screen.val.le.tim.entry insert 0 $screentim
65967d05f839dbf27cf91d91fa79585eeae19660minfrin .screen.val.le.cyc.entry delete 0 end
65967d05f839dbf27cf91d91fa79585eeae19660minfrin .screen.val.le.cyc.entry insert 0 $screencyc
8152945ae46857b170cb227e79bb799f4fc7710dminfrin}
8152945ae46857b170cb227e79bb799f4fc7710dminfrin
8152945ae46857b170cb227e79bb799f4fc7710dminfrin
8152945ae46857b170cb227e79bb799f4fc7710dminfrin#
75f5c2db254c0167a0e396254460de09b775d203trawick# Create all windows, and pack them
75f5c2db254c0167a0e396254460de09b775d203trawick#
75f5c2db254c0167a0e396254460de09b775d203trawick
4f0358189bfa57b8e75bd6b94db264302a8f336amrumphproc labelentry {path text length} {
4f0358189bfa57b8e75bd6b94db264302a8f336amrumph frame $path
4f0358189bfa57b8e75bd6b94db264302a8f336amrumph label $path.label -text $text
5716f9c6daa92dde5f2f9d11ed63f7c9549c223atrawick entry $path.entry -width $length -relief sunken
5716f9c6daa92dde5f2f9d11ed63f7c9549c223atrawick pack $path.label -side left -expand y
5716f9c6daa92dde5f2f9d11ed63f7c9549c223atrawick pack $path.entry -side right -expand y
5716f9c6daa92dde5f2f9d11ed63f7c9549c223atrawick}
54d750a84a175d8e338880514d440773eb986b50covener
54d750a84a175d8e338880514d440773eb986b50covenerproc createwindows {} {
54d750a84a175d8e338880514d440773eb986b50covener #
54d750a84a175d8e338880514d440773eb986b50covener # Buttons
54d750a84a175d8e338880514d440773eb986b50covener #
54d750a84a175d8e338880514d440773eb986b50covener
54d750a84a175d8e338880514d440773eb986b50covener frame .buttons
54d750a84a175d8e338880514d440773eb986b50covener button .buttons.ok -command "ok" -text "Ok"
7a3aa12f0eda24793ee26d6a179bd53132e9dae8covener button .buttons.apply -command "writesettings" -text "Apply"
54d750a84a175d8e338880514d440773eb986b50covener button .buttons.cancel -command "cancel" -text "Cancel"
54d750a84a175d8e338880514d440773eb986b50covener button .buttons.quit -command "quit" -text "Quit"
83b50288fa7d306324bba68832011ea08f5c7832covener
4e30ef014533a7e93c92d88306291f5e49c9692ftrawick pack .buttons.ok .buttons.apply .buttons.cancel .buttons.quit \
83b50288fa7d306324bba68832011ea08f5c7832covener -side left -expand yes -pady 5
5f066f496cd9f20a2a701255bc67d44e7cb46daetrawick
5f066f496cd9f20a2a701255bc67d44e7cb46daetrawick #
5f066f496cd9f20a2a701255bc67d44e7cb46daetrawick # Bell settings
2e15620d724fb8e3a5be183b917359a2fd6e9468covener #
2e15620d724fb8e3a5be183b917359a2fd6e9468covener
2e15620d724fb8e3a5be183b917359a2fd6e9468covener frame .bell -relief raised -borderwidth 2
2e15620d724fb8e3a5be183b917359a2fd6e9468covener label .bell.label -text "Bell Settings"
1b988c41ee505962781d110a3e4c2c90f1ea0aa4covener scale .bell.vol \
1b988c41ee505962781d110a3e4c2c90f1ea0aa4covener -from 0 -to 100 -length 200 -tickinterval 20 \
1b988c41ee505962781d110a3e4c2c90f1ea0aa4covener -label "Volume (%)" -orient horizontal
1b988c41ee505962781d110a3e4c2c90f1ea0aa4covener
b8efdc95bec9cf089aa1be0bfd07d46aa1137a7acovener frame .bell.val
b8efdc95bec9cf089aa1be0bfd07d46aa1137a7acovener labelentry .bell.val.pit "Pitch (Hz)" 6
b8efdc95bec9cf089aa1be0bfd07d46aa1137a7acovener labelentry .bell.val.dur "Duration (ms)" 6
f06e7c4b1bce6b6491e5de0b7998d3f5696b293dchrisd pack .bell.val.pit -side left -padx 5
f06e7c4b1bce6b6491e5de0b7998d3f5696b293dchrisd pack .bell.val.dur -side right -padx 5
f06e7c4b1bce6b6491e5de0b7998d3f5696b293dchrisd pack .bell.label .bell.vol .bell.val -side top -expand yes
179565be4043d7e5f9161aa75271fa0a001866d9covener
179565be4043d7e5f9161aa75271fa0a001866d9covener #
179565be4043d7e5f9161aa75271fa0a001866d9covener # Keyboard settings
111436a32ba1254291e4883292fb116d15fe8f64covener #
fce4949fb0b309a5744afcd503c6ed2d35621ee2covener
fce4949fb0b309a5744afcd503c6ed2d35621ee2covener frame .kbd -relief raised -borderwidth 2
fce4949fb0b309a5744afcd503c6ed2d35621ee2covener
fce4949fb0b309a5744afcd503c6ed2d35621ee2covener label .kbd.label -text "Keyboard Repeat Settings"
7b7430e701e9a31ce809da7c220bb8dfcf68c86etrawick
7b7430e701e9a31ce809da7c220bb8dfcf68c86etrawick frame .kbd.val
7b7430e701e9a31ce809da7c220bb8dfcf68c86etrawick checkbutton .kbd.val.onoff \
ccc20788c1e5fc973f36df634399c89acb70deaejerenkrantz -text "On" \
ccc20788c1e5fc973f36df634399c89acb70deaejerenkrantz -onvalue "on" -offvalue "off" -variable kbdrep \
ccc20788c1e5fc973f36df634399c89acb70deaejerenkrantz -relief flat
273e512f20f262e5e2aa8e0e83371d1929fb76adjkaluza scale .kbd.val.cli \
273e512f20f262e5e2aa8e0e83371d1929fb76adjkaluza -from 0 -to 100 -length 200 -tickinterval 20 \
273e512f20f262e5e2aa8e0e83371d1929fb76adjkaluza -label "Click Volume (%)" -orient horizontal
efe780dcf13b2b95effabf897d694d8f23feac74trawick pack .kbd.val.onoff -side left -expand yes -fill both
fe83f60b41477b14a37edcfcd1f7f5c5a1ebfe44minfrin pack .kbd.val.cli -side left -expand yes
fe83f60b41477b14a37edcfcd1f7f5c5a1ebfe44minfrin
fe83f60b41477b14a37edcfcd1f7f5c5a1ebfe44minfrin pack .kbd.label -side top -expand yes
993d1261a278d7322bccef219101220b7b4fb8c5jkaluza pack .kbd.val -side top -expand yes -pady 2 -fill x
993d1261a278d7322bccef219101220b7b4fb8c5jkaluza
993d1261a278d7322bccef219101220b7b4fb8c5jkaluza #
ba050a6f942b9fa0e81ed73437588005c569655ccovener # Mouse settings
ba050a6f942b9fa0e81ed73437588005c569655ccovener #
ba050a6f942b9fa0e81ed73437588005c569655ccovener
ba050a6f942b9fa0e81ed73437588005c569655ccovener frame .mouse -relief raised -borderwidth 2
135ddda3a989215d2bedbcf1529bfb269c3eda23niq
135ddda3a989215d2bedbcf1529bfb269c3eda23niq label .mouse.label -text "Mouse Settings"
135ddda3a989215d2bedbcf1529bfb269c3eda23niq frame .mouse.hor
001a44c352f89c9ec332ffd3e0a6927dcd19432chumbedooh labelentry .mouse.hor.acc "Acceleration" 3
001a44c352f89c9ec332ffd3e0a6927dcd19432chumbedooh labelentry .mouse.hor.thr "Threshold (pixels)" 3
001a44c352f89c9ec332ffd3e0a6927dcd19432chumbedooh
efe780dcf13b2b95effabf897d694d8f23feac74trawick pack .mouse.hor.acc -side left
793214f67dede32edfd9ee96c664ead04d175cbbjfclere pack .mouse.hor.thr -side right
cc5a4a08dc9783fcbc52ce86f11e01c281a43810minfrin
9b0076ddd1103e5fa9c1f9bafde4b06ce244fbaecovener pack .mouse.label -side top
9b0076ddd1103e5fa9c1f9bafde4b06ce244fbaecovener pack .mouse.hor -side top -expand yes
9b0076ddd1103e5fa9c1f9bafde4b06ce244fbaecovener
249d09d51808cb7981af99762c3b3736ca126cd5jkaluza #
249d09d51808cb7981af99762c3b3736ca126cd5jkaluza # Screen Saver settings
249d09d51808cb7981af99762c3b3736ca126cd5jkaluza #
249d09d51808cb7981af99762c3b3736ca126cd5jkaluza
56589be3d7a3e9343370df240010c6928cc78b39jkaluza frame .screen -relief raised -borderwidth 2
56589be3d7a3e9343370df240010c6928cc78b39jkaluza
56589be3d7a3e9343370df240010c6928cc78b39jkaluza label .screen.label -text "Screen-saver Settings"
77ca16c5676da23155311e13cee61e7eaba9fa3ejailletc frame .screen.val
77ca16c5676da23155311e13cee61e7eaba9fa3ejailletc
77ca16c5676da23155311e13cee61e7eaba9fa3ejailletc frame .screen.val.rb
77ca16c5676da23155311e13cee61e7eaba9fa3ejailletc radiobutton .screen.val.rb.blank \
f87299dab99bc04b51a6b8cad51b6795db862c0atrawick -variable screenblank -text "Blank" -relief flat \
f87299dab99bc04b51a6b8cad51b6795db862c0atrawick -value "blank" -variable screenbla
f87299dab99bc04b51a6b8cad51b6795db862c0atrawick radiobutton .screen.val.rb.pat \
4d12805e6c18253040223ea637acd6b3b3c18f60jorton -variable screenblank -text "Pattern" -relief flat \
4d12805e6c18253040223ea637acd6b3b3c18f60jorton -value "noblank" -variable screenbla
4d12805e6c18253040223ea637acd6b3b3c18f60jorton pack .screen.val.rb.blank .screen.val.rb.pat -side top -pady 2 -anchor w
85eacfc96a04547ef25aabbc06440039715084c2jorton frame .screen.val.le
85eacfc96a04547ef25aabbc06440039715084c2jorton labelentry .screen.val.le.tim "Timeout (s)" 5
e5d909f2b06bd880fb3675cd49363df981caa631trawick labelentry .screen.val.le.cyc "Cycle (s)" 5
a4df2cd1e1391575a327c2a90ba4315f805a0a78covener pack .screen.val.le.tim .screen.val.le.cyc -side top -pady 2 -anchor e
a4df2cd1e1391575a327c2a90ba4315f805a0a78covener
a4df2cd1e1391575a327c2a90ba4315f805a0a78covener pack .screen.val.rb .screen.val.le -side left
cb666b29f81df1d11d65002250153353568021fccovener
cb666b29f81df1d11d65002250153353568021fccovener pack .screen.label -side top
cb666b29f81df1d11d65002250153353568021fccovener pack .screen.val -side top -expand y
6a80c3c6f4b8ea7ba5e89402b8b779b09ce020e0covener
1c2cab00d988fc48cbe59032cf76cc0bab20d6f7covener #
6a80c3c6f4b8ea7ba5e89402b8b779b09ce020e0covener # Main window
75a230a728338d84dcfe81edd375352f34de22d0covener #
75a230a728338d84dcfe81edd375352f34de22d0covener
75a230a728338d84dcfe81edd375352f34de22d0covener pack .buttons -side top -fill both
1f50dc34ae069adeed20b2986e5ffdefa5c410e0covener pack .bell .kbd .mouse .screen -side top -fill both -ipady 5 -expand yes
1f50dc34ae069adeed20b2986e5ffdefa5c410e0covener
1f50dc34ae069adeed20b2986e5ffdefa5c410e0covener #
63a5ea80bddcc84a462e40f402b4f330e0e05411covener # Let the user resize our window
63a5ea80bddcc84a462e40f402b4f330e0e05411covener #
63a5ea80bddcc84a462e40f402b4f330e0e05411covener wm minsize . 10 10
63a5ea80bddcc84a462e40f402b4f330e0e05411covener}
65a4e663b82f8bce28ac22ab2edfd7502de36998sf
65a4e663b82f8bce28ac22ab2edfd7502de36998sf##############################################################################
65a4e663b82f8bce28ac22ab2edfd7502de36998sf# Main program
65a4e663b82f8bce28ac22ab2edfd7502de36998sf
c7de1955eb0eaeabf7042902476397692672d549sf#
74e7f6c55fd67b10cb400b3f6d1dc718a303d944minfrin# Listen what "xset" tells us...
74e7f6c55fd67b10cb400b3f6d1dc718a303d944minfrin#
74e7f6c55fd67b10cb400b3f6d1dc718a303d944minfrin
74e7f6c55fd67b10cb400b3f6d1dc718a303d944minfrinreadsettings
a511a29faf2ff7ead3b67680154a624effb31aafminfrin
a511a29faf2ff7ead3b67680154a624effb31aafminfrin#
a511a29faf2ff7ead3b67680154a624effb31aafminfrin# Create all windows
a511a29faf2ff7ead3b67680154a624effb31aafminfrin#
a511a29faf2ff7ead3b67680154a624effb31aafminfrin
63921358ef93fcb41bc71d9894221ba3d7fbb87bminfrincreatewindows
63921358ef93fcb41bc71d9894221ba3d7fbb87bminfrin
63921358ef93fcb41bc71d9894221ba3d7fbb87bminfrin#
deec48c67d4786bc77112ffbf3a4e70b931097edminfrin# Write xset parameters
6d601599d3d65df0410eae6e573e75b2dbfb1fb4minfrin#
6d601599d3d65df0410eae6e573e75b2dbfb1fb4minfrin
6d601599d3d65df0410eae6e573e75b2dbfb1fb4minfrindispsettings
6d601599d3d65df0410eae6e573e75b2dbfb1fb4minfrin
684e0cfc200f66287a93bbd1708d1dd8a92a7eefcovener#
684e0cfc200f66287a93bbd1708d1dd8a92a7eefcovener# Now, wait for user actions...
5c43d2fb853f84497b5ece2d414ef9484aa87e5fsf#
05a5a9c3e16f21566e1b61f4bd68025ce1b741ccjoes