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.54 by root, Sun Jan 8 01:59:29 2006 UTC

… …
37 37
38 @@RXVT_NAME@@ -pe <extensionname> 38 @@RXVT_NAME@@ -pe <extensionname>
39 39
40=over 4 40=over 4
41 41
42=item selection 42=item selection (enabled by default)
43 43
44Intelligent selection. This extension tries to be more intelligent when 44Intelligent selection. This extension tries to be more intelligent when
45the user extends selections (double-click). Right now, it tries to select 45the user extends selections (double-click). Right now, it tries to select
46urls and complete shell-quoted arguments, which is very convenient, too, 46urls and complete shell-quoted arguments, which is very convenient, too,
47if your F<ls> supports C<--quoting-style=shell>. 47if your F<ls> supports C<--quoting-style=shell>.
… …
55Rot-13 the selection when activated. Used via keyboard trigger: 55Rot-13 the selection when activated. Used via keyboard trigger:
56 56
57 URxvt.keysym.C-M-r: perl:selection:rot13 57 URxvt.keysym.C-M-r: perl:selection:rot13
58 58
59=back 59=back
60
61=item option-popup (enabled by default)
62
63Binds a popup menu to Ctrl-Button3 that lets you toggle (some) options at
64runtime.
60 65
61=item digital-clock 66=item digital-clock
62 67
63Displays a digital clock using the built-in overlay. 68Displays a digital clock using the built-in overlay.
64 69
… …
331 336
332=item $time = urxvt::NOW 337=item $time = urxvt::NOW
333 338
334Returns the "current time" (as per the event loop). 339Returns the "current time" (as per the event loop).
335 340
341=item urxvt::CurrentTime
342
343=item urxvt::ShiftMask, LockMask, ControlMask, Mod1Mask, Mod2Mask,
344Mod3Mask, Mod4Mask, Mod5Mask, Button1Mask, Button2Mask, Button3Mask,
345Button4Mask, Button5Mask, AnyModifier
346
347Various constants for use in X events.
348
336=back 349=back
337 350
338=head2 RENDITION 351=head2 RENDITION
339 352
340Rendition bitsets contain information about colour, font, font styles and 353Rendition bitsets contain information about colour, font, font styles and
… …
389 402
390=cut 403=cut
391 404
392package urxvt; 405package urxvt;
393 406
407use utf8;
394use strict; 408use strict;
395use Scalar::Util (); 409use Scalar::Util ();
410use List::Util ();
396 411
397our $TERM; 412our $TERM;
398our @HOOKNAME; 413our @HOOKNAME;
414our %OPTION;
399our $LIBDIR; 415our $LIBDIR;
400 416
401BEGIN { 417BEGIN {
402 urxvt->bootstrap; 418 urxvt->bootstrap;
403 419
… …
469 local $TERM = shift; 485 local $TERM = shift;
470 my $htype = shift; 486 my $htype = shift;
471 487
472 if ($htype == 0) { # INIT 488 if ($htype == 0) { # INIT
473 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); 489 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");
490
491 my %want_ext;
474 492
475 for my $ext (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { 493 for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
494 if ($_ eq "default") {
495 $want_ext{$_}++ for qw(selection option-popup);
496 } elsif (/^-(.*)$/) {
497 delete $want_ext{$1};
498 } else {
499 $want_ext{$_}++;
500 }
501 }
502
503 for my $ext (keys %want_ext) {
476 my @files = grep -f $_, map "$_/$ext", @dirs; 504 my @files = grep -f $_, map "$_/$ext", @dirs;
477 505
478 if (@files) { 506 if (@files) {
479 register_package extension_package $files[0]; 507 register_package extension_package $files[0];
480 } else { 508 } else {
… …
554 582
555=item $term->destroy 583=item $term->destroy
556 584
557Destroy the terminal object (close the window, free resources etc.). 585Destroy the terminal object (close the window, free resources etc.).
558 586
587=item $isset = $term->option ($optval[, $set])
588
589Returns true if the option specified by C<$optval> is enabled, and
590optionally change it. All option values are stored by name in the hash
591C<%urxvt::OPTION>. Options not enabled in this binary are not in the hash.
592
593Here is a a likely non-exhaustive list of option names, please see the
594source file F</src/optinc.h> to see the actual list:
595
596 borderLess console cursorBlink cursorUnderline hold iconic insecure
597 intensityStyles jumpScroll loginShell mapAlert meta8 mouseWheelScrollPage
598 pastableTabs pointerBlank reverseVideo scrollBar scrollBar_floating
599 scrollBar_right scrollTtyKeypress scrollTtyOutput scrollWithBuffer
600 secondaryScreen secondaryScroll skipBuiltinGlyphs transparent
601 tripleclickwords utmpInhibit visualBell
602
559=item $value = $term->resource ($name[, $newval]) 603=item $value = $term->resource ($name[, $newval])
560 604
561Returns the current resource value associated with a given name and 605Returns the current resource value associated with a given name and
562optionally sets a new value. Setting values is most useful in the C<init> 606optionally sets a new value. Setting values is most useful in the C<init>
563hook. Unset resources are returned and accepted as C<undef>. 607hook. Unset resources are returned and accepted as C<undef>.
… …
572 616
573Please note that resource strings will currently only be freed when the 617Please note that resource strings will currently only be freed when the
574terminal is destroyed, so changing options frequently will eat memory. 618terminal is destroyed, so changing options frequently will eat memory.
575 619
576Here is a a likely non-exhaustive list of resource names, not all of which 620Here 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 621are supported in every build, please see the source file F</src/rsinc.h>
578list: 622to see the actual list:
579 623
580 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont 624 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont
581 borderLess color cursorBlink cursorUnderline cutchars delete_key 625 borderLess color cursorBlink cursorUnderline cutchars delete_key
582 display_name embed ext_bwidth fade font geometry hold iconName 626 display_name embed ext_bwidth fade font geometry hold iconName
583 imFont imLocale inputMethod insecure int_bwidth intensityStyles 627 imFont imLocale inputMethod insecure int_bwidth intensityStyles
… …
776 820
777=item $lines_in_scrollback = $term->nsaved 821=item $lines_in_scrollback = $term->nsaved
778 822
779Return various integers describing terminal characteristics. 823Return various integers describing terminal characteristics.
780 824
825=item $modifiermask = $term->ModLevel3Mask
826
827=item $modifiermask = $term->ModMetaMask
828
829=item $modifiermask = $term->ModNumLockMask
830
831Return the modifier masks corresponding to the "ISO Level 3 Shift" (often
832AltGr), the meta key (often Alt) and the num lock key, if applicable.
833
781=item $view_start = $term->view_start ([$newvalue]) 834=item $view_start = $term->view_start ([$newvalue])
782 835
783Returns the negative row number of the topmost line. Minimum value is 836Returns the negative row number of the topmost line. Minimum value is
784C<0>, which displays the normal terminal contents. Larger values scroll 837C<0>, which displays the normal terminal contents. Larger values scroll
785this many lines into the scrollback buffer. 838this many lines into the scrollback buffer.
… …
977package urxvt::popup; 1030package urxvt::popup;
978 1031
979sub add_item { 1032sub add_item {
980 my ($self, $item) = @_; 1033 my ($self, $item) = @_;
981 1034
1035 $item->{rend}{normal} = "\x1b[0;30;47m" unless exists $item->{rend}{normal};
1036 $item->{rend}{hover} = "\x1b[0;30;46m" unless exists $item->{rend}{hover};
1037 $item->{rend}{active} = "\x1b[m" unless exists $item->{rend}{active};
1038
1039 $item->{render} ||= sub { $_[0]{text} };
1040
982 push @{ $self->{item} }, $item; 1041 push @{ $self->{item} }, $item;
1042}
1043
1044sub add_separator {
1045 my ($self, $sep) = @_;
1046
1047 $sep ||= "═";
1048
1049 $self->add_item ({
1050 rend => { normal => "\x1b[0;30;47m", hover => "\x1b[0;30;47m", active => "\x1b[0;30;47m" },
1051 text => "",
1052 render => sub { $sep x $urxvt::TERM->ncol },
1053 activate => sub { },
1054 });
1055}
1056
1057sub add_title {
1058 my ($self, $title) = @_;
1059
1060 $self->add_item ({
1061 rend => { normal => "\x1b[38;5;11;44m", hover => "\x1b[38;5;11;44m", active => "\x1b[38;5;11;44m" },
1062 text => $title,
1063 activate => sub { },
1064 });
983} 1065}
984 1066
985sub add_button { 1067sub add_button {
986 my ($self, $text, $cb) = @_; 1068 my ($self, $text, $cb) = @_;
987 1069
988 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb }); 1070 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb});
1071}
1072
1073sub add_toggle {
1074 my ($self, $text, $cb, $value) = @_;
1075
1076 my $item; $item = {
1077 type => "button",
1078 text => " $text",
1079 value => $value,
1080 render => sub { ($item->{value} ? "* " : " ") . $text },
1081 activate => sub { $cb->($item->{value} = !$item->{value}); },
1082 };
1083
1084 $self->add_item ($item);
989} 1085}
990 1086
991sub show { 1087sub show {
992 my ($self) = @_; 1088 my ($self) = @_;
993 1089
994 local $urxvt::popup::self = $self; 1090 local $urxvt::popup::self = $self;
995 1091
996 urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0, 1092 urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0,
997 "--transient-for" => $self->{term}->parent, 1093 "--transient-for" => $self->{term}->parent,
998 "-pe" => "urxvt_popup") 1094 "-pe" => "urxvt-popup")
999 or die "unable to create popup window\n"; 1095 or die "unable to create popup window\n";
1000} 1096}
1001 1097
1002sub DESTROY { 1098sub DESTROY {
1003 my ($self) = @_; 1099 my ($self) = @_;

Diff Legend

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