blob: 39c4eb4caaa8d68a23187e3c2b2f52d6a9ccbf6d (plain) (tree)

9a4907e2 ^ 1084a85d ^ 9a4907e2 ^ 1084a85d ^ 9a4907e2 ^

generated by cgit-pink 1.4.1 (git 2.36.1) at 2025-02-07 12:58:39 +0000 span class="p">); 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"; }