ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/rxvtperl.xs
(Generate patch)

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.68 by root, Mon Jan 16 08:48:09 2006 UTC vs.
Revision 1.70 by root, Tue Jan 17 09:34:21 2006 UTC

… …
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
450static void 453static void
451ungrab (rxvt_term *THIS) 454ungrab (rxvt_term *THIS)
452{ 455{

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines