view release on metacpan or  search on metacpan

lib/App/USBKeyCopyCon.pm  view on Meta::CPAN

    my $scrolled_window = Gtk2::ScrolledWindow->new;
    $scrolled_window->set_policy('automatic', 'automatic');
    $scrolled_window->set_shadow_type('in');

    my $buffer = Gtk2::TextBuffer->new(undef);
    $buffer->delete($buffer->get_bounds);

    my $console = Gtk2::TextView->new_with_buffer($buffer);
    $console->set_editable(FALSE);
    $console->set_cursor_visible(FALSE);
    $console->set_wrap_mode('char');

    my $end_mark = $buffer->create_mark( 'end', $buffer->get_end_iter, FALSE);
    $buffer->signal_connect(
        insert_text => sub {
            $console->scroll_to_mark( $end_mark, 0.0, TRUE, 0.0, 0.0 );
        }
    );

    $self->console($console);