From a47f9b419de7a7a7c00aa155bf8b749493b431f0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 11 Jan 2005 08:35:04 +0000
Subject: no need to set widget name to Title (what was it used for?)

---
 perl-install/ugtk2.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index cfeef7d9a..ff2aa3d8f 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -330,8 +330,7 @@ sub create_box_with_title {
 	undef $::no_separator;
      my $new_label = sub {
          my ($txt) = @_;
-         my $w = ref($txt) ? $txt : gtknew('WrappedLabel', text => $txt);
-         gtkset_name($w, "Title");
+         ref($txt) ? $txt : gtknew('WrappedLabel', text => $txt);
      };
 	if ($o->{icon} && (!$::isWizard || $::isInstall)) {
 	    gtkpack__($box,
@@ -940,7 +939,6 @@ sub _create_window {
 
     my $w = gtknew('Window', 
 		   if_(!$::isInstall && !$::isWizard, border_width => 5),
-		   widget_name => 'Title',
 		   position_policy => !$::isInstall && !$::isStandalone ? 'center-always' : 'center-on-parent',
 		   if_(!$::isInstall, icon_no_error => wm_icon()),
 
-- 
cgit v1.2.1