[ViewVC] Diff of: cvs/rxvt-unicode/src/urxvt.pm

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.44 by root, Sat Jan 7 19:29:17 2006 UTC vs.
Revision 1.68 by root, Mon Jan 9 20:00:31 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
44	Intelligent selection. This extension tries to be more intelligent when	44	Intelligent selection. This extension tries to be more intelligent when
45	the user extends selections (double-click). Right now, it tries to select	45	the user extends selections (double-click). Right now, it tries to select
46	urls and complete shell-quoted arguments, which is very convenient, too,	46	urls and complete shell-quoted arguments, which is very convenient, too,
47	if your F<ls> supports C<--quoting-style=shell>.	47	if your F<ls> supports C<--quoting-style=shell>.
…		…
55	Rot-13 the selection when activated. Used via keyboard trigger:	55	Rot-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
		63	Binds a popup menu to Ctrl-Button2 that lets you toggle (some) options at
		64	runtime.
		65
		66	=item selection-popup (enabled by default)
		67
		68	Binds a popup menu to Ctrl-Button3 that lets you convert the selection
		69	text into various other formats/action.
60		70
61	=item digital-clock	71	=item digital-clock
62		72
63	Displays a digital clock using the built-in overlay.	73	Displays a digital clock using the built-in overlay.
64		74
…		…
179	should extend the selection itelf and return true to suppress the built-in	189	should extend the selection itelf and return true to suppress the built-in
180	processing.	190	processing.
181		191
182	See the F<selection> example extension.	192	See the F<selection> example extension.
183		193
184	=item on_focus_in $term
185
186	Called whenever the window gets the keyboard focus, before urxvt does
187	focus in processing.
188
189	=item on_focus_out $term
190
191	Called wheneever the window loses keyboard focus, before urxvt does focus
192	out processing.
193
194	=item on_view_change $term, $offset	194	=item on_view_change $term, $offset
195		195
196	Called whenever the view offset changes, i..e the user or program	196	Called whenever the view offset changes, i..e the user or program
197	scrolls. Offset C<0> means display the normal terminal, positive values	197	scrolls. Offset C<0> means display the normal terminal, positive values
198	show this many lines of scrollback.	198	show this many lines of scrollback.
…		…
204	than the scroll back buffer or the terminal.	204	than the scroll back buffer or the terminal.
205		205
206	It is called before lines are scrolled out (so rows 0 .. min ($lines - 1,	206	It is called before lines are scrolled out (so rows 0 .. min ($lines - 1,
207	$nrow - 1) represent the lines to be scrolled out). C<$saved> is the total	207	$nrow - 1) represent the lines to be scrolled out). C<$saved> is the total
208	number of lines that will be in the scrollback buffer.	208	number of lines that will be in the scrollback buffer.
209
210	=item on_tty_activity $term NYI
211
212	Called whenever the program(s) running in the urxvt window send output.
213		209
214	=item on_osc_seq $term, $string	210	=item on_osc_seq $term, $string
215		211
216	Called whenever the B<ESC ] 777 ; string ST> command sequence (OSC =	212	Called whenever the B<ESC ] 777 ; string ST> command sequence (OSC =
217	operating system command) is processed. Cursor position and other state	213	operating system command) is processed. Cursor position and other state
…		…
261		257
262	Called whenever the user presses a key combination that has a	258	Called whenever the user presses a key combination that has a
263	C<perl:string> action bound to it (see description of the B<keysym>	259	C<perl:string> action bound to it (see description of the B<keysym>
264	resource in the @@RXVT_NAME@@(1) manpage).	260	resource in the @@RXVT_NAME@@(1) manpage).
265		261
		262	=item on_focus_in $term
		263
		264	Called whenever the window gets the keyboard focus, before rxvt-unicode
		265	does focus in processing.
		266
		267	=item on_focus_out $term
		268
		269	Called wheneever the window loses keyboard focus, before rxvt-unicode does
		270	focus out processing.
		271
266	=item on_key_press $term, $event, $octets	272	=item on_key_press $term, $event, $octets
267		273
268	=item on_key_release $term, $event	274	=item on_key_release $term, $event
269		275
270	=item on_button_press $term, $event	276	=item on_button_press $term, $event
271		277
272	=item on_button_release $term, $event	278	=item on_button_release $term, $event
273		279
274	=item on_motion_notify $term, $event	280	=item on_motion_notify $term, $event
		281
		282	=item on_map_notify $term, $event
		283
		284	=item on_unmap_notify $term, $event
275		285
276	Called whenever the corresponding X event is received for the terminal If	286	Called whenever the corresponding X event is received for the terminal If
277	the hook returns true, then the even will be ignored by rxvt-unicode.	287	the hook returns true, then the even will be ignored by rxvt-unicode.
278		288
279	The event is a hash with most values as named by Xlib (see the XEvent	289	The event is a hash with most values as named by Xlib (see the XEvent
…		…
323	that calls this function.	333	that calls this function.
324		334
325	Using this function has the advantage that its output ends up in the	335	Using this function has the advantage that its output ends up in the
326	correct place, e.g. on stderr of the connecting urxvtc client.	336	correct place, e.g. on stderr of the connecting urxvtc client.
327		337
		338	=item $is_safe = urxvt::safe
		339
		340	Returns true when it is safe to do potentially unsafe things, such as
		341	evaluating perl code specified by the user. This is true when urxvt was
		342	started setuid or setgid.
		343
328	=item $time = urxvt::NOW	344	=item $time = urxvt::NOW
329		345
330	Returns the "current time" (as per the event loop).	346	Returns the "current time" (as per the event loop).
		347
		348	=item urxvt::CurrentTime
		349
		350	=item urxvt::ShiftMask, LockMask, ControlMask, Mod1Mask, Mod2Mask,
		351	Mod3Mask, Mod4Mask, Mod5Mask, Button1Mask, Button2Mask, Button3Mask,
		352	Button4Mask, Button5Mask, AnyModifier
		353
		354	Various constants for use in X calls and event processing.
331		355
332	=back	356	=back
333		357
334	=head2 RENDITION	358	=head2 RENDITION
335		359
…		…
385		409
386	=cut	410	=cut
387		411
388	package urxvt;	412	package urxvt;
389		413
		414	use utf8;
390	use strict;	415	use strict;
391	use Scalar::Util ();	416	use Scalar::Util ();
		417	use List::Util ();
392		418
		419	our $VERSION = 1;
393	our $TERM;	420	our $TERM;
394	our @HOOKNAME;	421	our @HOOKNAME;
		422	our %OPTION;
395	our $LIBDIR;	423	our $LIBDIR;
396		424
397	BEGIN {	425	BEGIN {
398	urxvt->bootstrap;	426	urxvt->bootstrap;
399		427
…		…
402	my $msg = join "", @_;	430	my $msg = join "", @_;
403	$msg .= "\n"	431	$msg .= "\n"
404	unless $msg =~ /\n$/;	432	unless $msg =~ /\n$/;
405	urxvt::warn ($msg);	433	urxvt::warn ($msg);
406	};	434	};
		435
		436	delete $ENV{IFS};
		437	delete $ENV{CDPATH};
		438	delete $ENV{BASH_ENV};
		439	$ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin";
407	}	440	}
408		441
409	my @hook_count;	442	my @hook_count;
410	my $verbosity = $ENV{URXVT_PERL_VERBOSITY};	443	my $verbosity = $ENV{URXVT_PERL_VERBOSITY};
411		444
412	sub verbose {	445	sub verbose {
413	my ($level, $msg) = @_;	446	my ($level, $msg) = @_;
414	warn "$msg\n" if $level <= $verbosity;	447	warn "$msg\n" if $level <= $verbosity;
415	}	448	}
416		449
417	# find on_xxx subs in the package and register them
418	# as hooks
419	sub register_package($) {
420	my ($pkg) = @_;
421
422	for my $htype (0.. $#HOOKNAME) {
423	my $name = $HOOKNAME[$htype];
424
425	my $ref = $pkg->can ("on_" . lc $name)
426	or next;
427
428	$TERM->{_hook}[$htype]{$pkg} = $ref;
429	$hook_count[$htype]++
430	or set_should_invoke $htype, 1;
431	}
432	}
433
434	my $extension_pkg = "extension0000";	450	my $extension_pkg = "extension0000";
435	my %extension_pkg;	451	my %extension_pkg;
436		452
437	# load a single script into its own package, once only	453	# load a single script into its own package, once only
438	sub extension_package($) {	454	sub extension_package($) {
…		…
444	verbose 3, "loading extension '$path' into package '$pkg'";	460	verbose 3, "loading extension '$path' into package '$pkg'";
445		461
446	open my $fh, "<:raw", $path	462	open my $fh, "<:raw", $path
447	or die "$path: $!";	463	or die "$path: $!";
448		464
449	my $source = "package $pkg; use strict; use utf8;\n"	465	my $source = untaint "package $pkg; use strict; use utf8;\n"
450	. "use base urxvt::term::proxy::;\n"	466	. "use base urxvt::term::proxy::;\n"
451	. "#line 1 \"$path\"\n{\n"	467	. "#line 1 \"$path\"\n{\n"
452	. (do { local $/; <$fh> })	468	. (do { local $/; <$fh> })
453	. "\n};\n1";	469	. "\n};\n1";
454		470
…		…
465	local $TERM = shift;	481	local $TERM = shift;
466	my $htype = shift;	482	my $htype = shift;
467		483
468	if ($htype == 0) { # INIT	484	if ($htype == 0) { # INIT
469	my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");	485	my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");
		486
		487	my %ext_arg;
470		488
471	for my $ext (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {	489	for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
		490	if ($_ eq "default") {
		491	$ext_arg{$_} \|\|= [] for qw(selection option-popup selection-popup);
		492	} elsif (/^-(.*)$/) {
		493	delete $ext_arg{$1};
		494	} elsif (/^([^<]+)<(.*)>$/) {
		495	push @{ $ext_arg{$1} }, $2;
		496	} else {
		497	$ext_arg{$_} \|\|= [];
		498	}
		499	}
		500
		501	while (my ($ext, $argv) = each %ext_arg) {
472	my @files = grep -f $_, map "$_/$ext", @dirs;	502	my @files = grep -f $_, map "$_/$ext", @dirs;
473		503
474	if (@files) {	504	if (@files) {
475	register_package extension_package $files[0];	505	$TERM->register_package (extension_package $files[0], $argv);
476	} else {	506	} else {
477	warn "perl extension '$ext' not found in perl library search path\n";	507	warn "perl extension '$ext' not found in perl library search path\n";
478	}	508	}
479	}	509	}
		510
		511	eval "#line 1 \"--perl-eval resource/argument\"\n" . $TERM->resource ("perl_eval");
		512	warn $@ if $@;
480	}	513	}
481		514
482	$retval = undef;	515	$retval = undef;
483		516
484	if (my $cb = $TERM->{_hook}[$htype]) {	517	if (my $cb = $TERM->{_hook}[$htype]) {
…		…
486	if $verbosity >= 10;	519	if $verbosity >= 10;
487		520
488	keys %$cb;	521	keys %$cb;
489		522
490	while (my ($pkg, $cb) = each %$cb) {	523	while (my ($pkg, $cb) = each %$cb) {
491	eval {	524	$retval = eval { $cb->($TERM->{_pkg}{$pkg}, @_) }
492	$retval = $cb->(
493	$TERM->{_pkg}{$pkg} \|\|= do {
494	my $proxy = bless { }, $pkg;
495	Scalar::Util::weaken ($proxy->{term} = $TERM);
496	$proxy
497	},
498	@_,
499	) and last;	525	and last;
		526
		527	if ($@) {
		528	$TERM->ungrab; # better to lose the grab than the session
		529	warn $@;
500	};	530	}
501	warn $@ if $@;#d#
502	}	531	}
503	}	532	}
504		533
505	if ($htype == 1) { # DESTROY	534	if ($htype == 1) { # DESTROY
506	# remove hooks if unused	535	# remove hooks if unused
…		…
519	}	548	}
520		549
521	$retval	550	$retval
522	}	551	}
523		552
		553	# urxvt::term::proxy
		554
