From 4431e39d37e37a7c9e40cacb0939ec9bd8aa7766 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sat, 18 Jan 2014 15:27:45 +0100 Subject: make screenshots work (mga#11176) screenshots were not working since we moved the actual display of help in another program. Switch to install mode and make sure we've a real $::o object. Today is Marja's birthday! --- perl-install/standalone/display_installer_help | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/display_installer_help b/perl-install/standalone/display_installer_help index 09c6bae31..165ae6729 100755 --- a/perl-install/standalone/display_installer_help +++ b/perl-install/standalone/display_installer_help @@ -21,10 +21,15 @@ use lib qw(/usr/lib/libDrakX); use interactive; use any; +# so that screenshots works: +use install::any; +$::isInstall = 1; + my $in = 'interactive'->vnew('su'); # so that we popup above drakx: any::set_wm_hints_if_needed($in); # Fake enough $o for retrieving the proper translation: -$o->{locale}{lang} = $ARGV[1]; +$::o = $in; +$::o->{locale}{lang} = $ARGV[1]; $in->display_help_window({ interactive_help_id => $ARGV[0] }); -- cgit v1.2.1