diff options
author | Thierry Vignaud <tv@mandriva.org> | 2007-09-12 10:18:34 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2007-09-12 10:18:34 +0000 |
commit | ab1316ef3c6b75d16904e1829698757009985294 (patch) | |
tree | 794bd365153254362a114ea8985343e52ded9bbf /perl-install | |
parent | df2f504bd7dac6b2a3e7fb0cf4d6167977b91ff0 (diff) | |
download | drakx-ab1316ef3c6b75d16904e1829698757009985294.tar drakx-ab1316ef3c6b75d16904e1829698757009985294.tar.gz drakx-ab1316ef3c6b75d16904e1829698757009985294.tar.bz2 drakx-ab1316ef3c6b75d16904e1829698757009985294.tar.xz drakx-ab1316ef3c6b75d16904e1829698757009985294.zip |
better formatting
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/NEWS | 1 | ||||
-rwxr-xr-x | perl-install/standalone/drakbug | 24 |
2 files changed, 17 insertions, 8 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index f1c5d07fc..c10ee2004 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,5 +1,6 @@ - drakbug: o use a TextView instead of Label so that text is selectable (see #33023) + o better formatting Version 10.4.192 - 12 September 2007, by Olivier "blino" Blin diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug index 17009e627..df4c30a65 100755 --- a/perl-install/standalone/drakbug +++ b/perl-install/standalone/drakbug @@ -96,15 +96,23 @@ gtkadd($window->{window}, gtkpack_(Gtk2::VBox->new(0, 5), 0, gtknew('Title1', label => $mandrake_release), 1, create_scrolled_window( - gtknew('TextView', - text => formatAlaTeX( - join("\n\n", - if_($prog, $error ? - N("The \"%s\" program has crashed with the following error:", $prog) - . join("\n\n", "\n", split("\n", $error), '') - : N("The \"%s\" program has crashed.", $prog) + gtknew('TextView', editable => 0, height => 200, + text => [ + if_($prog, $error ? + ( + [ + N("The \"%s\" program has crashed with the following error:", $prog), + ], + [ + "\n\n " . join("\n ", split("\n", $error)) . "\n\n", + { family => 'monospace' } + ] + ) : [ N("The \"%s\" program has crashed.", $prog) . "\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. \nThings useful to include in your report are the output of lspcidrake -v, kernel version, and /proc/cpuinfo.", $wizard_name)))), "left"), + [ + 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. \nThings useful to include in your report are the output of lspcidrake -v, kernel version, and /proc/cpuinfo.", $wizard_name) + ] + ])), 0, gtkadd($table), 0, gtkpack(Gtk2::HSeparator->new), 0, gtkpack(create_hbox('edge'), |