summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-20 14:35:52 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-20 14:35:52 +0000
commit1f00d696d6517dff39301252122a51e5da46be46 (patch)
treed0b57a8b749cafc911418fd96689cbc564ac4506 /perl-install
parentb50445dcc3c97800f7d06fdee26a5c568fac9998 (diff)
downloaddrakx-backup-do-not-use-1f00d696d6517dff39301252122a51e5da46be46.tar
drakx-backup-do-not-use-1f00d696d6517dff39301252122a51e5da46be46.tar.gz
drakx-backup-do-not-use-1f00d696d6517dff39301252122a51e5da46be46.tar.bz2
drakx-backup-do-not-use-1f00d696d6517dff39301252122a51e5da46be46.tar.xz
drakx-backup-do-not-use-1f00d696d6517dff39301252122a51e5da46be46.zip
- api change for latest harddrake
- s/$x ne ''/$x/
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm
index 9f7498636..e33aec1ae 100644
--- a/perl-install/ugtk.pm
+++ b/perl-install/ugtk.pm
@@ -319,7 +319,9 @@ sub create_factory_menu_ {
my $widget = new Gtk::ItemFactory($type, $name, my $accel_group = new Gtk::AccelGroup);
$widget->create_items(@menu_items);
$window->add_accel_group($accel_group); #$accel_group->attach($main_win);
- $widget->get_widget($name); # return menu bar
+ my $menu = $widget->get_widget($name);
+ $menu->{factory} = $widget;
+ $menu; # return menu bar
}
sub create_factory_menu { create_factory_menu_('Gtk::MenuBar', '<main>', @_) }
@@ -496,7 +498,7 @@ sub get_text_coord {
if (ord($c[$i]) >= 128) { $el .= $c[$i+1]; $i++; push @t2, $el; $el = '' }
$i++;
}
- $el ne '' and push @t2, $el;
+ $el and push @t2, $el;
}
} else {
@t2 = @t;