summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS4
-rwxr-xr-xperl-install/standalone/display_release_notes.pl7
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);