524	sub urxvt::term::proxy::AUTOLOAD {	555	sub urxvt::term::proxy::AUTOLOAD {
525	$urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/	556	$urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/
526	or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable";	557	or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable";
527		558
528	eval qq{	559	eval qq{
…		…
534	} or die "FATAL: unable to compile method forwarder: $@";	565	} or die "FATAL: unable to compile method forwarder: $@";
535		566
536	goto &$urxvt::term::proxy::AUTOLOAD;	567	goto &$urxvt::term::proxy::AUTOLOAD;
537	}	568	}
538		569
		570	sub urxvt::term::proxy::DESTROY {
		571	# nop
		572	}
		573
		574	# urxvt::destroy_hook
		575
		576	sub urxvt::destroy_hook::DESTROY {
		577	${$_[0]}->();
		578	}
		579
		580	sub urxvt::destroy_hook(&) {
		581	bless \shift, urxvt::destroy_hook::
		582	}
		583
		584	package urxvt::anyevent;
		585
		586	=head2 The C<urxvt::anyevent> Class
		587
		588	The sole purpose of this class is to deliver an interface to the
		589	C<AnyEvent> module - any module using it will work inside urxvt without
		590	further work. The only exception is that you cannot wait on condition
		591	variables, but non-blocking condvar use is ok. What this means is that you
		592	cannot use blocking APIs, but the non-blocking variant should work.
		593
		594	=cut
		595
		596	our $VERSION = 1;
		597
		598	$INC{"urxvt/anyevent.pm"} = 1; # mark us as there
		599	push @AnyEvent::REGISTRY, [urxvt => urxvt::anyevent::];
		600
		601	sub timer {
		602	my ($class, %arg) = @_;
		603
		604	my $cb = $arg{cb};
		605
		606	urxvt::timer
		607	->new
		608	->start (urxvt::NOW + $arg{after})
		609	->cb (sub {
		610	$_[0]->stop; # need to cancel manually
		611	$cb->();
		612	})
		613	}
		614
		615	sub io {
		616	my ($class, %arg) = @_;
		617
		618	my $cb = $arg{cb};
		619
		620	bless [$arg{fh}, urxvt::iow
		621	->new
		622	->fd (fileno $arg{fh})
		623	->events (($arg{poll} =~ /r/ ? 1 : 0)
		624	\| ($arg{poll} =~ /w/ ? 2 : 0))
		625	->start
		626	->cb (sub {
		627	$cb->(($_[1] & 1 ? 'r' : '')
		628	. ($_[1] & 2 ? 'w' : ''));
		629	})],
		630	urxvt::anyevent::
		631	}
		632
		633	sub DESTROY {
		634	$_[0][1]->stop;
		635	}
		636
		637	sub condvar {
		638	bless \my $flag, urxvt::anyevent::condvar::
		639	}
		640
		641	sub urxvt::anyevent::condvar::broadcast {
		642	${$_[0]}++;
		643	}
		644
		645	sub urxvt::anyevent::condvar::wait {
		646	unless (${$_[0]}) {
		647	require Carp;
		648	Carp::croak ("AnyEvent->condvar blocking wait unsupported in urxvt, use a non-blocking API");
		649	}
		650	}
		651
		652	package urxvt::term;
		653
