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.45 by root, Sat Jan 7 20:23:52 2006 UTC vs.
Revision 1.49 by root, Sun Jan 8 00:07:18 2006 UTC

… …
331 331
332=item $time = urxvt::NOW 332=item $time = urxvt::NOW
333 333
334Returns the "current time" (as per the event loop). 334Returns the "current time" (as per the event loop).
335 335
336=item urxvt::CurrentTime
337
338=item urxvt::ShiftMask, LockMask, ControlMask, Mod1Mask, Mod2Mask,
339Mod3Mask, Mod4Mask, Mod5Mask, Button1Mask, Button2Mask, Button3Mask,
340Button4Mask, Button5Mask, AnyModifier
341
342Various constants for use in X events.
343
336=back 344=back
337 345
338=head2 RENDITION 346=head2 RENDITION
339 347
340Rendition bitsets contain information about colour, font, font styles and 348Rendition bitsets contain information about colour, font, font styles and
… …
389 397
390=cut 398=cut
391 399
392package urxvt; 400package urxvt;
393 401
402use utf8;
394use strict; 403use strict;
395use Scalar::Util (); 404use Scalar::Util ();
405use List::Util ();
396 406
397our $TERM; 407our $TERM;
398our @HOOKNAME; 408our @HOOKNAME;
409our %OPTION;
399our $LIBDIR; 410our $LIBDIR;
400 411
401BEGIN { 412BEGIN {
402 urxvt->bootstrap; 413 urxvt->bootstrap;
403 414
… …
469 local $TERM = shift; 480 local $TERM = shift;
470 my $htype = shift; 481 my $htype = shift;
471 482
472 if ($htype == 0) { # INIT 483 if ($htype == 0) { # INIT
473 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); 484 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");
474 485
475 for my $ext (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { 486 my @ext = (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2);
476 my @files = grep -f $_, map "$_/$ext", @dirs;
477 487
478 if (@files) { 488 while (@ext) {
479 register_package extension_package $files[0]; 489 my $ext = shift @ext;
490 if ($ext eq "default") {
491 unshift @ext, qw(selection);
480 } else { 492 } else {
493 my @files = grep -f $_, map "$_/$ext", @dirs;
494
495 if (@files) {
496 register_package extension_package $files[0];
497 } else {
481 warn "perl extension '$ext' not found in perl library search path\n"; 498 warn "perl extension '$ext' not found in perl library search path\n";
499 }
482 } 500 }
483 } 501 }
484 } 502 }
485 503
486 $retval = undef; 504 $retval = undef;
… …
554 572
555=item $term->destroy 573=item $term->destroy
556 574
557Destroy the terminal object (close the window, free resources etc.). 575Destroy the terminal object (close the window, free resources etc.).
558 576
577=item $isset = $term->option ($optval[, $set])
578
579Returns true if the option specified by C<$optval> is enabled, and
580optionally change it. All option values are stored by name in the hash
581C<%urxvt::OPTION>. Options not enabled in this binary are not in the hash.
582
583Here is a a likely non-exhaustive list of option names, please see the
584source file F</src/optinc.h> to see the actual list:
585
586 borderLess console cursorBlink cursorUnderline hold iconic insecure
587 intensityStyles jumpScroll loginShell mapAlert meta8 mouseWheelScrollPage
588 pastableTabs pointerBlank reverseVideo scrollBar scrollBar_floating
589 scrollBar_right scrollTtyKeypress scrollTtyOutput scrollWithBuffer
590 secondaryScreen secondaryScroll skipBuiltinGlyphs transparent
591 tripleclickwords utmpInhibit visualBell
592
559=item $value = $term->resource ($name[, $newval]) 593=item $value = $term->resource ($name[, $newval])
560 594
561Returns the current resource value associated with a given name and 595Returns the current resource value associated with a given name and
562optionally sets a new value. Setting values is most useful in the C<init> 596optionally sets a new value. Setting values is most useful in the C<init>
563hook. Unset resources are returned and accepted as C<undef>. 597hook. Unset resources are returned and accepted as C<undef>.
… …
572 606
573Please note that resource strings will currently only be freed when the 607Please note that resource strings will currently only be freed when the
574terminal is destroyed, so changing options frequently will eat memory. 608terminal is destroyed, so changing options frequently will eat memory.
575 609
576Here is a a likely non-exhaustive list of resource names, not all of which 610Here is a a likely non-exhaustive list of resource names, not all of which
577are supported in every build, please see the source to see the actual 611are supported in every build, please see the source file F</src/rsinc.h>
578list: 612to see the actual list:
579 613
580 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont 614 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont
581 borderLess color cursorBlink cursorUnderline cutchars delete_key 615 borderLess color cursorBlink cursorUnderline cutchars delete_key
582 display_name embed ext_bwidth fade font geometry hold iconName 616 display_name embed ext_bwidth fade font geometry hold iconName
583 imFont imLocale inputMethod insecure int_bwidth intensityStyles 617 imFont imLocale inputMethod insecure int_bwidth intensityStyles
… …
776 810
777=item $lines_in_scrollback = $term->nsaved 811=item $lines_in_scrollback = $term->nsaved
778 812
779Return various integers describing terminal characteristics. 813Return various integers describing terminal characteristics.
780 814
815=item $modifiermask = $term->ModLevel3Mask
816
817=item $modifiermask = $term->ModMetaMask
818
819=item $modifiermask = $term->ModNumLockMask
820
821Return the modifier masks corresponding to the "ISO Level 3 Shift" (often
822AltGr), the meta key (often Alt) and the num lock key, if applicable.
823
781=item $view_start = $term->view_start ([$newvalue]) 824=item $view_start = $term->view_start ([$newvalue])
782 825
783Returns the negative row number of the topmost line. Minimum value is 826Returns the negative row number of the topmost line. Minimum value is
784C<0>, which displays the normal terminal contents. Larger values scroll 827C<0>, which displays the normal terminal contents. Larger values scroll
785this many lines into the scrollback buffer. 828this many lines into the scrollback buffer.
… …
983} 1026}
984 1027
985sub add_button { 1028sub add_button {
986 my ($self, $text, $cb) = @_; 1029 my ($self, $text, $cb) = @_;
987 1030
988 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb }); 1031 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb,
1032 render => sub { $_[0]{text} },
1033 });
1034}
1035
1036sub add_toggle {
1037 my ($self, $text, $cb, $value) = @_;
1038
1039 my $item; $item = {
1040 type => "button",
1041 text => " $text",
1042 value => $value,
1043 render => sub { ($item->{value} ? "✔" : " ") . $text },
1044 activate => sub { $cb->($item->{value} = !$item->{value}); },
1045 };
1046
1047 $self->add_item ($item);
989} 1048}
990 1049
991sub show { 1050sub show {
992 my ($self) = @_; 1051 my ($self) = @_;
993 1052
994 local $urxvt::popup::self = $self; 1053 local $urxvt::popup::self = $self;
995 1054
996 urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0, 1055 urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0,
997 "--transient-for" => $self->{term}->parent, 1056 "--transient-for" => $self->{term}->parent,
998 "-pe" => "urxvt_popup") 1057 "-pe" => "urxvt-popup")
999 or die "unable to create popup window\n"; 1058 or die "unable to create popup window\n";
1000} 1059}
1001 1060
1002sub DESTROY { 1061sub DESTROY {
1003 my ($self) = @_; 1062 my ($self) = @_;

Diff Legend

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