diff options
Diffstat (limited to 'common')
| -rw-r--r-- | common/Wizcommon_gtk2.pm | 5 |
1 files changed, 3 insertions, 2 deletions
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) { |