summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2011-11-22 20:35:21 +0000
committerThierry Vignaud <tv@mageia.org>2011-11-22 20:35:21 +0000
commitf56bcb324794751943a1cecfff2141fc78821b38 (patch)
tree2095a91ed4c25e94fa70310813173be4f12daca5 /perl-install/standalone
parent3c4054088c139c63e00278e26ccfe549dbbdfa46 (diff)
downloaddrakx-f56bcb324794751943a1cecfff2141fc78821b38.tar
drakx-f56bcb324794751943a1cecfff2141fc78821b38.tar.gz
drakx-f56bcb324794751943a1cecfff2141fc78821b38.tar.bz2
drakx-f56bcb324794751943a1cecfff2141fc78821b38.tar.xz
drakx-f56bcb324794751943a1cecfff2141fc78821b38.zip
report the gtk+ theme in use (#3127) which explain some crashes (eg: #2679)
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakbug3
1 files changed, 3 insertions, 0 deletions
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: