[Catalyst-commits] r13984 - CatalystX-Restarter-GTK/trunk/lib/CatalystX/Restarter

[dd070 at dev.catalyst.perl.org]

Author: dd070
Date: 2011-03-07 19:11:52 +0000 (Mon, 07 Mar 2011)
New Revision: 13984

Modified:
   CatalystX-Restarter-GTK/trunk/lib/CatalystX/Restarter/GTK.pm
Log:
fixed bug of fixed width font in Gtk2::TextView

Modified: CatalystX-Restarter-GTK/trunk/lib/CatalystX/Restarter/GTK.pm
===================================================================
--- CatalystX-Restarter-GTK/trunk/lib/CatalystX/Restarter/GTK.pm	2011-03-07 15:17:38 UTC (rev 13983)
+++ CatalystX-Restarter-GTK/trunk/lib/CatalystX/Restarter/GTK.pm	2011-03-07 19:11:52 UTC (rev 13984)
@@ -11,7 +11,7 @@
 use IO::Handle           qw();
 use namespace::autoclean;
 
-our $VERSION = '0.03';
+our $VERSION = '0.04';
 
 extends 'Catalyst::Restarter';
 
@@ -408,7 +408,12 @@
     my $textview = Gtk2::TextView->new_with_buffer($self->{msg_buffer});
     $textview->set_editable(FALSE);
     $textview->set_wrap_mode('word');
-
+	
+	my $text_desc = Pango::FontDescription->new;
+	$text_desc->set_family('Monospace');
+	
+	$textview->modify_font($text_desc);
+	
     my $scrolled_win = Gtk2::ScrolledWindow->new;
     $scrolled_win->add($textview);