[ViewVC] Diff of: cvs/rxvt-unicode/src/rxvtperl.xs

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.128 by root, Sat Dec 26 09:42:16 2009 UTC vs.
Revision 1.130 by sf-exg, Sun Feb 14 19:34:42 2010 UTC

           THIS->selection.screen = screen;
         OUTPUT:
         RETVAL
 void
-rxvt_term::selection_clear ()
+rxvt_term::selection_clear (bool clipboard = false)
 void
 rxvt_term::selection_make (Time eventtime, bool rect = false)
 	CODE:
         THIS->selection.op = SELECTION_CONT;
         THIS->selection.rect = rect;
         THIS->selection_make (eventtime);
 int
-rxvt_term::selection_grab (Time eventtime)
+rxvt_term::selection_grab (Time eventtime, bool clipboard = false)
 void
-rxvt_term::selection (SV *newtext = 0)
+rxvt_term::selection (SV *newtext = 0, bool clipboard = false)
         PPCODE:
 {
+        wchar_t * &text   = clipboard ? THIS->selection.clip_text : THIS->selection.text;
+        unsigned int &len = clipboard ? THIS->selection.clip_len  : THIS->selection.len;
         if (GIMME_V != G_VOID)
-          XPUSHs (THIS->selection.text
+          XPUSHs (text
-                  ? sv_2mortal (wcs2sv (THIS->selection.text, THIS->selection.len))
+                  ? sv_2mortal (wcs2sv (text, len))
                   : &PL_sv_undef);
         if (newtext)
           {
-            free (THIS->selection.text);
+            free (text);
-            THIS->selection.text = sv2wcs (newtext);
+            text = sv2wcs (newtext);
-            THIS->selection.len = wcslen (THIS->selection.text);
+            len = wcslen (text);
           }
 }
 char
 rxvt_term::cur_charset ()

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