view release on metacpan or  search on metacpan

AppIndicator.xs  view on Meta::CPAN

void appindicator_set_attention(self)
		GObject *self
	CODE:
		app_indicator_set_status ((AppIndicator *) self, APP_INDICATOR_STATUS_ATTENTION);

void appindicator_set_menu(self,menu)
		GObject *self
		GObject *menu
	CODE:
		app_indicator_set_menu((AppIndicator *) self,(GtkMenu *) menu);
		
void appindicator_set_label(self,label,guide)
		GObject *self
		char *label
		char *guide
	CODE:
		app_indicator_set_label((AppIndicator *) self,label,guide);
		
void appindicator_set_secondary_activate_target(self,widget)
		GObject *self

lib/Gtk2/AppIndicator.pm  view on Meta::CPAN

  my $absolute_current_working_directory=getcwd();
  my $acwd=$absolute_current_working_directory;
  $status_icon->set_icon_theme_path($acwd);

  # Optionally set different icons 
  # $status_icon->set_icon_name_active("an_icon_name");
  # $status_icon->set_icon_name_attention("an_other_icon_name");
  # $status_icon->set_icon_name_passive("an_other_icon_name");
 
  # Add a menu to the indicator
  my $menu=Gtk2::Menu->new();
  my $showcp=Gtk2::CheckMenuItem->new_with_mnemonic("_Show My App");
  $showcp->set_active(1);
  $showcp->signal_connect("toggled",sub { hide_show($window,$showcp); });
  my $quit=Gtk2::MenuItem->new_with_mnemonic("_Quit");
  $quit->signal_connect("activate",sub { Gtk->main_quit(); });
  
  $menu->append($showcp);
  $menu->append(Gtk2::SeparatorMenuItem->new());
  $menu->append($quit);
  $status_icon->set_menu($menu);

  # Show our icon and set the state
  $menu->show_all();
  $status_icon->set_active();


=head1 DESCRIPTION