… | |
… | |
419 | meta = ev.state & ModMetaMask; |
419 | meta = ev.state & ModMetaMask; |
420 | |
420 | |
421 | if (numlock_state || (ev.state & ModNumLockMask)) |
421 | if (numlock_state || (ev.state & ModNumLockMask)) |
422 | { |
422 | { |
423 | numlock_state = (ev.state & ModNumLockMask); |
423 | numlock_state = (ev.state & ModNumLockMask); |
424 | PrivMode ((!numlock_state), PrivMode_aplKP); |
424 | set_privmode (PrivMode_aplKP, !numlock_state); |
425 | } |
425 | } |
426 | |
426 | |
427 | kbuf[0] = 0; |
427 | kbuf[0] = 0; |
428 | |
428 | |
429 | #ifdef USE_XIM |
429 | #ifdef USE_XIM |
… | |
… | |
641 | } |
641 | } |
642 | #endif |
642 | #endif |
643 | |
643 | |
644 | if (keysym >= 0xFF00 && keysym <= 0xFFFF) |
644 | if (keysym >= 0xFF00 && keysym <= 0xFFFF) |
645 | { |
645 | { |
646 | bool kp = priv_modes & PrivMode_aplKP ? !shft : shft; |
646 | bool kp = priv_modes & PrivMode_aplKP ? !shft : shft; |
647 | unsigned int newlen = 1; |
647 | unsigned int newlen = 1; |
648 | |
648 | |
649 | switch (translate_keypad (keysym, kp)) |
649 | switch (translate_keypad (keysym, kp)) |
|
|
650 | { |
|
|
651 | #ifndef NO_BACKSPACE_KEY |
|
|
652 | case XK_BackSpace: |
|
|
653 | if (priv_modes & PrivMode_HaveBackSpace) |
|
|
654 | { |
|
|
655 | kbuf[0] = (!! (priv_modes & PrivMode_BackSpace) |
|
|
656 | ^ !!ctrl) ? '\b' : '\177'; |
|
|
657 | kbuf[1] = '\0'; |
|
|
658 | } |
|
|
659 | else |
|
|
660 | strcpy (kbuf, rs[Rs_backspace_key]); |
|
|
661 | break; |
|
|
662 | #endif |
|
|
663 | #ifndef NO_DELETE_KEY |
|
|
664 | case XK_Delete: |
|
|
665 | strcpy (kbuf, rs[Rs_delete_key]); |
|
|
666 | break; |
|
|
667 | #endif |
|
|
668 | case XK_Tab: |
|
|
669 | if (shft) |
|
|
670 | strcpy (kbuf, "\033[Z"); |
|
|
671 | else |
|
|
672 | { |
|
|
673 | #ifdef CTRL_TAB_MAKES_META |
|
|
674 | if (ctrl) |
|
|
675 | meta = 1; |
|
|
676 | #endif |
|
|
677 | #ifdef MOD4_TAB_MAKES_META |
|
|
678 | if (ev.state & Mod4Mask) |
|
|
679 | meta = 1; |
|
|
680 | #endif |
|
|
681 | newlen = 0; |
|
|
682 | } |
|
|
683 | break; |
|
|
684 | |
|
|
685 | case XK_Up: /* "\033[A" */ |
|
|
686 | case XK_Down: /* "\033[B" */ |
|
|
687 | case XK_Right: /* "\033[C" */ |
|
|
688 | case XK_Left: /* "\033[D" */ |
|
|
689 | strcpy (kbuf, "\033[Z"); |
|
|
690 | kbuf[2] = "DACB"[keysym - XK_Left]; |
|
|
691 | /* do Shift first */ |
|
|
692 | if (shft) |
|
|
693 | kbuf[2] = "dacb"[keysym - XK_Left]; |
|
|
694 | else if (ctrl) |
|
|
695 | { |
|
|
696 | kbuf[1] = 'O'; |
|
|
697 | kbuf[2] = "dacb"[keysym - XK_Left]; |
|
|
698 | } |
|
|
699 | else if (priv_modes & PrivMode_aplCUR) |
|
|
700 | kbuf[1] = 'O'; |
|
|
701 | break; |
|
|
702 | |
|
|
703 | case XK_KP_Enter: |
|
|
704 | /* allow shift to override */ |
|
|
705 | if (kp) |
|
|
706 | { |
|
|
707 | strcpy (kbuf, "\033OM"); |
|
|
708 | break; |
|
|
709 | } |
|
|
710 | |
|
|
711 | /* FALLTHROUGH */ |
|
|
712 | |
|
|
713 | case XK_Return: |
|
|
714 | if (priv_modes & PrivMode_LFNL) |
|
|
715 | { |
|
|
716 | kbuf[0] = '\015'; |
|
|
717 | kbuf[1] = '\012'; |
|
|
718 | kbuf[2] = '\0'; |
|
|
719 | } |
|
|
720 | else |
|
|
721 | { |
|
|
722 | kbuf[0] = '\015'; |
|
|
723 | kbuf[1] = '\0'; |
|
|
724 | } |
|
|
725 | break; |
|
|
726 | |
|
|
727 | case XK_KP_F1: /* "\033OP" */ |
|
|
728 | case XK_KP_F2: /* "\033OQ" */ |
|
|
729 | case XK_KP_F3: /* "\033OR" */ |
|
|
730 | case XK_KP_F4: /* "\033OS" */ |
|
|
731 | strcpy (kbuf, "\033OP"); |
|
|
732 | kbuf[2] += (keysym - XK_KP_F1); |
|
|
733 | break; |
|
|
734 | |
|
|
735 | case XK_KP_Multiply: /* "\033Oj" : "*" */ |
|
|
736 | case XK_KP_Add: /* "\033Ok" : "+" */ |
|
|
737 | case XK_KP_Separator: /* "\033Ol" : "," */ |
|
|
738 | case XK_KP_Subtract: /* "\033Om" : "-" */ |
|
|
739 | case XK_KP_Decimal: /* "\033On" : "." */ |
|
|
740 | case XK_KP_Divide: /* "\033Oo" : "/" */ |
|
|
741 | case XK_KP_0: /* "\033Op" : "0" */ |
|
|
742 | case XK_KP_1: /* "\033Oq" : "1" */ |
|
|
743 | case XK_KP_2: /* "\033Or" : "2" */ |
|
|
744 | case XK_KP_3: /* "\033Os" : "3" */ |
|
|
745 | case XK_KP_4: /* "\033Ot" : "4" */ |
|
|
746 | case XK_KP_5: /* "\033Ou" : "5" */ |
|
|
747 | case XK_KP_6: /* "\033Ov" : "6" */ |
|
|
748 | case XK_KP_7: /* "\033Ow" : "7" */ |
|
|
749 | case XK_KP_8: /* "\033Ox" : "8" */ |
|
|
750 | case XK_KP_9: /* "\033Oy" : "9" */ |
|
|
751 | /* allow shift to override */ |
|
|
752 | if (kp) |
|
|
753 | { |
|
|
754 | strcpy (kbuf, "\033Oj"); |
|
|
755 | kbuf[2] += (keysym - XK_KP_Multiply); |
|
|
756 | } |
|
|
757 | else |
|
|
758 | { |
|
|
759 | kbuf[0] = ('*' + (keysym - XK_KP_Multiply)); |
|
|
760 | kbuf[1] = '\0'; |
|
|
761 | } |
|
|
762 | break; |
|
|
763 | |
|
|
764 | default: |
650 | { |
765 | { |
651 | #ifndef NO_BACKSPACE_KEY |
|
|
652 | case XK_BackSpace: |
|
|
653 | if (priv_modes & PrivMode_HaveBackSpace) |
|
|
654 | { |
|
|
655 | kbuf[0] = (!! (priv_modes & PrivMode_BackSpace) |
|
|
656 | ^ !!ctrl) ? '\b' : '\177'; |
|
|
657 | kbuf[1] = '\0'; |
|
|
658 | } |
|
|
659 | else |
|
|
660 | strcpy (kbuf, rs[Rs_backspace_key]); |
|
|
661 | break; |
|
|
662 | #endif |
|
|
663 | #ifndef NO_DELETE_KEY |
|
|
664 | case XK_Delete: |
|
|
665 | strcpy (kbuf, rs[Rs_delete_key]); |
|
|
666 | break; |
|
|
667 | #endif |
|
|
668 | case XK_Tab: |
|
|
669 | if (shft) |
|
|
670 | strcpy (kbuf, "\033[Z"); |
|
|
671 | else |
|
|
672 | { |
|
|
673 | #ifdef CTRL_TAB_MAKES_META |
|
|
674 | if (ctrl) |
|
|
675 | meta = 1; |
|
|
676 | #endif |
|
|
677 | #ifdef MOD4_TAB_MAKES_META |
|
|
678 | if (ev.state & Mod4Mask) |
|
|
679 | meta = 1; |
|
|
680 | #endif |
|
|
681 | newlen = 0; |
|
|
682 | } |
|
|
683 | break; |
|
|
684 | |
|
|
685 | case XK_Up: /* "\033[A" */ |
|
|
686 | case XK_Down: /* "\033[B" */ |
|
|
687 | case XK_Right: /* "\033[C" */ |
|
|
688 | case XK_Left: /* "\033[D" */ |
|
|
689 | strcpy (kbuf, "\033[Z"); |
|
|
690 | kbuf[2] = "DACB"[keysym - XK_Left]; |
|
|
691 | /* do Shift first */ |
|
|
692 | if (shft) |
|
|
693 | kbuf[2] = "dacb"[keysym - XK_Left]; |
|
|
694 | else if (ctrl) |
|
|
695 | { |
|
|
696 | kbuf[1] = 'O'; |
|
|
697 | kbuf[2] = "dacb"[keysym - XK_Left]; |
|
|
698 | } |
|
|
699 | else if (priv_modes & PrivMode_aplCUR) |
|
|
700 | kbuf[1] = 'O'; |
|
|
701 | break; |
|
|
702 | |
|
|
703 | case XK_KP_Enter: |
|
|
704 | /* allow shift to override */ |
|
|
705 | if (kp) |
|
|
706 | { |
|
|
707 | strcpy (kbuf, "\033OM"); |
|
|
708 | break; |
|
|
709 | } |
|
|
710 | |
|
|
711 | /* FALLTHROUGH */ |
|
|
712 | |
|
|
713 | case XK_Return: |
|
|
714 | if (priv_modes & PrivMode_LFNL) |
|
|
715 | { |
|
|
716 | kbuf[0] = '\015'; |
|
|
717 | kbuf[1] = '\012'; |
|
|
718 | kbuf[2] = '\0'; |
|
|
719 | } |
|
|
720 | else |
|
|
721 | { |
|
|
722 | kbuf[0] = '\015'; |
|
|
723 | kbuf[1] = '\0'; |
|
|
724 | } |
|
|
725 | break; |
|
|
726 | |
|
|
727 | case XK_KP_F1: /* "\033OP" */ |
|
|
728 | case XK_KP_F2: /* "\033OQ" */ |
|
|
729 | case XK_KP_F3: /* "\033OR" */ |
|
|
730 | case XK_KP_F4: /* "\033OS" */ |
|
|
731 | strcpy (kbuf, "\033OP"); |
|
|
732 | kbuf[2] += (keysym - XK_KP_F1); |
|
|
733 | break; |
|
|
734 | |
|
|
735 | case XK_KP_Multiply: /* "\033Oj" : "*" */ |
|
|
736 | case XK_KP_Add: /* "\033Ok" : "+" */ |
|
|
737 | case XK_KP_Separator: /* "\033Ol" : "," */ |
|
|
738 | case XK_KP_Subtract: /* "\033Om" : "-" */ |
|
|
739 | case XK_KP_Decimal: /* "\033On" : "." */ |
|
|
740 | case XK_KP_Divide: /* "\033Oo" : "/" */ |
|
|
741 | case XK_KP_0: /* "\033Op" : "0" */ |
|
|
742 | case XK_KP_1: /* "\033Oq" : "1" */ |
|
|
743 | case XK_KP_2: /* "\033Or" : "2" */ |
|
|
744 | case XK_KP_3: /* "\033Os" : "3" */ |
|
|
745 | case XK_KP_4: /* "\033Ot" : "4" */ |
|
|
746 | case XK_KP_5: /* "\033Ou" : "5" */ |
|
|
747 | case XK_KP_6: /* "\033Ov" : "6" */ |
|
|
748 | case XK_KP_7: /* "\033Ow" : "7" */ |
|
|
749 | case XK_KP_8: /* "\033Ox" : "8" */ |
|
|
750 | case XK_KP_9: /* "\033Oy" : "9" */ |
|
|
751 | /* allow shift to override */ |
|
|
752 | if (kp) |
|
|
753 | { |
|
|
754 | strcpy (kbuf, "\033Oj"); |
|
|
755 | kbuf[2] += (keysym - XK_KP_Multiply); |
|
|
756 | } |
|
|
757 | else |
|
|
758 | { |
|
|
759 | kbuf[0] = ('*' + (keysym - XK_KP_Multiply)); |
|
|
760 | kbuf[1] = '\0'; |
|
|
761 | } |
|
|
762 | break; |
|
|
763 | |
|
|
764 | default: |
|
|
765 | { |
|
|
766 | int param = map_function_key (keysym); |
766 | int param = map_function_key (keysym); |
767 | if (param > 0) |
767 | if (param > 0) |
768 | sprintf (kbuf,"\033[%d~", param); |
768 | sprintf (kbuf,"\033[%d~", param); |
769 | else |
769 | else |
770 | newlen = 0; |
770 | newlen = 0; |
771 | } |
|
|
772 | break; |
|
|
773 | } |
771 | } |
|
|
772 | break; |
|
|
773 | } |
774 | |
774 | |
775 | if (newlen) |
775 | if (newlen) |
776 | len = strlen (kbuf); |
776 | len = strlen (kbuf); |
777 | |
777 | |
778 | /* |
778 | /* |
779 | * Pass meta for all function keys, if 'meta' option set |
779 | * Pass meta for all function keys, if 'meta' option set |
780 | */ |
780 | */ |
781 | #ifdef META8_OPTION |
781 | #ifdef META8_OPTION |
… | |
… | |
1645 | &unused_root, &unused_child, |
1645 | &unused_root, &unused_child, |
1646 | &unused_root_x, &unused_root_y, |
1646 | &unused_root_x, &unused_root_y, |
1647 | &ev.xbutton.x, &ev.xbutton.y, |
1647 | &ev.xbutton.x, &ev.xbutton.y, |
1648 | &unused_mask); |
1648 | &unused_mask); |
1649 | scr_move_to (scrollbar_position (ev.xbutton.y) - csrO, |
1649 | scr_move_to (scrollbar_position (ev.xbutton.y) - csrO, |
1650 | scrollbar_size ()); |
1650 | scrollBar.size ()); |
1651 | want_refresh = 1; |
1651 | want_refresh = 1; |
1652 | scrollbar_show (1); |
1652 | scrollbar_show (1); |
1653 | } |
1653 | } |
1654 | break; |
1654 | break; |
1655 | } |
1655 | } |
… | |
… | |
2010 | } |
2010 | } |
2011 | |
2011 | |
2012 | if (scrollBar.style == R_SB_XTERM |
2012 | if (scrollBar.style == R_SB_XTERM |
2013 | || scrollbar_above_slider (ev.y) |
2013 | || scrollbar_above_slider (ev.y) |
2014 | || scrollbar_below_slider (ev.y)) |
2014 | || scrollbar_below_slider (ev.y)) |
2015 | scr_move_to (scrollbar_position (ev.y) - csrO, scrollbar_size ()); |
2015 | scr_move_to (scrollbar_position (ev.y) - csrO, scrollBar.size ()); |
2016 | |
2016 | |
2017 | scrollBar.state = STATE_MOTION; |
2017 | scrollBar.state = STATE_MOTION; |
2018 | break; |
2018 | break; |
2019 | |
2019 | |
2020 | case Button1: |
2020 | case Button1: |
… | |
… | |
2043 | else |
2043 | else |
2044 | { |
2044 | { |
2045 | scr_page ((ev.button == Button1 ? DN : UP), |
2045 | scr_page ((ev.button == Button1 ? DN : UP), |
2046 | (nrow |
2046 | (nrow |
2047 | * scrollbar_position (ev.y) |
2047 | * scrollbar_position (ev.y) |
2048 | / scrollbar_size ())); |
2048 | / scrollBar.size ())); |
2049 | } |
2049 | } |
2050 | |
2050 | |
2051 | break; |
2051 | break; |
2052 | } |
2052 | } |
2053 | } |
2053 | } |
… | |
… | |
2564 | break; |
2564 | break; |
2565 | case 'Z': /* identify the terminal type */ |
2565 | case 'Z': /* identify the terminal type */ |
2566 | tt_printf ("\033/Z"); /* I am a VT100 emulating a VT52 */ |
2566 | tt_printf ("\033/Z"); /* I am a VT100 emulating a VT52 */ |
2567 | break; |
2567 | break; |
2568 | case '<': /* turn off VT52 mode */ |
2568 | case '<': /* turn off VT52 mode */ |
2569 | PrivMode (0, PrivMode_vt52); |
2569 | set_privmode (PrivMode_vt52, 0); |
2570 | break; |
2570 | break; |
2571 | case 'F': /* use special graphics character set */ |
2571 | case 'F': /* use special graphics character set */ |
2572 | case 'G': /* use regular character set */ |
2572 | case 'G': /* use regular character set */ |
2573 | /* unimplemented */ |
2573 | /* unimplemented */ |
2574 | break; |
2574 | break; |
… | |
… | |
2628 | scr_forwardindex (); |
2628 | scr_forwardindex (); |
2629 | break; |
2629 | break; |
2630 | #endif |
2630 | #endif |
2631 | case '=': |
2631 | case '=': |
2632 | case '>': |
2632 | case '>': |
2633 | PrivMode ((ch == '='), PrivMode_aplKP); |
2633 | set_privmode (PrivMode_aplKP, ch == '='); |
2634 | break; |
2634 | break; |
2635 | |
2635 | |
2636 | case C1_40: |
2636 | case C1_40: |
2637 | cmd_getc (); |
2637 | cmd_getc (); |
2638 | break; |
2638 | break; |
… | |
… | |
3541 | { |
3541 | { |
3542 | if (mode == 'r') |
3542 | if (mode == 'r') |
3543 | state = (SavedModes & bit) ? 1 : 0; /* no overlapping */ |
3543 | state = (SavedModes & bit) ? 1 : 0; /* no overlapping */ |
3544 | else |
3544 | else |
3545 | state = (mode == 't') ? ! (priv_modes & bit) : mode; |
3545 | state = (mode == 't') ? ! (priv_modes & bit) : mode; |
3546 | PrivMode (state, bit); |
3546 | set_privmode (bit, state); |
3547 | } |
3547 | } |
3548 | |
3548 | |
3549 | return state; |
3549 | return state; |
3550 | } |
3550 | } |
3551 | |
3551 | |
… | |
… | |
3649 | case 2: /* VT52 mode */ |
3649 | case 2: /* VT52 mode */ |
3650 | /* oddball mode. should be set regardless of set/reset |
3650 | /* oddball mode. should be set regardless of set/reset |
3651 | * parameter. Return from VT52 mode with an ESC < from |
3651 | * parameter. Return from VT52 mode with an ESC < from |
3652 | * within VT52 mode |
3652 | * within VT52 mode |
3653 | */ |
3653 | */ |
3654 | PrivMode (1, PrivMode_vt52); |
3654 | set_privmode (PrivMode_vt52, 1); |
3655 | break; |
3655 | break; |
3656 | case 3: /* 80/132 */ |
3656 | case 3: /* 80/132 */ |
3657 | if (priv_modes & PrivMode_132OK) |
3657 | if (priv_modes & PrivMode_132OK) |
3658 | { |
3658 | { |
3659 | scr_poweron (); |
3659 | scr_poweron (); |