From 94588c23419612e2eb4f172102acbab211e6f00b Mon Sep 17 00:00:00 2001 From: Christophe Fergeau Date: Wed, 19 May 2010 12:37:06 +0000 Subject: fix release note display on Ones (#59155) --- perl-install/NEWS | 4 ++++ perl-install/standalone/display_release_notes.pl | 7 +++---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/perl-install/NEWS b/perl-install/NEWS index 2bfda5954..cb3e46d64 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,7 @@ +- display_release_notes.pl: don't use ::isInstall to position the release not + window on top of everything (doesn't work on the Ones), use + any::set_wm_hints_if_needed instead (#59155) + Version 13.28 - 19 May 2010 - display_help: allow scripts to close window, for first time wizard diff --git a/perl-install/standalone/display_release_notes.pl b/perl-install/standalone/display_release_notes.pl index 420209e42..4f5f19bb4 100755 --- a/perl-install/standalone/display_release_notes.pl +++ b/perl-install/standalone/display_release_notes.pl @@ -18,16 +18,15 @@ # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -# so that we popup above drakx: -BEGIN { $::isInstall = 1 } - use lib qw(/usr/lib/libDrakX); use interactive; use any; use MDK::Common; my $in = 'interactive'->vnew('su'); +# so that we popup above drakx: +any::set_wm_hints_if_needed($in); + # not very safe but we run in a restricted environment anyway: my $release_notes = cat_utf8('/tmp/release_notes.html'); any::display_release_notes($in, $release_notes); -- cgit v1.2.1