… | |
… | |
871 | for (rxvt_term **t = rxvt_term::termlist.begin (); t < rxvt_term::termlist.end (); t++) |
871 | for (rxvt_term **t = rxvt_term::termlist.begin (); t < rxvt_term::termlist.end (); t++) |
872 | if ((*t)->perl.self) |
872 | if ((*t)->perl.self) |
873 | PUSHs (sv_2mortal (newSVterm (*t))); |
873 | PUSHs (sv_2mortal (newSVterm (*t))); |
874 | } |
874 | } |
875 | |
875 | |
|
|
876 | IV |
|
|
877 | _new_selection_request (rxvt_term *term, int selnum, Time tm, Window win, Atom prop, SV *cb) |
|
|
878 | CODE: |
|
|
879 | rxvt_selection *req = new rxvt_selection (term->display, selnum, tm, win, prop, term); |
|
|
880 | req->cb_sv = newSVsv (cb); |
|
|
881 | RETVAL = (IV)req; |
|
|
882 | OUTPUT: |
|
|
883 | RETVAL |
|
|
884 | |
|
|
885 | void |
|
|
886 | _delete_selection_request (IV req_) |
|
|
887 | CODE: |
|
|
888 | rxvt_selection *req = (rxvt_selection *)req_; |
|
|
889 | delete req; |
|
|
890 | |
876 | MODULE = urxvt PACKAGE = urxvt::term |
891 | MODULE = urxvt PACKAGE = urxvt::term |
877 | |
892 | |
878 | SV * |
893 | SV * |
879 | _new (AV *env, AV *arg) |
894 | _new (AV *env, AV *arg) |
880 | CODE: |
895 | CODE: |