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

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.17 by root, Tue Jan 3 01:45:03 2006 UTC vs.
Revision 1.22 by root, Tue Jan 3 19:10:54 2006 UTC

39 39
40=over 4 40=over 4
41 41
42=item selection 42=item selection
43 43
44Miscellaneous selection modifications. 44Intelligent selection. This etxension tries to be more intelligent when the user
45extends selections (double-click).
46
47It also offers the following bindable event:
45 48
46=over 4 49=over 4
47 50
48=item rot13 51=item rot13
49 52
52 URxvt.keysym.C-M-r: perl:selection:rot13 55 URxvt.keysym.C-M-r: perl:selection:rot13
53 56
54=back 57=back
55 58
56=item digital-clock 59=item digital-clock
60
61Displays a digital clock using the built-in overlay.
62
63=item example-refresh-hooks
57 64
58Displays a very simple digital clock in the upper right corner of the 65Displays a very simple digital clock in the upper right corner of the
59window. Illustrates overwriting the refresh callbacks to create your own 66window. Illustrates overwriting the refresh callbacks to create your own
60overlays or changes. 67overlays or changes.
61
62=item simple-overlay-clock
63
64Displays a digital clock using the built-in overlay (colorful, useless).
65 68
66=back 69=back
67 70
68=head2 General API Considerations 71=head2 General API Considerations
69 72
122requested from the server. The selection text can be queried and changed 125requested from the server. The selection text can be queried and changed
123by calling C<< $term->selection >>. 126by calling C<< $term->selection >>.
124 127
125Returning a true value aborts selection grabbing. It will still be hilighted. 128Returning a true value aborts selection grabbing. It will still be hilighted.
126 129
130=item on_sel_extend $term
131
132Called whenever the user tries to extend the selection (e.g. with a double
133click) and is either supposed to return false (normal operation), or
134should extend the selection itelf and return true to suppress the built-in
135processing.
136
137See the F<selection> example extension.
138
127=item on_focus_in $term 139=item on_focus_in $term
128 140
129Called whenever the window gets the keyboard focus, before urxvt does 141Called whenever the window gets the keyboard focus, before urxvt does
130focus in processing. 142focus in processing.
131 143
193correct place, e.g. on stderr of the connecting urxvtc client. 205correct place, e.g. on stderr of the connecting urxvtc client.
194 206
195=item $time = urxvt::NOW 207=item $time = urxvt::NOW
196 208
197Returns the "current time" (as per the event loop). 209Returns the "current time" (as per the event loop).
210
211=back
212
213=head2 RENDITION
214
215Rendition bitsets contain information about colour, font, font styles and
216similar information for each screen cell.
217
218The following "macros" deal with changes in rendition sets. You should
219never just create a bitset, you should always modify an existing one,
220as they contain important information required for correct operation of
221rxvt-unicode.
222
223=over 4
224
225=item $rend = urxvt::DEFAULT_RSTYLE
226
227Returns the default rendition, as used when the terminal is starting up or
228being reset. Useful as a base to start when creating renditions.
229
230=item $rend = urxvt::OVERLAY_RSTYLE
231
232Return the rendition mask used for overlays by default.
233
234=item $rendbit = urxvt::RS_Bold, RS_Italic, RS_Blink, RS_RVid, RS_Uline
235
236Return the bit that enabled bold, italic, blink, reverse-video and
237underline, respectively. To enable such a style, just logically OR it into
238the bitset.
239
240=item $foreground = urxvt::GET_BASEFG $rend
241
242=item $background = urxvt::GET_BASEBG $rend
243
244Return the foreground/background colour index, respectively.
245
246=item $rend = urxvt::SET_FGCOLOR ($rend, $new_colour)
247
248=item $rend = urxvt::SET_BGCOLOR ($rend, $new_colour)
249
250Replace the foreground/background colour in the rendition mask with the
251specified one.
252
253=item $value = urxvt::GET_CUSTOM ($rend)
254
255Return the "custom" value: Every rendition has 5 bits for use by
256extensions. They can be set and changed as you like and are initially
257zero.
258
259=item $rend = urxvt::SET_CUSTOM ($rend, $new_value)
260
261Change the custom value.
262
263=back
198 264
199=cut 265=cut
200 266
201package urxvt; 267package urxvt;
202 268
306 return 1 if $v->($term, @_); 372 return 1 if $v->($term, @_);
307 } 373 }
308 374
309 0 375 0
310} 376}
311
312=back
313 377
314=head2 The C<urxvt::term> Class 378=head2 The C<urxvt::term> Class
315 379
316=over 4 380=over 4
317 381
373 437
374=item $oldtext = $term->selection ([$newtext]) 438=item $oldtext = $term->selection ([$newtext])
375 439
376Return the current selection text and optionally replace it by C<$newtext>. 440Return the current selection text and optionally replace it by C<$newtext>.
377 441
378=item $term->scr_overlay ($x, $y, $text) 442#=item $term->overlay ($x, $y, $text)
379 443#
380Create a simple multi-line overlay box. See the next method for details. 444#Create a simple multi-line overlay box. See the next method for details.
381 445#
382=cut 446#=cut
383 447
384sub urxvt::term::scr_overlay { 448sub urxvt::term::scr_overlay {
449die;
385 my ($self, $x, $y, $text) = @_; 450 my ($self, $x, $y, $text) = @_;
386 451
387 my @lines = split /\n/, $text; 452 my @lines = split /\n/, $text;
388 453
389 my $w = 0; 454 my $w = 0;
393 458
394 $self->scr_overlay_new ($x, $y, $w, scalar @lines); 459 $self->scr_overlay_new ($x, $y, $w, scalar @lines);
395 $self->scr_overlay_set (0, $_, $lines[$_]) for 0.. $#lines; 460 $self->scr_overlay_set (0, $_, $lines[$_]) for 0.. $#lines;
396} 461}
397 462
398=item $term->scr_overlay_new ($x, $y, $width, $height) 463=item $term->overlay ($x, $y, $width, $height[, $rstyle[, $border]])
399 464
400Create a new (empty) overlay at the given position with the given 465Create a new (empty) overlay at the given position with the given
401width/height. A border will be put around the box. If either C<$x> or 466width/height. C<$rstyle> defines the initial rendition style
402C<$y> is negative, then this is counted from the right/bottom side, 467(default: C<OVERLAY_RSTYLE>).
403respectively.
404 468
405=item $term->scr_overlay_off 469If C<$border> is C<2> (default), then a decorative border will be put
470around the box.
406 471
407Switch the overlay off again. 472If either C<$x> or C<$y> is negative, then this is counted from the
473right/bottom side, respectively.
408 474
409=item $term->scr_overlay_set_char ($x, $y, $char, $rend = OVERLAY_RSTYLE) 475This method returns an urxvt::overlay object. The overlay will be visible
476as long as the perl object is referenced.
410 477
411Put a single character (specified numerically) at the given overlay 478The methods currently supported on C<urxvt::overlay> objects are:
412position.
413 479
480=over 4
481
414=item $term->scr_overlay_set ($x, $y, $text) 482=item $overlay->set ($x, $y, $text, $rend)
415 483
416Write a string at the given position into the overlay. 484Similar to C<< $term->ROW_t >> and C<< $term->ROW_r >> in that it puts
485text in rxvt-unicode's special encoding and an array of rendition values
486at a specific position inside the overlay.
487
488=item $overlay->hide
489
490If visible, hide the overlay, but do not destroy it.
491
492=item $overlay->show
493
494If hidden, display the overlay again.
495
496=back
417 497
418=item $cellwidth = $term->strwidth $string 498=item $cellwidth = $term->strwidth $string
419 499
420Returns the number of screen-cells this string would need. Correctly 500Returns the number of screen-cells this string would need. Correctly
421accounts for wide and combining characters. 501accounts for wide and combining characters.
466terminal line. The scrollback buffer starts at line C<-1> and extends to 546terminal line. The scrollback buffer starts at line C<-1> and extends to
467line C<< -$term->nsaved >>. 547line C<< -$term->nsaved >>.
468 548
469If C<$new_text> is specified, it will replace characters in the current 549If C<$new_text> is specified, it will replace characters in the current
470line, starting at column C<$start_col> (default C<0>), which is useful 550line, starting at column C<$start_col> (default C<0>), which is useful
471to replace only parts of a line. The font iindex in the rendition will 551to replace only parts of a line. The font index in the rendition will
472automatically be updated. 552automatically be updated.
473 553
474C<$text> is in a special encoding: tabs and wide characters that use more 554C<$text> is in a special encoding: tabs and wide characters that use more
475than one cell when displayed are padded with urxvt::NOCHAR characters 555than one cell when displayed are padded with urxvt::NOCHAR characters
476(C<chr 65535>). Characters with combining characters and other characters 556(C<chr 65535>). Characters with combining characters and other characters
490bitsets. Rendition bitsets contain information about colour, font, font 570bitsets. Rendition bitsets contain information about colour, font, font
491styles and similar information. See also C<< $term->ROW_t >>. 571styles and similar information. See also C<< $term->ROW_t >>.
492 572
493When setting rendition, the font mask will be ignored. 573When setting rendition, the font mask will be ignored.
494 574
495See the section on RENDITION, below. 575See the section on RENDITION, above.
496 576
497=item $length = $term->ROW_l ($row_number[, $new_length]) 577=item $length = $term->ROW_l ($row_number[, $new_length])
498 578
499Returns the number of screen cells that are in use ("the line length"). If 579Returns the number of screen cells that are in use ("the line length"). If
500it is C<-1>, then the line is part of a multiple-row logical "line", which 580it is C<-1>, then the line is part of a multiple-row logical "line", which
511Converts rxvt-unicodes text reprsentation into a perl string. See 591Converts rxvt-unicodes text reprsentation into a perl string. See
512C<< $term->ROW_t >> for details. 592C<< $term->ROW_t >> for details.
513 593
514=back 594=back
515 595
516=head2 RENDITION
517
518Rendition bitsets contain information about colour, font, font styles and
519similar information for each screen cell.
520
521The following "macros" deal with changes in rendition sets. You should
522never just create a bitset, you should always modify an existing one,
523as they contain important information required for correct operation of
524rxvt-unicode.
525
526=over 4
527
528=item $rend = urxvt::DEFAULT_RSTYLE
529
530Returns the default rendition, as used when the terminal is starting up or
531being reset. Useful as a base
532
533=back
534
535=cut
536
537=head2 The C<urxvt::timer> Class 596=head2 The C<urxvt::timer> Class
538 597
539This class implements timer watchers/events. Time is represented as a 598This class implements timer watchers/events. Time is represented as a
540fractional number of seconds since the epoch. Example: 599fractional number of seconds since the epoch. Example:
541 600
542 # create a digital clock display in upper right corner 601 $term->{overlay} = $term->overlay (-1, 0, 8, 1, urxvt::OVERLAY_RSTYLE, 0);
543 $term->{timer} = urxvt::timer 602 $term->{timer} = urxvt::timer
544 ->new 603 ->new
545 ->start (urxvt::NOW) 604 ->interval (1)
546 ->cb (sub { 605 ->cb (sub {
547 my ($timer) = @_;
548 my $time = $timer->at;
549 $timer->start ($time + 1);
550 $self->scr_overlay (-1, 0, 606 $term->{overlay}->set (0, 0,
551 POSIX::strftime "%H:%M:%S", localtime $time); 607 sprintf "%2d:%02d:%02d", (localtime urxvt::NOW)[2,1,0]);
552 }); 608 });
553 609
554=over 4 610=over 4
555 611
556=item $timer = new urxvt::timer 612=item $timer = new urxvt::timer
557 613
558Create a new timer object in stopped state. 614Create a new timer object in started state. It is scheduled to fire
615immediately.
559 616
560=item $timer = $timer->cb (sub { my ($timer) = @_; ... }) 617=item $timer = $timer->cb (sub { my ($timer) = @_; ... })
561 618
562Set the callback to be called when the timer triggers. 619Set the callback to be called when the timer triggers.
563 620
566Return the time this watcher will fire next. 623Return the time this watcher will fire next.
567 624
568=item $timer = $timer->set ($tstamp) 625=item $timer = $timer->set ($tstamp)
569 626
570Set the time the event is generated to $tstamp. 627Set the time the event is generated to $tstamp.
628
629=item $timer = $timer->interval ($interval)
630
631Normally (and when C<$interval> is C<0>), the timer will automatically
632stop after it has fired once. If C<$interval> is non-zero, then the timer
633is automatically rescheduled at the given intervals.
571 634
572=item $timer = $timer->start 635=item $timer = $timer->start
573 636
574Start the timer. 637Start the timer.
575 638

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines