Mercurial > pidgin
diff src/buddy.c @ 798:9dc39872e1f9
[gaim-migrate @ 808]
beginnings of perl interface
committer: Tailor Script <tailor@pidgin.im>
| author | Eric Warmenhoven <eric@warmenhoven.org> |
|---|---|
| date | Wed, 30 Aug 2000 18:46:43 +0000 |
| parents | 4c292b3f74ea |
| children | 1a47432e2ba1 |
line wrap: on
line diff
--- a/src/buddy.c Wed Aug 30 04:31:05 2000 +0000 +++ b/src/buddy.c Wed Aug 30 18:46:43 2000 +0000 @@ -1722,6 +1722,9 @@ GtkWidget *sw; GtkWidget *menu; GtkWidget *findmenu; +#ifdef USE_PERL + GtkWidget *perlmenu; +#endif GtkWidget *setmenu; GtkWidget *menubar; GtkWidget *vbox; @@ -1828,6 +1831,25 @@ #ifdef GAIM_PLUGINS gaim_new_item(menu, _("Plugins"), GTK_SIGNAL_FUNC(show_plugins)); #endif +#ifdef USE_PERL + perlmenu = gtk_menu_new(); + gtk_widget_show(perlmenu); + menuitem = gaim_new_item(menu, _("Perl"), NULL); + gtk_menu_item_set_submenu(GTK_MENU_ITEM(menuitem), perlmenu); + gtk_widget_show(menuitem); + menuitem = gtk_menu_item_new_with_label(_("Load Script")); + gtk_menu_append(GTK_MENU(perlmenu), menuitem); + gtk_signal_connect(GTK_OBJECT(menuitem), "activate", GTK_SIGNAL_FUNC(load_perl_script), NULL); + gtk_widget_show(menuitem); + menuitem = gtk_menu_item_new_with_label(_("Unload All Scripts")); + gtk_menu_append(GTK_MENU(perlmenu), menuitem); + gtk_signal_connect(GTK_OBJECT(menuitem), "activate", GTK_SIGNAL_FUNC(unload_perl_scripts), NULL); + gtk_widget_show(menuitem); + menuitem = gtk_menu_item_new_with_label(_("List Scripts")); + gtk_menu_append(GTK_MENU(perlmenu), menuitem); + gtk_signal_connect(GTK_OBJECT(menuitem), "activate", GTK_SIGNAL_FUNC(list_perl_scripts), NULL); + gtk_widget_show(menuitem); +#endif menu = gtk_menu_new();