paquette@cpsc.ucalgary.ca (Trevor Paquette) (01/18/89)
Awhile ago someone posted a fix to exchange the Caps lock/cntl
keys around. I took it and put it in a file called user.ps in
my home dir on a 4D/20. There is one problem with it. It works
just great when you first login, but after about 30 mins or
so the keyboard thinks that CNTL is ALWAYS down. This is also
in EVERY window on the workstation. I ca't get rid of it. I tried
pressing control and caps lock but to no avail.. anyone know
what gives?
Here is the user.ps file to look over again.
Trev
{
/CapsOn false def
/ControlOn false def
/eventhandler {
dup /Action get
exch /Name get
{
28420 { % Caps Lock
/DownTransition eq
{ /ControlOn true def }
{ /ControlOn false def } ifelse
}
28419 { % Control
/DownTransition eq
{ /CapsOn CapsOn not def } if
}
} case
2 CapsOn { /LampsOn } { /LampsOff } ifelse
keyboardcontrol
CapsOn { 1 } { -1 } ifelse 4
adjustkeyboardshiftstate
ControlOn { 1 } { -1 } ifelse 1
adjustkeyboardshiftstate
} def
createevent dup begin
/Name [ 28420 28419 ] def
end
expressinterest
{
awaitevent eventhandler
} loop
} fork pop
==============================================================================
Trevor Paquette/GraphicsLand, Calgary, Alberta
UUCP: uunet!{ubc-cs,utai,alberta}!calgary!paquette ICBM:51 03 N/114 05 W
Luminous beings we are, not this crude matter