Perl ：GTK2 设置文本样式，比如彩色、斜体之类的

来源：Listing 3
 


代码如下：

#!/usr/bin/perl  

use Gtk2 -init;
use strict;

my $window = Gtk2::Window->new;
$window->signal_connect('delete_event', sub { Gtk2->main_quit });
$window->set_border_width(8);
$window->set_title('Label Example');

my $label = Gtk2::Label->new;

my $markup = <<"END";  
This is some plain text.  
<b>This is some bold text.</b> 
<span size="small">This is some small text.</span>  
<span size="large">This is some large text.</span>  
<span foreground="blue">This is blue.</span> 
<span style="italic">This is italic.</span> 
<tt>This is monospace.</tt>  
END  

$label->set_markup($markup);  

$window->add($label);  
$window->show_all; 

Gtk2->main;  

exit;

Perl : 防止Gtk2程序界面由于进程处理长时间事件而僵死 freeze

来源：Controlling Program Flow

当我们在Gtk2主循环外处理一些耗时较长的事件的时候，要记得加
Gtk2->main_iteration while (Gtk2->events_pending);
防止界面僵死。 

Gtk2->events_pending 在事件山全部处理完毕之前将一直返回true。