… | |
… | |
39 | #include "rxvtutil.h" |
39 | #include "rxvtutil.h" |
40 | #include "rxvtperl.h" |
40 | #include "rxvtperl.h" |
41 | |
41 | |
42 | #include "perlxsi.c" |
42 | #include "perlxsi.c" |
43 | |
43 | |
44 | #if defined(HAVE_SCROLLBARS) || defined(MENUBAR) |
44 | #ifdef HAVE_SCROLLBARS |
45 | # define GRAB_CURSOR THIS->leftptr_cursor |
45 | # define GRAB_CURSOR THIS->leftptr_cursor |
46 | #else |
46 | #else |
47 | # define GRAB_CURSOR None |
47 | # define GRAB_CURSOR None |
48 | #endif |
48 | #endif |
49 | |
49 | |
… | |
… | |
440 | swap (perl_environ, environ); |
440 | swap (perl_environ, environ); |
441 | |
441 | |
442 | rxvt_pop_locale (); |
442 | rxvt_pop_locale (); |
443 | } |
443 | } |
444 | |
444 | |
|
|
445 | if (perl) |
|
|
446 | { |
445 | // runs outside of perls ENV |
447 | // runs outside of perls ENV |
446 | term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term"); |
448 | term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term"); |
447 | hv_store ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newHV ()), 0); |
449 | hv_store ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newHV ()), 0); |
|
|
450 | } |
448 | } |
451 | } |
449 | |
452 | |
450 | static void |
453 | static void |
451 | ungrab (rxvt_term *THIS) |
454 | ungrab (rxvt_term *THIS) |
452 | { |
455 | { |