102 lines
2.2 KiB
Perl
102 lines
2.2 KiB
Perl
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use Xchat qw(:all);
|
||
|
|
use Glib qw(TRUE FALSE);
|
||
|
|
use Gtk2 -init;
|
||
|
|
|
||
|
|
sub get_inputbox {
|
||
|
|
my $widget = Glib::Object->new_from_pointer( get_info( "win_ptr" ), 0 );
|
||
|
|
my $input_box;
|
||
|
|
|
||
|
|
my @containers = ($widget);
|
||
|
|
|
||
|
|
while( @containers ) {
|
||
|
|
my $container = shift @containers;
|
||
|
|
|
||
|
|
for my $child ( $container->get_children ) {
|
||
|
|
if( $child->get( "name" ) eq 'xchat-inputbox' ) {
|
||
|
|
$input_box = $child;
|
||
|
|
last;
|
||
|
|
} elsif( $child->isa( "Gtk2::Container" ) ) {
|
||
|
|
push @containers, $child;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return $input_box;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub get_hbox {
|
||
|
|
my $widget = shift;
|
||
|
|
my $hbox;
|
||
|
|
|
||
|
|
while( $widget->parent ) {
|
||
|
|
if( $widget->parent->isa( "Gtk2::HBox" ) ) {
|
||
|
|
return $widget->parent;
|
||
|
|
}
|
||
|
|
$widget = $widget->parent;
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
my $input_box = get_inputbox();
|
||
|
|
|
||
|
|
if( $input_box ) {
|
||
|
|
my $hbox = get_hbox( $input_box );
|
||
|
|
if( $hbox ) {
|
||
|
|
my $label = Gtk2::Label->new();
|
||
|
|
$label->set_alignment( 0.5, ($label->get_alignment)[1] );
|
||
|
|
$hbox->pack_end( $label, 0, 0, 5 );
|
||
|
|
$label->show();
|
||
|
|
|
||
|
|
my $update_label = sub {
|
||
|
|
my $ctx_type = context_info->{"type"};
|
||
|
|
hook_timer( 0, sub {
|
||
|
|
if( $ctx_type == 2 || $ctx_type == 3 ) {
|
||
|
|
my $count = length get_info "inputbox";
|
||
|
|
$label->set_text( $count ? $count : "" );
|
||
|
|
} else {
|
||
|
|
$label->set_text( "" );
|
||
|
|
}
|
||
|
|
return REMOVE;
|
||
|
|
});
|
||
|
|
return EAT_NONE;
|
||
|
|
};
|
||
|
|
|
||
|
|
hook_print( "Key Press", $update_label );
|
||
|
|
hook_print( "Focus Tab", $update_label );
|
||
|
|
hook_print( "Focus Window", $update_label );
|
||
|
|
hook_command( "",
|
||
|
|
sub {
|
||
|
|
$label->set_text( "" );
|
||
|
|
return EAT_NONE;
|
||
|
|
}
|
||
|
|
);
|
||
|
|
|
||
|
|
my @handlers;
|
||
|
|
my $buffer = $input_box->get_buffer;
|
||
|
|
my $handler = sub { $update_label->(); return TRUE };
|
||
|
|
|
||
|
|
if( $buffer->isa( "Gtk2::TextBuffer" ) ) {
|
||
|
|
push @handlers, $buffer->signal_connect( "changed", $handler );
|
||
|
|
} elsif( $buffer->isa( "Gtk2::EntryBuffer" ) ) {
|
||
|
|
push @handlers,
|
||
|
|
$buffer->signal_connect( "deleted-text", $handler );
|
||
|
|
$buffer->signal_connect( "inserted-text", $handler );
|
||
|
|
}
|
||
|
|
|
||
|
|
register( "Character Counter", "1.0.0",
|
||
|
|
"Display the number of characters in the inputbox",
|
||
|
|
sub {
|
||
|
|
$hbox->remove( $label );
|
||
|
|
$buffer->signal_handler_disconnect( $_ ) for @handlers;
|
||
|
|
}
|
||
|
|
);
|
||
|
|
} else {
|
||
|
|
prnt "Counldn't find hbox";
|
||
|
|
}
|
||
|
|
|
||
|
|
} else {
|
||
|
|
prnt "Couldn't fint input box";
|
||
|
|
}
|