From b81aa6049d4a578a8a9d18919b4df26733a33857 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 13 Dec 2012 15:21:31 +0000 Subject: (register_main_window) add it for tracking main windows --- perl-install/ugtk2.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/ugtk2.pm') diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 69185247c..dbfcfc8ff 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -748,7 +748,7 @@ sub new { if_(!$::isInstall, icon_no_error => wm_icon()), if_($o->{transient}, transient_for => $o->{transient}), ); - push @::main_windows, $::main_window = $window->{real_window} if !$opts{do_not_track_main_window}; + mygtk2::register_main_window($window->{real_window}) if !$opts{do_not_track_main_window}; $window->set_border_width(10) if !$window->{pop_it} && !$::noborderWhenEmbedded; $o->{rwindow} = $o->{window} = $window; -- cgit v1.2.1