539	=head2 The C<urxvt::term> Class	654	=head2 The C<urxvt::term> Class
540		655
541	=over 4	656	=over 4
542		657
		658	=cut
		659
		660	# find on_xxx subs in the package and register them
		661	# as hooks
		662	sub register_package {
		663	my ($self, $pkg, $argv) = @_;
		664
		665	my $proxy = bless { argv => $argv }, $pkg;
		666	Scalar::Util::weaken ($proxy->{term} = $TERM);
		667
		668	$self->{_pkg}{$pkg} = $proxy;
		669
		670	for my $htype (0.. $#HOOKNAME) {
		671	my $name = $HOOKNAME[$htype];
		672
		673	my $ref = $pkg->can ("on_" . lc $name)
		674	or next;
		675
		676	$self->{_hook}[$htype]{$pkg} = $ref;
		677	$hook_count[$htype]++
		678	or urxvt::set_should_invoke $htype, 1;
		679	}
		680	}
		681
543	=item $term->destroy	682	=item $term->destroy
544		683
545	Destroy the terminal object (close the window, free resources etc.).	684	Destroy the terminal object (close the window, free resources etc.).
		685
		686	=item $isset = $term->option ($optval[, $set])
		687
		688	Returns true if the option specified by C<$optval> is enabled, and
		689	optionally change it. All option values are stored by name in the hash
		690	C<%urxvt::OPTION>. Options not enabled in this binary are not in the hash.
		691
		692	Here is a a likely non-exhaustive list of option names, please see the
		693	source file F</src/optinc.h> to see the actual list:
		694
		695	borderLess console cursorBlink cursorUnderline hold iconic insecure
		696	intensityStyles jumpScroll loginShell mapAlert meta8 mouseWheelScrollPage
		697	pastableTabs pointerBlank reverseVideo scrollBar scrollBar_floating
		698	scrollBar_right scrollTtyKeypress scrollTtyOutput scrollWithBuffer
		699	secondaryScreen secondaryScroll skipBuiltinGlyphs transparent
		700	tripleclickwords utmpInhibit visualBell
