- 论坛徽章:
- 0
|
本帖最后由 黑色阳光_cu 于 2010-12-11 03:11 编辑
简易的html显示,自定义的gtk2-hypertextview:
- #!/bin/env perl
- use strict;
- use warnings;
- use Gtk2;
- use Glib qw(TRUE FALSE);
- use Gtk2::HyperTextView;
- Gtk2->init();
- my $window = Gtk2::Window->new("toplevel");
- $window->set_size_request(400, 400);
- my $vbox = Gtk2::VBox->new();
- my $hbox = Gtk2::HBox->new();
- my $sw = Gtk2::ScrolledWindow->new();
- $sw->set_policy("automatic", "automatic");
- my $hypertext_view = Gtk2::HyperTextView->new();
- $sw->add($hypertext_view);
- $vbox->pack_start($sw, TRUE, TRUE, 0);
- $vbox->pack_start($hbox, FALSE, FALSE, 0);
- $window->add($vbox);
- $window->signal_connect("delete-event" => sub {Gtk2->main_quit()});
- my $html = do { local $/; <DATA> };
- $hypertext_view->load_string($html);
- $window->show_all();
- Gtk2->main();
- __DATA__
- <html>
- <body bgcolor="white"></body>
- <img src="data:image/gif;base64,R0lGODlhUAAPAKIAAAsLav///88PD9WqsYmApmZmZtZfYmdakyH5BAQUAP8ALAAAAABQAA8AAAPbWLrc/jDKSVe4OOvNu/9gqARDSRBHegyGMahqO4R0bQcjIQ8E4BMCQc930JluyGRmdAAcdiigMLVrApTYWy5FKM1IQe+Mp+L4rphz+qIOBAUYeCY4p2tGrJZeH9y79mZsawFoaIRxF3JyiYxuHiMGb5KTkpFvZj4ZbYeCiXaOiKBwnxh4fnt9e3ktgZyHhrChinONs3cFAShFF2JhvCZlG5uchYNun5eedRxMAF15XEFRXgZWWdciuM8GCmdSQ84lLQfY5R14wDB5Lyon4ubwS7jx9NcV9/j5+g4JADs=" alt="British Blog Directory" width="80" height="15" />
- <img src="data:stock;gtk-ok" width=40 />
- <img src="file://gtk.png" />
- <br />
- <H1>header 1</h1>
- <h2>header 2</h2>
- <h3>header 3</h3>
- <h4>header 4</h4>
- <h5>header 5</h5>
- <h6>header 6</h6>
- <b>Bold String</b>
- <br>
- <i>Italic String</i>
- <br />
- <b><i>Bold Italic String</i></b>
- <br />
- <u>Underline String</u>
- <br />
- <p>Perl is a high-level, general-purpose, interpreted, dynamic programming language. Perl was originally developed by Larry Wall in 1987 as a general-purpose Unix scripting language to make report processing easier.[1][2] Since then, it has undergone many changes and revisions and become widely popular amongst programmers. Larry Wall continues to oversee development of the core language, and its upcoming version, Perl 6.</p>
- <big>Big String</big>
- <br />
- <small>Small String</small>
- <br />
- <center><u><font color="blue" bgcolor="gray" size="60pt" family="Tahoma">Formatted String</font></u></center>
- <center><u><font color="red" size="30pt" family="Tahoma">Formatted String</font></u></center>
- </html>
复制代码 |
|