/usr/share/doc/libgtk2-ex-entry-pango-perl/examples/simple.pl is in libgtk2-ex-entry-pango-perl 0.09-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 | #!/usr/bin/perl
=head1 NAME
simple.pl - Apply Pango markup through buttons.
=head1 DESCRIPTION
This sample program provides some buttons that apply Pango markup.
=cut
use strict;
use warnings;
use Glib qw(TRUE FALSE);
use Gtk2 '-init';
use Gtk2::Ex::Entry::Pango;
exit main();
sub main {
my $window = Gtk2::Window->new();
my $entry = Gtk2::Ex::Entry::Pango->new();
my $button_markup1 = Gtk2::Button->new('Markup 1');
my $button_markup2 = Gtk2::Button->new('Markup 2');
my $button_text = Gtk2::Button->new('Text');
my $hbox_bottom = new Gtk2::HBox(FALSE, 0);
$hbox_bottom->pack_start($button_markup1, FALSE, FALSE, 0);
$hbox_bottom->pack_start($button_markup2, FALSE, FALSE, 0);
$hbox_bottom->pack_start($button_text, FALSE, FALSE, 0);
my $vbox = new Gtk2::VBox(FALSE, 0);
$vbox->pack_start($entry, TRUE, TRUE, 0);
$vbox->pack_start($hbox_bottom, TRUE, TRUE, 0);
$window->set_focus_child($button_markup1);
$window->add($vbox);
# Use Pango markup
$entry->set_markup(
'<i>Pan</i><b>go</b> is <span underline="error" underline_color="red">fun</span>'
);
# Connect the signals
$window->signal_connect(delete_event => sub { Gtk2->main_quit(); });
$button_markup1->signal_connect(clicked => sub {
$entry->set_markup('sm<b>aller</b> text');
});
$button_markup2->signal_connect(clicked => sub {
$entry->set_markup('s<b>maller</b> text');
});
$button_text->signal_connect(clicked => sub {
$entry->set_text('smaOOOOller text');
});
$window->show_all();
Gtk2->main();
return 0;
}
|