546		701
547	=item $value = $term->resource ($name[, $newval])	702	=item $value = $term->resource ($name[, $newval])
548		703
549	Returns the current resource value associated with a given name and	704	Returns the current resource value associated with a given name and
550	optionally sets a new value. Setting values is most useful in the C<init>	705	optionally sets a new value. Setting values is most useful in the C<init>
…		…
560		715
561	Please note that resource strings will currently only be freed when the	716	Please note that resource strings will currently only be freed when the
562	terminal is destroyed, so changing options frequently will eat memory.	717	terminal is destroyed, so changing options frequently will eat memory.
563		718
564	Here is a a likely non-exhaustive list of resource names, not all of which	719	Here is a a likely non-exhaustive list of resource names, not all of which
565	are supported in every build, please see the source to see the actual	720	are supported in every build, please see the source file F</src/rsinc.h>
566	list:	721	to see the actual list:
567		722
568	answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont	723	answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont
569	borderLess color cursorBlink cursorUnderline cutchars delete_key	724	borderLess color cursorBlink cursorUnderline cutchars delete_key
570	display_name embed ext_bwidth fade font geometry hold iconName	725	display_name embed ext_bwidth fade font geometry hold iconName
571	imFont imLocale inputMethod insecure int_bwidth intensityStyles	726	imFont imLocale inputMethod insecure int_bwidth intensityStyles
…		…
578	shade term_name title transparent transparent_all tripleclickwords	733	shade term_name title transparent transparent_all tripleclickwords
579	utmpInhibit visualBell	734	utmpInhibit visualBell
580		735
581	=cut	736	=cut
582		737
583	sub urxvt::term::resource($$;$) {	738	sub resource($$;$) {
584	my ($self, $name) = (shift, shift);	739	my ($self, $name) = (shift, shift);
585	unshift @_, $self, $name, ($name =~ s/\s\+\s(\d+)$// ? $1 : 0);	740	unshift @_, $self, $name, ($name =~ s/\s\+\s(\d+)$// ? $1 : 0);
586	goto &urxvt::term::_resource;	741	&urxvt::term::_resource
587	}	742	}
588		743
589	=item $rend = $term->rstyle ([$new_rstyle])	744	=item $rend = $term->rstyle ([$new_rstyle])
590		745
591	Return and optionally change the current rendition. Text that is output by	746	Return and optionally change the current rendition. Text that is output by
…		…
667		822
668	If hidden, display the overlay again.	823	If hidden, display the overlay again.
669		824
670	=back	825	=back
671		826
		827	=item $popup = $term->popup ($event)
		828
		829	Creates a new C<urxvt::popup> object that implements a popup menu. The
		830	C<$event> I<must> be the event causing the menu to pop up (a button event,
		831	currently).
		832
		833	=cut
		834
		835	sub popup {
		836	my ($self, $event) = @_;
		837
		838	$self->grab ($event->{time}, 1)
		839	or return;
		840
		841	my $popup = bless {
		842	term => $self,
		843	event => $event,
		844	}, urxvt::popup::;
		845
		846	Scalar::Util::weaken $popup->{term};
		847
		848	$self->{_destroy}{$popup} = urxvt::destroy_hook { $popup->{popup}->destroy };
		849	Scalar::Util::weaken $self->{_destroy}{$popup};
		850
		851	$popup
		852	}
		853
672	=item $cellwidth = $term->strwidth ($string)	854	=item $cellwidth = $term->strwidth ($string)
673		855
674	Returns the number of screen-cells this string would need. Correctly	856	Returns the number of screen-cells this string would need. Correctly
675	accounts for wide and combining characters.	857	accounts for wide and combining characters.
676		858
…		…
736	=item $nrow_plus_saveLines = $term->total_rows	918	=item $nrow_plus_saveLines = $term->total_rows
737		919
738	=item $lines_in_scrollback = $term->nsaved	920	=item $lines_in_scrollback = $term->nsaved
739		921
740	Return various integers describing terminal characteristics.	922	Return various integers describing terminal characteristics.
		923
		924	=item $lc_ctype = $term->locale
		925
		926	Returns the LC_CTYPE category string used by this rxvt-unicode.
		927
		928	=item $x_display = $term->display_id
		929
		930	Return the DISPLAY used by rxvt-unicode.
		931
		932	=item $modifiermask = $term->ModLevel3Mask
		933
		934	=item $modifiermask = $term->ModMetaMask
		935
		936	=item $modifiermask = $term->ModNumLockMask
		937
		938	Return the modifier masks corresponding to the "ISO Level 3 Shift" (often
		939	AltGr), the meta key (often Alt) and the num lock key, if applicable.
741		940
742	=item $view_start = $term->view_start ([$newvalue])	941	=item $view_start = $term->view_start ([$newvalue])
743		942
744	Returns the negative row number of the topmost line. Minimum value is	943	Returns the negative row number of the topmost line. Minimum value is
745	C<0>, which displays the normal terminal contents. Larger values scroll	944	C<0>, which displays the normal terminal contents. Larger values scroll
…		…
839		1038
840	=back	1039	=back
841		1040
842	=cut	1041	=cut
843		1042
844	sub urxvt::term::line {	1043	sub line {
845	my ($self, $row) = @_;	1044	my ($self, $row) = @_;
846		1045
847	my $maxrow = $self->nrow - 1;	1046	my $maxrow = $self->nrow - 1;
848		1047
849	my ($beg, $end) = ($row, $row);	1048	my ($beg, $end) = ($row, $row);
…		…
913	$offset / $self->{ncol} + $self->{beg},	1112	$offset / $self->{ncol} + $self->{beg},
914	$offset % $self->{ncol}	1113	$offset % $self->{ncol}
915	)	1114	)
916	}	1115	}
917		1116
918	=item ($row, $col) = $line->coord_of ($offset)
919	=item $text = $term->special_encode $string	1117	=item $text = $term->special_encode $string
920		1118
921	Converts a perl string into the special encoding used by rxvt-unicode,	1119	Converts a perl string into the special encoding used by rxvt-unicode,
922	where one character corresponds to one screen cell. See	1120	where one character corresponds to one screen cell. See
923	C<< $term->ROW_t >> for details.	1121	C<< $term->ROW_t >> for details.
…		…
925	=item $string = $term->special_decode $text	1123	=item $string = $term->special_decode $text
926		1124
927	Converts rxvt-unicodes text reprsentation into a perl string. See	1125	Converts rxvt-unicodes text reprsentation into a perl string. See
928	C<< $term->ROW_t >> for details.	1126	C<< $term->ROW_t >> for details.
929		1127
		1128	=item $success = $term->grab_button ($button, $modifiermask)
		1129
		1130	Registers a synchronous button grab. See the XGrabButton manpage.
		1131
		1132	=item $success = $term->grab ($eventtime[, $sync])
		1133
		1134	Calls XGrabPointer and XGrabKeyboard in asynchronous (default) or
		1135	synchronous (C<$sync> is true). Also remembers the grab timestampe.
		1136
		1137	=item $term->allow_events_async
		1138
		1139	Calls XAllowEvents with AsyncBoth for the most recent grab.
		1140
		1141	=item $term->allow_events_sync
		1142
		1143	Calls XAllowEvents with SyncBoth for the most recent grab.
		1144
		1145	=item $term->allow_events_replay
		1146
		1147	Calls XAllowEvents with both ReplayPointer and ReplayKeyboard for the most
		1148	recent grab.
		1149
		1150	=item $term->ungrab
		1151
		1152	Calls XUngrab for the most recent grab. Is called automatically on
		1153	evaluation errors, as it is better to lose the grab in the error case as
		1154	the session.
		1155
