diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-20 14:35:52 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-20 14:35:52 +0000 |
| commit | 1f00d696d6517dff39301252122a51e5da46be46 (patch) | |
| tree | d0b57a8b749cafc911418fd96689cbc564ac4506 /perl-install | |
| parent | b50445dcc3c97800f7d06fdee26a5c568fac9998 (diff) | |
| download | drakx-1f00d696d6517dff39301252122a51e5da46be46.tar drakx-1f00d696d6517dff39301252122a51e5da46be46.tar.gz drakx-1f00d696d6517dff39301252122a51e5da46be46.tar.bz2 drakx-1f00d696d6517dff39301252122a51e5da46be46.tar.xz drakx-1f00d696d6517dff39301252122a51e5da46be46.zip | |
- api change for latest harddrake
- s/$x ne ''/$x/
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk.pm | 6 |
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; |