… | |
… | |
382 | } |
382 | } |
383 | |
383 | |
384 | rxvt_pop_locale (); |
384 | rxvt_pop_locale (); |
385 | } |
385 | } |
386 | |
386 | |
387 | if (perl) |
387 | if (perl && !term->perl.self) |
388 | { |
388 | { |
389 | // runs outside of perls ENV |
389 | // runs outside of perls ENV |
390 | term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term"); |
390 | term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term"); |
391 | hv_store ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newAV ()), 0); |
391 | hv_store ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, newRV_noinc ((SV *)newAV ()), 0); |
392 | hv_store ((HV *)SvRV ((SV *)term->perl.self), "_selection", 10, newRV_noinc ((SV *)newAV ()), 0); |
392 | hv_store ((HV *)SvRV ((SV *)term->perl.self), "_selection", 10, newRV_noinc ((SV *)newAV ()), 0); |
… | |
… | |
2032 | ############################################################################# |
2032 | ############################################################################# |
2033 | # fancy bg bloatstuff (TODO: should be moved up somewhere) |
2033 | # fancy bg bloatstuff (TODO: should be moved up somewhere) |
2034 | |
2034 | |
2035 | # TODO: ugly |
2035 | # TODO: ugly |
2036 | void |
2036 | void |
2037 | rxvt_term::get_geometry () |
2037 | rxvt_term::background_geometry (bool border = false) |
2038 | PPCODE: |
2038 | PPCODE: |
2039 | EXTEND (SP, 4); |
2039 | EXTEND (SP, 4); |
2040 | PUSHs (sv_2mortal (newSViv (THIS->parent_x))); |
2040 | PUSHs (sv_2mortal (newSViv (THIS->parent_x + (border ? THIS->window_vt_x : 0)))); |
2041 | PUSHs (sv_2mortal (newSViv (THIS->parent_y))); |
2041 | PUSHs (sv_2mortal (newSViv (THIS->parent_y + (border ? THIS->window_vt_y : 0)))); |
2042 | PUSHs (sv_2mortal (newSViv (THIS->szHint.width))); |
2042 | PUSHs (sv_2mortal (newSViv (border ? THIS->vt_width : THIS->szHint.width ))); |
2043 | PUSHs (sv_2mortal (newSViv (THIS->szHint.height))); |
2043 | PUSHs (sv_2mortal (newSViv (border ? THIS->vt_height : THIS->szHint.height))); |
2044 | |
2044 | |
2045 | #if HAVE_IMG |
2045 | #if HAVE_IMG |
2046 | |
2046 | |
2047 | #if 0 |
2047 | #if 0 |
2048 | |
2048 | |