930	=back	1156	=back
		1157
		1158	=cut
		1159
		1160	package urxvt::popup;
		1161
		1162	=head2 The C<urxvt::popup> Class
		1163
		1164	=over 4
		1165
		1166	=cut
		1167
		1168	sub add_item {
		1169	my ($self, $item) = @_;
		1170
		1171	$item->{rend}{normal} = "\x1b[0;30;47m" unless exists $item->{rend}{normal};
		1172	$item->{rend}{hover} = "\x1b[0;30;46m" unless exists $item->{rend}{hover};
		1173	$item->{rend}{active} = "\x1b[m" unless exists $item->{rend}{active};
		1174
		1175	$item->{render} \|\|= sub { $_[0]{text} };
		1176
		1177	push @{ $self->{item} }, $item;
		1178	}
		1179
		1180	sub add_separator {
		1181	my ($self, $sep) = @_;
		1182
		1183	$sep \|\|= "=";
		1184
		1185	$self->add_item ({
		1186	rend => { normal => "\x1b[0;30;47m", hover => "\x1b[0;30;47m", active => "\x1b[0;30;47m" },
		1187	text => "",
		1188	render => sub { $sep x $self->{term}->ncol },
		1189	activate => sub { },
		1190	});
		1191	}
		1192
		1193	sub add_title {
		1194	my ($self, $title) = @_;
		1195
		1196	$self->add_item ({
		1197	rend => { normal => "\x1b[38;5;11;44m", hover => "\x1b[38;5;11;44m", active => "\x1b[38;5;11;44m" },
		1198	text => $title,
		1199	activate => sub { },
		1200	});
		1201	}
		1202
		1203	sub add_button {
		1204	my ($self, $text, $cb) = @_;
		1205
		1206	$self->add_item ({ type => "button", text => $text, activate => $cb});
		1207	}
		1208
		1209	sub add_toggle {
		1210	my ($self, $text, $cb, $value) = @_;
		1211
		1212	my $item; $item = {
		1213	type => "button",
		1214	text => " $text",
		1215	value => $value,
		1216	render => sub { ($_[0]{value} ? "* " : " ") . $text },
		1217	activate => sub { $cb->($_[0]{value} = !$_[0]{value}); },
		1218	};
		1219
		1220	$self->add_item ($item);
		1221	}
		1222
		1223	sub show {
		1224	my ($self) = @_;
		1225
		1226	local $urxvt::popup::self = $self;
		1227
		1228	local $ENV{LC_ALL} = $self->{term}->locale;
		1229
		1230	urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0,
		1231	"--transient-for" => $self->{term}->parent,
		1232	"-display" => $self->{term}->display_id,
		1233	"-pe" => "urxvt-popup")
		1234	or die "unable to create popup window\n";
		1235	}
		1236
		1237	sub DESTROY {
		1238	my ($self) = @_;
		1239
		1240	delete $self->{term}{_destroy}{$self};
		1241	$self->{term}->ungrab;
		1242	}
