… | |
… | |
596 | setuv (root, xe->xmotion.root); |
596 | setuv (root, xe->xmotion.root); |
597 | setuv (subwindow, xe->xmotion.subwindow); |
597 | setuv (subwindow, xe->xmotion.subwindow); |
598 | setuv (time, xe->xmotion.time); |
598 | setuv (time, xe->xmotion.time); |
599 | setiv (x, xe->xmotion.x); |
599 | setiv (x, xe->xmotion.x); |
600 | setiv (y, xe->xmotion.y); |
600 | setiv (y, xe->xmotion.y); |
601 | setiv (row, xe->xmotion.y / term->fheight); |
601 | setiv (row, xe->xmotion.y / term->fheight + term->view_start); |
602 | setiv (col, xe->xmotion.x / term->fwidth); |
602 | setiv (col, xe->xmotion.x / term->fwidth); |
603 | setiv (x_root, xe->xmotion.x_root); |
603 | setiv (x_root, xe->xmotion.x_root); |
604 | setiv (y_root, xe->xmotion.y_root); |
604 | setiv (y_root, xe->xmotion.y_root); |
605 | setuv (state, xe->xmotion.state); |
605 | setuv (state, xe->xmotion.state); |
606 | |
606 | |
… | |
… | |
640 | break; |
640 | break; |
641 | } |
641 | } |
642 | |
642 | |
643 | break; |
643 | break; |
644 | |
644 | |
|
|
645 | case PropertyNotify: |
|
|
646 | setuv (window, xe->xproperty.window); |
|
|
647 | setuv (atom, xe->xproperty.atom); |
|
|
648 | setuv (time, xe->xproperty.time); |
|
|
649 | setiv (state, xe->xproperty.state); |
|
|
650 | break; |
|
|
651 | |
645 | case ClientMessage: |
652 | case ClientMessage: |
646 | setuv (window, xe->xclient.window); |
653 | setuv (window, xe->xclient.window); |
647 | setuv (message_type, xe->xclient.message_type); |
654 | setuv (message_type, xe->xclient.message_type); |
648 | setuv (format, xe->xclient.format); |
655 | setuv (format, xe->xclient.format); |
649 | setuv (l0, xe->xclient.data.l[0]); |
656 | setuv (l0, xe->xclient.data.l[0]); |
650 | setuv (l1, xe->xclient.data.l[1]); |
657 | setuv (l1, xe->xclient.data.l[1]); |
651 | setuv (l2, xe->xclient.data.l[2]); |
658 | setuv (l2, xe->xclient.data.l[2]); |
652 | setuv (l3, xe->xclient.data.l[3]); |
659 | setuv (l3, xe->xclient.data.l[3]); |
653 | setuv (l4, xe->xclient.data.l[4]); |
660 | setuv (l4, xe->xclient.data.l[4]); |
|
|
661 | break; |
654 | } |
662 | } |
655 | |
663 | |
656 | XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv))); |
664 | XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv))); |
657 | } |
665 | } |
658 | break; |
666 | break; |
… | |
… | |
1109 | rxvt_term::ModLevel3Mask () |
1117 | rxvt_term::ModLevel3Mask () |
1110 | ALIAS: |
1118 | ALIAS: |
1111 | ModLevel3Mask = 0 |
1119 | ModLevel3Mask = 0 |
1112 | ModMetaMask = 1 |
1120 | ModMetaMask = 1 |
1113 | ModNumLockMask = 2 |
1121 | ModNumLockMask = 2 |
|
|
1122 | current_screen = 3 |
1114 | CODE: |
1123 | CODE: |
1115 | switch (ix) |
1124 | switch (ix) |
1116 | { |
1125 | { |
1117 | case 0: RETVAL = THIS->ModLevel3Mask; break; |
1126 | case 0: RETVAL = THIS->ModLevel3Mask; break; |
1118 | case 1: RETVAL = THIS->ModMetaMask; break; |
1127 | case 1: RETVAL = THIS->ModMetaMask; break; |
1119 | case 2: RETVAL = THIS->ModNumLockMask; break; |
1128 | case 2: RETVAL = THIS->ModNumLockMask; break; |
|
|
1129 | case 3: RETVAL = THIS->current_screen; break; |
1120 | } |
1130 | } |
1121 | OUTPUT: |
1131 | OUTPUT: |
1122 | RETVAL |
1132 | RETVAL |
1123 | |
1133 | |
1124 | char * |
1134 | char * |
… | |
… | |
1581 | |
1591 | |
1582 | void |
1592 | void |
1583 | rxvt_term::scr_bell () |
1593 | rxvt_term::scr_bell () |
1584 | |
1594 | |
1585 | void |
1595 | void |
|
|
1596 | rxvt_term::scr_change_screen (int screen) |
|
|
1597 | |
|
|
1598 | void |
1586 | rxvt_term::scr_add_lines (SV *string) |
1599 | rxvt_term::scr_add_lines (SV *string) |
1587 | CODE: |
1600 | CODE: |
1588 | { |
1601 | { |
1589 | wchar_t *wstr = sv2wcs (string); |
1602 | wchar_t *wstr = sv2wcs (string); |
1590 | THIS->scr_add_lines (wstr, wcslen (wstr)); |
1603 | THIS->scr_add_lines (wstr, wcslen (wstr)); |
… | |
… | |
1738 | XUnmapWindow (rxvt_term *term, Window window) |
1751 | XUnmapWindow (rxvt_term *term, Window window) |
1739 | C_ARGS: term->display->display, window |
1752 | C_ARGS: term->display->display, window |
1740 | |
1753 | |
1741 | void |
1754 | void |
1742 | XMoveResizeWindow (rxvt_term *term, Window window, int x, int y, unsigned int width, unsigned int height) |
1755 | XMoveResizeWindow (rxvt_term *term, Window window, int x, int y, unsigned int width, unsigned int height) |
1743 | C_ARGS: term->display->display, (Window)window, x, y, width, height |
1756 | C_ARGS: term->display->display, window, x, y, width, height |
|
|
1757 | |
|
|
1758 | void |
|
|
1759 | rxvt_term::XChangeInput (Window window, U32 add_events, U32 del_events = 0) |
|
|
1760 | CODE: |
|
|
1761 | { |
|
|
1762 | XWindowAttributes attr; |
|
|
1763 | XGetWindowAttributes (THIS->display->display, window, &attr); |
|
|
1764 | XSelectInput (THIS->display->display, window, attr.your_event_mask | add_events & ~del_events); |
|
|
1765 | } |
1744 | |
1766 | |
1745 | void |
1767 | void |
1746 | rxvt_term::XTranslateCoordinates (Window src, Window dst, int x, int y) |
1768 | rxvt_term::XTranslateCoordinates (Window src, Window dst, int x, int y) |
1747 | PPCODE: |
1769 | PPCODE: |
1748 | { |
1770 | { |