ÿþ/ /   A u t o r :   J a v i e r   M i n s k y ,   G a b r i e l   W e i n s t e i n  
 / /   F e c h a   d e   C r e a c i ó n :   1 0 / 0 1 / 2 0 0 6  
 / /   O b j e t i v o :   N o   p e r m i t e   l a   u t i l i z a c i o n   c i e r t a s   f u n c i o n e s   d e n t r o   d e   l a   p a g i n a ,   p o r   e j .   F 1 1 ,   c l i c k   d e r e c h o  
  
  
 k e y s   =   n e w   A r r a y ( ) ;  
 k e y s [ " f 1 1 2 " ]   =   ' f 1 ' ;  
 k e y s [ " f 1 1 3 " ]   =   ' f 2 ' ;  
 k e y s [ " f 1 1 4 " ]   =   ' f 3 ' ;  
 k e y s [ " f 1 1 5 " ]   =   ' f 4 ' ;  
 k e y s [ " f 1 1 6 " ]   =   ' f 5 ' ;  
 k e y s [ " f 1 1 7 " ]   =   ' f 6 ' ;  
 k e y s [ " f 1 1 8 " ]   =   ' f 7 ' ;  
 k e y s [ " f 1 1 9 " ]   =   ' f 8 ' ;  
 k e y s [ " f 1 2 0 " ]   =   ' f 9 ' ;  
 k e y s [ " f 1 2 1 " ]   =   ' f 1 0 ' ;  
 k e y s [ " f 1 2 2 " ]   =   ' f 1 1 ' ;  
 k e y s [ " f 1 2 3 " ]   =   ' f 1 2 ' ;  
  
 v a r   a s c i i B a c k s p a c e     =   8 ;  
 v a r   a s c i i A L T                 =   1 8 ;  
 v a r   a s c i i E n d                 =   3 5 ;  
 v a r   a s c i i H o m e               =   3 6 ;  
 v a r   a s c i i L e f t A r r o w     =   3 7 ;  
 v a r   a s c i i U p A r r o w         =   3 8 ;  
 v a r   a s c i i R i g h t A r r o w   =   3 9 ;  
 v a r   a s c i i D o w n A r r o w     =   4 0 ;  
 v a r   a s c i i M S                   =   9 2 ;  
 v a r   a s c i i V i e w               =   9 3 ;  
  
 v a r   a s c i i B a c k                 =   1 6 6 ;  
 v a r   a s c i i F w d                 =   1 6 7 ;  
 v a r   a s c i i W W W                 =   1 7 2 ;  
  
 v a r   a s c i i U p p e r A                 =   6 5 ;  
 v a r   a s c i i L o w e r A                 =   9 7 ;  
 v a r   a s c i i U p p e r C                 =   6 7 ;  
 v a r   a s c i i L o w e r C                 =   9 9 ;  
 v a r   a s c i i U p p e r V                 =   8 6 ;  
 v a r   a s c i i L o w e r V                 =   1 1 8 ;  
 v a r   a s c i i U p p e r X                 =   8 8 ;  
 v a r   a s c i i L o w e r X                 =   1 2 0 ;  
 v a r   a s c i i U p p e r Y                 =   8 9 ;  
 v a r   a s c i i L o w e r Y                 =   1 2 1 ;  
 v a r   a s c i i U p p e r Z                 =   9 0 ;  
 v a r   a s c i i L o w e r Z                 =   1 2 2 ;  
  
 v a r   a s c i i U p p e r Q                 =   8 1 ;  
 v a r   a s c i i L o w e r Q                 =   1 1 3 ;  
 v a r   a s c i i N u m b e r 2         =   5 0 ;  
 v a r   a s c i i P A D 2                 =   9 8 ;  
  
 v a r   a s c i i A r r o b a   =   6 4 ;  
  
 i s N N   =   d o c u m e n t . l a y e r s   ?   1   :   0 ;  
 i f ( i s N N ) {    
         d o c u m e n t . c a p t u r e E v e n t s ( E v e n t . M O U S E D O W N ) ;  
         d o c u m e n t . c a p t u r e E v e n t s ( E v e n t . K E Y P R E S S ) ;  
 }  
  
 d o c u m e n t . o n c o n t e x t m e n u   =   n o C o n t e x t ;  
 d o c u m e n t . o n k e y p r e s s         =   n o C o n t e x t K e y ;  
 d o c u m e n t . o n m o u s e d o w n       =   n o C l i c k ;  
 d o c u m e n t . o n m o u s e u p           =   n o C l i c k ;  
  
 f u n c t i o n   g o T o D o w n ( ) {  
         i f   ( t y p e o f   w i n d o w . e v e n t   ! =   ' u n d e f i n e d ' ) {  
                 w i n d o w . d o c u m e n t . o n k e y d o w n   =   f u n c t i o n ( )  
                 {  
                         / /   C a p t u r e   a n d   r e m a p   F - k e y  
                         i f ( w i n d o w . e v e n t   & &   k e y s [ " f " + w i n d o w . e v e n t . k e y C o d e ] ) {  
                                 s a v e C o d e = w i n d o w . e v e n t . k e y C o d e ;  
                                 w i n d o w . e v e n t . k e y C o d e   =   5 0 5 ;                 / / a s s i n g   t h e   k e y c o d e   5 0 5  
                         }  
                         i f ( w i n d o w . e v e n t   & &   w i n d o w . e v e n t . k e y C o d e   = =   5 0 5 )  
                                 r e t u r n   f a l s e ;   / /   M u s t   r e t u r n   f a l s e   o r   t h e   b r o w s e r   w i l l   e x e c u t e   o l d   c o d e  
  
                         i f   ( e v e n t . a l t K e y )  
                                 i f   ( e v e n t . a l t L e f t )  
                                         r e t u r n   f a l s e ;  
                                 e l s e  
                                         r e t u r n   t r u e ;  
  
                         i f   ( e v e n t . c t r l K e y )  
                                 i f   ( ! t e c l a P e r m i t i d a C T R L ( e v e n t . k e y C o d e ) )  
                                         r e t u r n   f a l s e ;  
                          
                         v a r   E v e n t S t a t u s   =   e v e n t . s r c E l e m e n t . t a g N a m e . t o U p p e r C a s e ( ) ;  
                         i f   ( E v e n t S t a t u s   = =   ' I N P U T '   | |   E v e n t S t a t u s   = =   ' T E X T A R E A ' )  
                                 r e t u r n   e v e n t . k e y C o d e ;  
                         e l s e {  
                                 i f   ( e v e n t . k e y C o d e   = =   a s c i i B a c k s p a c e )         r e t u r n   f a l s e ;  
                                 i f   ( e v e n t . k e y C o d e   = =   a s c i i M S )                         r e t u r n   f a l s e ;  
                                 i f   ( e v e n t . k e y C o d e   = =   a s c i i V i e w )                         r e t u r n   f a l s e ;  
  
                                 / / t e c l a s   a t r a s ,   h o m e   y   a d e l a n t e   d e l   t e c l a d o  
                                 i f   ( e v e n t . k e y C o d e   = =   a s c i i B a c k )                         r e t u r n   f a l s e ;  
                                 i f   ( e v e n t . k e y C o d e   = =   a s c i i F w d )                         r e t u r n   f a l s e ;  
                                 i f   ( e v e n t . k e y C o d e   = =   a s c i i W W W )                         r e t u r n   f a l s e ;  
                         }  
                 }  
         }  
 }  
  
 f u n c t i o n   t e c l a P e r m i t i d a C T R L ( k e y C o d e ) {  
         / / a ,   A  
         i f   ( k e y C o d e   = =   a s c i i U p p e r A )   r e t u r n   t r u e ;  
         i f   ( k e y C o d e   = =   a s c i i L o w e r A )   r e t u r n   t r u e ;  
         / / c ,   C  
         i f   ( k e y C o d e   = =   a s c i i U p p e r C )   r e t u r n   t r u e ;  
         i f   ( k e y C o d e   = =   a s c i i L o w e r C )   r e t u r n   t r u e ;  
         / / x ,   X  
         i f   ( k e y C o d e   = =   a s c i i U p p e r X )   r e t u r n   t r u e ;  
         i f   ( k e y C o d e   = =   a s c i i L o w e r X )   r e t u r n   t r u e ;  
         / / v ,   V  
         i f   ( k e y C o d e   = =   a s c i i U p p e r V )   r e t u r n   t r u e ;  
         i f   ( k e y C o d e   = =   a s c i i L o w e r V )   r e t u r n   t r u e ;  
         / / y ,   Y  
         i f   ( k e y C o d e   = =   a s c i i U p p e r Y )   r e t u r n   t r u e ;  
         i f   ( k e y C o d e   = =   a s c i i L o w e r Y )   r e t u r n   t r u e ;  
         / / z ,   Z  
         i f   ( k e y C o d e   = =   a s c i i U p p e r Z )   r e t u r n   t r u e ;  
         i f   ( k e y C o d e   = =   a s c i i L o w e r Z )   r e t u r n   t r u e ;  
  
         / / e n d ,   h o m e  
         i f   ( k e y C o d e   = =   a s c i i E n d )   r e t u r n   t r u e ;  
         i f   ( k e y C o d e   = =   a s c i i H o m e )   r e t u r n   t r u e ;  
  
         / / f l e c h i t a s  
         i f   ( k e y C o d e   = =   a s c i i L e f t A r r o w )         r e t u r n   t r u e ;  
         i f   ( k e y C o d e   = =   a s c i i U p A r r o w )         r e t u r n   t r u e ;  
         i f   ( k e y C o d e   = =   a s c i i R i g h t A r r o w )   r e t u r n   t r u e ;  
         i f   ( k e y C o d e   = =   a s c i i D o w n A r r o w )         r e t u r n   t r u e ;  
  
         r e t u r n   f a l s e ;  
 }  
  
 f u n c t i o n   t e c l a P e r m i t i d a A L T ( k e y C o d e ) {  
         i f   ( k e y C o d e   = =   a s c i i A L T )   r e t u r n   t r u e ;  
  
         / / q ,   Q  
         i f   ( k e y C o d e   = =   a s c i i U p p e r Q )   r e t u r n   t r u e ;  
         i f   ( k e y C o d e   = =   a s c i i L o w e r Q )   r e t u r n   t r u e ;  
         i f   ( k e y C o d e   = =   a s c i i A r r o b a )   r e t u r n   t r u e ;  
          
         / / 2 ,   2  
         i f   ( k e y C o d e   = =   a s c i i N u m b e r 2 )   r e t u r n   t r u e ;  
         i f   ( k e y C o d e   = =   a s c i i P A D 2 )   r e t u r n   t r u e ;  
  
         r e t u r n   f a l s e ;  
 }  
  
 f u n c t i o n   n o C o n t e x t ( ) { r e t u r n   f a l s e ; }  
  
 f u n c t i o n   n o C o n t e x t K e y ( e )   {  
         i f   ( n a v i g a t o r . a p p N a m e   = =   " M i c r o s o f t   I n t e r n e t   E x p l o r e r " ) {  
                 t m p   =   S t r i n g . f r o m C h a r C o d e ( w i n d o w . e v e n t . k e y C o d e ) ;  
                 v a r   E v e n t S t a t u s   =   ' ' ;  
         } e l s e {  
                 t m p   =   e . w h i c h ;  
  
                 i f   ( e . c h a r C o d e   = =   0 ) {  
                         / / t e c l a s   d e s d e   f 1   h a s t a   f 1 2  
                         i f   ( k e y s [ " f " + e . k e y C o d e ] )         r e t u r n   f a l s e ;  
  
                         i f   ( e . k e y C o d e   = =   a s c i i M S )       r e t u r n   f a l s e ;  
                         i f   ( e . k e y C o d e   = =   a s c i i V i e w )   r e t u r n   f a l s e ;  
  
                         / / t e c l a s   a t r a s ,   h o m e   y   a d e l a n t e   d e l   t e c l a d o  
                         i f   ( e . k e y C o d e   = =   a s c i i B a c k )   r e t u r n   f a l s e ;  
                         i f   ( e . k e y C o d e   = =   a s c i i F w d )     r e t u r n   f a l s e ;  
                         i f   ( e . k e y C o d e   = =   a s c i i W W W )     r e t u r n   f a l s e ;  
  
                         / / e n d ,   h o m e  
                         i f   ( e . k e y C o d e   = =   a s c i i E n d )   r e t u r n   t r u e ;  
                         i f   ( e . k e y C o d e   = =   a s c i i H o m e )   r e t u r n   t r u e ;  
  
                         / / f l e c h i t a s  
                         i f   ( e . k e y C o d e   = =   a s c i i L e f t A r r o w )         r e t u r n   t r u e ;  
                         i f   ( e . k e y C o d e   = =   a s c i i U p A r r o w )         r e t u r n   t r u e ;  
                         i f   ( e . k e y C o d e   = =   a s c i i R i g h t A r r o w )   r e t u r n   t r u e ;  
                         i f   ( e . k e y C o d e   = =   a s c i i D o w n A r r o w )         r e t u r n   t r u e ;  
                 }  
  
                 i f   ( e . a l t K e y )  
                         i f   ( ! t e c l a P e r m i t i d a A L T ( t m p ) )         r e t u r n   f a l s e ;  
  
                 i f   ( e . c t r l K e y )  
                         i f   ( ! t e c l a P e r m i t i d a C T R L ( t m p ) )         r e t u r n   f a l s e ;  
  
                 v a r   E v e n t S t a t u s   =   e . t a r g e t . n o d e N a m e . t o U p p e r C a s e ( ) ;  
                 i f   ( E v e n t S t a t u s   ! =   ' I N P U T '   & &   E v e n t S t a t u s   ! =   ' T E X T A R E A ' )  
                         i f   ( t m p   = =   a s c i i B a c k s p a c e )         r e t u r n   f a l s e ;  
         }  
         r e t u r n ;  
 }  
  
 f u n c t i o n   n o C l i c k ( e )   {  
         i f   ( d o c u m e n t . a l l )  
                 i f   ( e v e n t . b u t t o n   >   1 )         r e t u r n   f a l s e ;  
         i f   ( d o c u m e n t . l a y e r s )  
                 i f   ( e . w h i c h   = =   3 )                 r e t u r n   f a l s e ;  
 } 
