summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-01-11 08:35:04 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-01-11 08:35:04 +0000
commita47f9b419de7a7a7c00aa155bf8b749493b431f0 (patch)
tree598381e866e7216c4af6e529fa63a9c3d19309ad /perl-install/ugtk2.pm
parent93b75d5070f7939f103a9d6f9b95297aebae151b (diff)
downloaddrakx-backup-do-not-use-a47f9b419de7a7a7c00aa155bf8b749493b431f0.tar
drakx-backup-do-not-use-a47f9b419de7a7a7c00aa155bf8b749493b431f0.tar.gz
drakx-backup-do-not-use-a47f9b419de7a7a7c00aa155bf8b749493b431f0.tar.bz2
drakx-backup-do-not-use-a47f9b419de7a7a7c00aa155bf8b749493b431f0.tar.xz
drakx-backup-do-not-use-a47f9b419de7a7a7c00aa155bf8b749493b431f0.zip
no need to set widget name to Title (what was it used for?)
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm4
1 files changed, 1 insertions, 3 deletions
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()),