"VSDEFS" "VSUDEFS"> > > > REPLY?: "TUPLE" STUFF "AUX" (CHN: ) (RES: 0)) 1>> > >>> .REPLY?> )>) (T > LEN: NRES) >)> ) (T )>)> )> > 1> > >) (T > >)> > >) (T )>>)>> > LEN: VS:VS "AUX" (BUF:STRING ) (CT ) NOBJ:STRING RES NRES (CH: )) *7*> 6> >) (T >> >)> <* 4 >> >>) (T ) (T >>>)> STRING>>)> > >> >> )> > )> > .RES)>) (T > > .RES)>> ) (BUF:STRING ) (CT:FIX )) > .CT> )>) (T)>> ) (NOT-REALLY?: <>) "AUX" (CH: ) (ANY? <>) (P:UVECTOR ,RECEIVE-PACKET) (REQ ) CODE) >>) (T >)> > ,X-ERROR> ; "Error packet" .REQ>> ; "Out-of-band error" ; "Report, then try again" ) (T ; "Error in response to request, so return it" >) FALSE>)>) (<==? .CODE ,X-REPLY> ) (<==? .RACT ERROR>) (<==? .RACT T> .P) (<==? .RACT STRING> ) ST:STRING) > >>) (> .LEN> >>) ( .LEN> .LEN>>>)> .ST>) (<==? .RACT 1> ) (T )>) (.RACT ) (T > ) (T ; "This hack enables optimization of mouse-moved events" )>)>)>) (<=? .RES #FALSE(4)> ) (.NOT-REALLY? .ANY?) (T )>>> > DISMISS>) (T > .VS>)>>  (FREE-WINDOW-EVENTS) (FREE-RECTANGLES) > > )> ) W: ML KIND:FIX (OUT <>) TL: ME:MOUSE-EVENT WE:WINDOW-EVENT MB:FIX VW:VSW NME OWE:) > ,KEY-RELEASED> .PE>)> >>> >> > >)>) (T >>)> > .MOUSE-GRABBED?>>> :VSW>>>>> > .SW> > )> >> )>>)> % -1>>>> > ) (T > <1 .TL .OUT> )>) ( .PE>)>) ( <==? .KIND ,BUTTON-RELEASED>> > *377*>> ,ME-RIGHT-PRESSED) (<1? .MB> ,ME-MIDDLE-PRESSED) (T ,ME-LEFT-PRESSED)>) (<0? .MB> ,ME-RIGHT-RELEASED) (<1? .MB> ,ME-MIDDLE-RELEASED) (T ,ME-LEFT-RELEASED)>> -8>> > > > > .ME>>) ( > <==? ,ME-MOVED>> > >) ( <==? .KIND ,ENTER-WINDOW> <==? .KIND ,LEAVE-WINDOW>> *377*> 2> ; "Intermediate event when moving around hierarchy" .PE>)> > ,ME-MOVED) (<==? .KIND ,ENTER-WINDOW> ,ME-ENTER-WINDOW) (T ,ME-LEAVE-WINDOW)>> -8>> > > > > .ME>>) (<==? .KIND ,UNMAP-WINDOW> > :VSW <>> .WE>>) ( <==? .KIND ,EXPOSE-REGION> <==? .KIND ,EXPOSE-COPY>> >> ,VWM-UNSEEN>> >>) (> ,VWM-UNSEEN>> >>)> ; "Discard exposed events for new windows..." .PE>)> >>>> >) (T )> > > )> > >> > > > >) (T )> >) (<==? .KIND ,EXPOSE-COPY> > >)> >) (T ; "Remember this guy in case we need to catch some events later" >)> >) (T .WE>>)>)> >> ) (T >)>)>)>> ) (LL:LIST ,FREE-RECTANGLES) REC:WE-RECTANGLE CELL:LIST) WE-RECTANGLE>>)>) (T > > .TOP> )> >> > 1>> ,FREE-RECTANGLES> )>> >> INPUT-WAITING>>> ) )) >)> .WID> >)> >>> T) "AUX" L TL (W: <>) FROB TCHN VW:VSW) >> > >) ( T>> >) (T >)>)> >> )> > FIX CHARACTER> > .FROB) ( ,ME-MOVED> <==? .FROB >> T>)> > >)> > >) (T <1 ,FREE-MOUSE-EVENTS>> .FROB> )>) ( >> >:VSW> ; "Handle window events for icons" > <1 ,FREE-WINDOW-EVENTS>> .FROB> > )> .FROB> T> >)> >) (T > <1 ,FREE-WINDOW-EVENTS>> .FROB> )>)> .FROB>> 0 (1)] MOUSE-EVENT>) (T > > > .ME)>> ) (T > > > .WE)>> ) (MAPS: ) MAP KEY: NUM:FIX) <>) ( > ; "Throw away shift key events" <>) (T > >) (T >)> -1>> :VECTOR>> :VECTOR .KEYNO>>> >> >> >) (T >)>) (>> >) (>> >) (T >)> ) (T <- .NUM>)>)>)>>