From c4a34685a2cd2fdf7fd1b30d2bd89f5ba5d5f9cd Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Thu, 8 Sep 2005 08:25:57 +0000 Subject: add more information in gtk_log box --- common/Wizcommon_gtk2.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'common') diff --git a/common/Wizcommon_gtk2.pm b/common/Wizcommon_gtk2.pm index 9418bde6..41c63e8a 100644 --- a/common/Wizcommon_gtk2.pm +++ b/common/Wizcommon_gtk2.pm @@ -65,13 +65,14 @@ sub gtk_log { use lib qw(/usr/lib/libDrakX); use ugtk2 qw(:wrappers); use mygtk2 qw(gtknew); - my ($command) = @_; + my ($command, $text) = @_; my $log_text = gtknew('TextView'); my $my_win = ugtk2->new(""); my $window1 = $my_win->{window}; #my $pid; gtkadd($window1, - gtknew('VBox', spacing => 1, children => [ + gtknew('VBox', spacing => 3, children => [ + 0, Gtk2::Label->new($text), 1, gtknew('ScrolledWindow', child => $log_text), # 0, gtksignal_connect(gtknew('Button', text => N("cancel")), clicked => sub { # if ($pid) { -- cgit v1.2.1