diff options
Diffstat (limited to 'shell')
| -rw-r--r-- | shell/ChangeLog | 10 | ||||
| -rw-r--r-- | shell/evolution-shell-component.c | 70 |
2 files changed, 77 insertions, 3 deletions
diff --git a/shell/ChangeLog b/shell/ChangeLog index 8ecf5a92f6..fb3a22e426 100644 --- a/shell/ChangeLog +++ b/shell/ChangeLog @@ -1,5 +1,15 @@ 2001-10-05 Ettore Perazzoli <ettore@ximian.com> + * evolution-shell-component.c: New member `ping_timeout_id' in + `EvolutionShellComponentPrivate'. + (setup_owner_pinging): New helper function. + (impl_owner_died): Unref the owner and set ->owner_client to + %NULL. + (impl_setOwner): Don't unref here. + (destroy): Remove the source for ->ping_timeout_id if not -1. + +2001-10-05 Ettore Perazzoli <ettore@ximian.com> + * main.c: #include "e-util/e-gtk-utils.h". (quit_box_new): Queue a draw on the window; otherwise it seems to fail to redraw in some cases for some reason [see #11412]. diff --git a/shell/evolution-shell-component.c b/shell/evolution-shell-component.c index 72ea36143b..793e579732 100644 --- a/shell/evolution-shell-component.c +++ b/shell/evolution-shell-component.c @@ -39,6 +39,9 @@ #include "Evolution.h" +#define PING_DELAY 10000 + + #define PARENT_TYPE BONOBO_X_OBJECT_TYPE static GtkObjectClass *parent_class = NULL; @@ -66,6 +69,8 @@ struct _EvolutionShellComponentPrivate { GSList *user_creatable_item_types; /* UserCreatableItemType */ + int ping_timeout_id; + void *closure; }; @@ -167,6 +172,54 @@ fill_corba_sequence_from_null_terminated_string_array (CORBA_sequence_CORBA_stri } +/* Owner pinging. */ + +static gboolean +owner_ping_callback (void *data) +{ + EvolutionShellComponent *shell_component; + EvolutionShellComponentPrivate *priv; + Bonobo_Unknown owner_objref; + gboolean alive; + + shell_component = EVOLUTION_SHELL_COMPONENT (data); + priv = shell_component->priv; + + owner_objref = bonobo_object_corba_objref (BONOBO_OBJECT (priv->owner_client)); + + if (owner_objref == CORBA_OBJECT_NIL) + return FALSE; + + g_print ("Pinging shell...\n"); + + alive = bonobo_unknown_ping (owner_objref); + if (alive) { + g_print ("\tSuccess\n"); + return TRUE; + } + + g_print ("\t*** Shell is dead\n"); + gtk_signal_emit (GTK_OBJECT (shell_component), signals[OWNER_DIED]); + + priv->ping_timeout_id = -1; + + return FALSE; +} + +static void +setup_owner_pinging (EvolutionShellComponent *shell_component) +{ + EvolutionShellComponentPrivate *priv; + + priv = shell_component->priv; + + if (priv->ping_timeout_id != -1) + g_source_remove (priv->ping_timeout_id); + + priv->ping_timeout_id = g_timeout_add (PING_DELAY, owner_ping_callback, shell_component); +} + + /* CORBA interface implementation. */ static GNOME_Evolution_FolderTypeList * @@ -320,9 +373,6 @@ impl_setOwner (PortableServer_Servant servant, CORBA_exception_set (ev, CORBA_USER_EXCEPTION, ex_GNOME_Evolution_ShellComponent_OldOwnerHasDied, NULL); - bonobo_object_unref (BONOBO_OBJECT (priv->owner_client)); - priv->owner_client = NULL; - gtk_signal_emit (GTK_OBJECT (shell_component), signals[OWNER_DIED]); } @@ -334,6 +384,8 @@ impl_setOwner (PortableServer_Servant servant, if (ev->_major == CORBA_NO_EXCEPTION) { priv->owner_client = evolution_shell_client_new (shell_duplicate); gtk_signal_emit (GTK_OBJECT (shell_component), signals[OWNER_SET], priv->owner_client, evolution_homedir); + + setup_owner_pinging (shell_component); } } @@ -584,6 +636,9 @@ destroy (GtkObject *object) priv = shell_component->priv; + if (priv->ping_timeout_id != -1) + g_source_remove (priv->ping_timeout_id); + CORBA_exception_init (&ev); if (priv->owner_client != NULL) @@ -622,6 +677,13 @@ destroy (GtkObject *object) static void impl_owner_died (EvolutionShellComponent *shell_component) { + EvolutionShellComponentPrivate *priv; + + priv = shell_component->priv; + + bonobo_object_unref (BONOBO_OBJECT (priv->owner_client)); + priv->owner_client = NULL; + /* The default implementation for ::owner_died emits ::owner_unset, so that we make the behavior for old components kind of correct without even if they don't handle the new ::owner_died signal correctly @@ -738,6 +800,8 @@ init (EvolutionShellComponent *shell_component) priv->user_creatable_item_types = NULL; priv->closure = NULL; + priv->ping_timeout_id = -1; + shell_component->priv = priv; } |