931		1243
932	=head2 The C<urxvt::timer> Class	1244	=head2 The C<urxvt::timer> Class
933		1245
934	This class implements timer watchers/events. Time is represented as a	1246	This class implements timer watchers/events. Time is represented as a
935	fractional number of seconds since the epoch. Example:	1247	fractional number of seconds since the epoch. Example:
…		…
1037	This variable controls the verbosity level of the perl extension. Higher	1349	This variable controls the verbosity level of the perl extension. Higher
1038	numbers indicate more verbose output.	1350	numbers indicate more verbose output.
1039		1351
1040	=over 4	1352	=over 4
1041		1353
1042	=item =0 - only fatal messages	1354	=item == 0 - fatal messages
1043		1355
1044	=item =3 - script loading and management	1356	=item >= 3 - script loading and management
1045		1357
1046	=item =10 - all events received	1358	=item >=10 - all events received
1047		1359
1048	=back	1360	=back
1049		1361
1050	=head1 AUTHOR	1362	=head1 AUTHOR
1051		1363

Diff Legend

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

Comparing rxvt-unicode/src/urxvt.pm (file contents): Revision 1.44 by root, Sat Jan 7 19:29:17 2006 UTC vs. Revision 1.68 by root, Mon Jan 9 20:00:31 2006 UTC

Diff Legend

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.44 by root, Sat Jan 7 19:29:17 2006 UTC vs.
Revision 1.68 by root, Mon Jan 9 20:00:31 2006 UTC