From f56bcb324794751943a1cecfff2141fc78821b38 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 22 Nov 2011 20:35:21 +0000 Subject: =?UTF-8?q?report=20the=20gtk+=20theme=20in=20use=20(#3127)=20whic?= =?UTF-8?q?h=20explain=20some=20crashes=20(eg:=C2=A0#2679)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- perl-install/standalone/drakbug | 3 +++ 1 file changed, 3 insertions(+) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug index cb9a96a79..33c7d7850 100755 --- a/perl-install/standalone/drakbug +++ b/perl-install/standalone/drakbug @@ -122,6 +122,7 @@ $table = create_packtable({ col_spacings => 5, row_spacings => 10 }, ); $comb_app->set_popdown_strings("", uniq(sort(@generic_tool), if_($prog, $prog))); $comb_app->set_text(""); +my $theme_name = $table->get_settings->get('gtk-theme-name'); sub is_a_boot_issue() { $prog =~ /boot|mkinitrd/; @@ -155,6 +156,7 @@ gtkadd($window->{window}, ), if_($gdb_trace, format_trace_with_message(N("Its GDB trace is:"), $gdb_trace)), ), + [ N("Used theme: %s", $theme_name) . "\n\n" ], [ N("To submit a bug report, click on the report button. \nThis will open a web browser window on %s where you'll find a form to fill in. The information displayed above will be transferred to that server", $wizard_name). "\n" . @@ -289,6 +291,7 @@ sub report_bug_to_bugzilla() { 'comment=' . uri_escape( if_($incident, qq(The "$prog" program crashed. Drakbug-$rel caught it. +Theme name: $theme_name ) . ($text || "Please describe what you were doing when it crashed.") . "\n\n" . ($error ? qq(Backtrace was: -- cgit v1.2.1