Path: utzoo!attcan!uunet!cs.utexas.edu!samsung!zaphod.mps.ohio-state.edu!caen!umich!umeecs!msi.umn.edu!cs.umn.edu!uc!msc.EDU!ken
From: ken@msc.EDU (Ken Chin-Purcell)
Newsgroups: comp.sys.sgi
Subject: Re: CAPS LOCK <==> CONTROL hack?
Message-ID: <1990Oct17.084324@msc.EDU>
Date: 17 Oct 90 13:43:24 GMT
References: <CHRISA.90Oct16093615@beldar.ma30.bull.com>
Sender: news@uc.msc.umn.edu
Reply-To: ken@msc.umn.edu
Distribution: comp
Organization: Minnesota Supercomputer Center
Lines: 35

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