Cross Reference: /xsrc/external/mit/xterm/dist/vttests/modify-keys.pl

Lines Matching refs:codeOf
115 sub codeOf($) {
137     my $code = &codeOf( $_[0] );
138     my $result = ( ( $code >= &codeOf("XK_KP_Space") )
139           and ( $code <= &codeOf("XK_KP_Equal") ) ) ? 1 : 0;
144     my $code = &codeOf( $_[0] );
151     my $code = &codeOf( $_[0] );
153       ( ( $code >= &codeOf("XK_Home") ) and ( $code < &codeOf("XK_Select") ) )
160     my $code = &codeOf( $_[0] );
162       ( ( $code >= &codeOf("XK_KP_F1") ) and ( $code <= &codeOf("XK_KP_F4") ) )
169     my $code = &codeOf( $_[0] );
171       ( ( $code >= &codeOf("XK_F1") ) and ( $code <= &codeOf("XK_F35") ) )
178     my $code = &codeOf( $_[0] );
180       ( ( $code >= &codeOf("XK_Select") ) and ( $code <= &codeOf("XK_Break") ) )
187     my $code   = &codeOf( $_[0] );
190                   ( $code >= &codeOf("XK_Shift_L") )
191               and ( $code <= &codeOf("XK_Hyper_R") )
193           or (  ( $code >= &codeOf("XK_ISO_Lock") )
194             and ( $code <= &codeOf("XK_ISO_Level5_Lock") ) )
195           or ( $code == &codeOf("XK_Mode_switch") )
196           or ( $code == &codeOf("XK_Num_Lock") )
206     my $code = &codeOf( $_[0] );
284     my $code   = &codeOf( $_[0] );
288     $code = &codeOf( $Shifted{ $_[0] } ) if ( &IsShift( $_[0], $state ) );
349     my $code   = &codeOf( $_[0] );
353           ( $code >= &codeOf("XK_ISO_Lock") and $code <= &codeOf("XK_Delete") )
359           ( $code >= &codeOf("XK_BackSpace") and $code <= &codeOf("XK_Delete") )
367     my $code   = &codeOf( $_[0] );
371           ( $code == &codeOf("XK_Tab") || $code == &codeOf("XK_ISO_Left_Tab") );
374         $result = ( $code == &codeOf("XK_Tab") ) ? 1 : 0;
390     my $code = &codeOf( $_[0] );
396     my $code   = &codeOf( $_[0] );
427             my $ch = chr &codeOf($code);
643     my $result = &codeOf($code);
723                 $map = &codeOf( $Shifted{$tmp} )