CAPS LOCK <==> CONTROL hack?
Ken Chin-Purcell
ken at msc.EDU
Wed Oct 17 23:43:24 AEST 1990
Chris Anderson writes:
|> Could someone reveal the Magic Incantation...
/replacekeys { % origkeyvals_array changedkeyvals_array -> -
{
/changedvals exch def
/origvals exch def
/keysdict origvals length dict def
keysdict begin
0 1 origvals length 1 sub {
dup origvals exch get changedvals
3 2 roll get def
} for
end
createevent dup begin
/Name origvals def
/Priority 2 def
/Exclusivity true def
end
expressinterest
{
awaitevent dup dup begin
/Name get keysdict exch get /Name exch def
end
redistributeevent
} loop
} fork pop pop pop
} def
% lcap ctrl
[ 28420 ] [ 28419 ] replacekeys
--
-- Ken
More information about the Comp.sys.sgi
mailing list