-
- $self->destroy_menuitem;
-}
-
-sub destroy_menuitem {
- my $self = shift;
-
- return unless $self->{merge_id};
-
- my $ui_manager = HomeBank->main_ui_manager;
- $ui_manager->remove_action_group($self->{action_group});
- $ui_manager->remove_ui($self->{merge_id});
-}
-
-sub create_menuitem {
- my $self = shift;
-
- return if $self->{merge_id};
-
- require Gtk2;
-
- my $ui_manager = HomeBank->main_ui_manager;
- print Dumper($ui_manager);
- return unless $ui_manager;
-
- $self->{merge_id} = $ui_manager->new_merge_id;
- $self->{action_group} = Gtk2::ActionGroup->new('HelloActionGroup');
-
- my $action = Gtk2::Action->new(name => 'HelloPlugin', label => 'Booyah!', stock_id => 'prf-plugins', tooltip => 'blaaaargh');
- $action->signal_connect(activate => sub { print "hello!!!!!!!!\n" });
- $self->{action_group}->add_action($action);
-
- $ui_manager->insert_action_group($self->{action_group}, -1);
- $ui_manager->add_ui($self->{merge_id}, 'ui/MenuBar/PluginMenu', 'HelloPlugin', 'HelloPlugin', 'auto', '');
- #$self->{merge_id} = $ui_manager->new_merge_id;
- $ui_manager->add_ui($self->{merge_id}, 'ui/ToolBar', 'HelloPluginTool', 'HelloPlugin', 'auto', '');