From 1f00d696d6517dff39301252122a51e5da46be46 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 20 Nov 2002 14:35:52 +0000 Subject: - api change for latest harddrake - s/$x ne ''/$x/ --- perl-install/ugtk.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install/ugtk.pm') 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', '
', @_) } @@ -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; -- cgit v1.2.1