/usr/share/doc/libgnome2-canvas-perl/examples/canvas-rich-text.pm is in libgnome2-canvas-perl 1.002-3+b1.
This file is owned by root:root, with mode 0o644.
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 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 | package CanvasRichText;
use strict;
use utf8;
use Gnome2::Canvas;
use Glib qw(TRUE FALSE);
sub setup_text {
my $root = shift;
Gnome2::Canvas::Item->new ($root,
'Gnome2::Canvas::Rect',
"x1", -90.0,
"y1", -50.0,
"x2", 110.0,
"y2", 50.0,
"fill_color", "green",
"outline_color", "green",
);
Gnome2::Canvas::Item->new ($root,
'Gnome2::Canvas::RichText',
"x", -90.0,
"y", -50.0,
"width", 200.0,
"height", 100.0,
"text",
"English is so boring because everyone uses it.\n"
."Here is something exciting: "
."وقد بدأ ثلاث من أكثر المؤسسات تقدما في شبكة اكسيون برامجها كمنظمات لا تسعى للربح، ثم تحولت في السنوات الخمس الماضية إلى مؤسسات مالية منظمة، وباتت جزءا من النظام المالي في بلدانها، ولكنها تتخصص في خدمة قطاع المشروعات الصغيرة. وأحد أكثر هذه المؤسسات نجاحا هو »بانكوسول« في بوليفيا.\n"
."And here is some more plain, boring English.",
"grow_height", TRUE,
);
Gnome2::Canvas::Item->new ($root,
'Gnome2::Canvas::Ellipse',
"x1", -5.0,
"y1", -5.0,
"x2", 5.0,
"y2", 5.0,
"fill_color", "white",
);
Gnome2::Canvas::Item->new ($root,
'Gnome2::Canvas::Rect',
"x1", 100.0,
"y1", -30.0,
"x2", 200.0,
"y2", 30.0,
"fill_color", "yellow",
"outline_color", "yellow",
);
Gnome2::Canvas::Item->new ($root,
'Gnome2::Canvas::RichText',
"x", 100.0,
"y", -30.0,
"width", 100.0,
"height", 60.0,
"text", "The quick brown fox jumped over the lazy dog.\n",
"cursor_visible", TRUE,
"cursor_blink", TRUE,
"grow_height", TRUE,
);
Gnome2::Canvas::Item->new ($root,
'Gnome2::Canvas::Rect',
"x1", 50.0,
"y1", 70.0,
"x2", 150.0,
"y2", 100.0,
"fill_color", "pink",
"outline_color", "pink",
);
Gnome2::Canvas::Item->new ($root,
'Gnome2::Canvas::RichText',
"x", 50.0,
"y", 70.0,
"width", 100.0,
"height", 30.0,
"text", "This is a test.\nI enjoy tests a great deal\nThree lines!",
"cursor_visible", TRUE,
"cursor_blink", TRUE,
);
}
sub create {
my $vbox = Gtk2::VBox->new (FALSE, 4);
$vbox->set_border_width (4);
$vbox->show;
my $alignment = Gtk2::Alignment->new (0.5, 0.5, 0.0, 0.0);
$vbox->pack_start ($alignment, TRUE, TRUE, 0);
$alignment->show;
my $frame = Gtk2::Frame->new;
$frame->set_shadow_type ('in');
$alignment->add ($frame);
$frame->show;
# Create the canvas and board
my $canvas = Gnome2::Canvas->new;
$canvas->set_size_request (600, 450);
$frame->add ($canvas);
$canvas->show;
my $root = $canvas->root;
setup_text ($root);
return $vbox;
}
1;
|