nautilus-application.c 14.3 KB
Newer Older
Gene Z. Ragan's avatar
CVS:  
Gene Z. Ragan committed
1
/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 8; tab-width: 8 -*- */
2 3 4 5 6 7 8

/*
 *  Nautilus
 *
 *  Copyright (C) 1999, 2000 Red Hat, Inc.
 *  Copyright (C) 2000 Eazel, Inc.
 *
9
 *  This program is free software; you can redistribute it and/or
10 11 12 13
 *  modify it under the terms of the GNU General Public License as
 *  published by the Free Software Foundation; either version 2 of the
 *  License, or (at your option) any later version.
 *
14
 *  This program is distributed in the hope that it will be useful,
15 16 17 18 19
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 *  General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
20
 *  along with this program; if not, write to the Free Software
21 22 23 24 25 26
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 *  Author: Elliot Lee <sopwith@redhat.com>,
 *
 */

27
#include <config.h>
28
#include "nautilus-application.h"
29

30 31 32 33 34 35
/* FIXME: This is a workaround for ORBit bug where including idl files
 * in other idl files causes trouble.
 */
#include "nautilus-shell-interface.h"
#define nautilus_view_component_H

36 37
#include "file-manager/fm-icon-view.h"
#include "file-manager/fm-list-view.h"
38 39 40 41 42 43
#include "nautilus-desktop-window.h"
#include "nautilus-first-time-druid.h"
#include "nautilus-shell.h"
#include <bonobo.h>
#include <libnautilus-extensions/nautilus-file-utilities.h>
#include <libnautilus-extensions/nautilus-global-preferences.h>
44
#include <libnautilus-extensions/nautilus-gtk-macros.h>
45
#include <libnautilus-extensions/nautilus-icon-factory.h>
46
#include <libnautilus-extensions/nautilus-stock-dialogs.h>
47
#include <libnautilus-extensions/nautilus-string-list.h>
48
#include <libnautilus-extensions/nautilus-undo-manager.h>
49
#include <liboaf/liboaf.h>
50

51 52 53 54
#define FACTORY_IID   "OAFIID:nautilus_factory:bd1e1862-92d7-4391-963e-37583f0daef3"
#define ICON_VIEW_IID "OAFIID:nautilus_file_manager_icon_view:42681b21-d5ca-4837-87d2-394d88ecc058"
#define LIST_VIEW_IID "OAFIID:nautilus_file_manager_list_view:521e489d-0662-4ad7-ac3a-832deabe111c"
#define SHELL_IID     "OAFIID:nautilus_shell:cd5183b2-3913-4b74-9b8e-10528b0de08d"
55

56 57 58 59 60 61 62 63 64 65 66 67 68 69 70
static CORBA_boolean manufactures                                (PortableServer_Servant    servant,
								  const CORBA_char         *iid,
								  CORBA_Environment        *ev);
static CORBA_Object  create_object                               (PortableServer_Servant    servant,
								  const CORBA_char         *iid,
								  const Bonobo_stringlist  *params,
								  CORBA_Environment        *ev);
static void          nautilus_application_initialize             (NautilusApplication      *application);
static void          nautilus_application_initialize_class       (NautilusApplicationClass *klass);
static void          nautilus_application_destroy                (GtkObject                *object);
static void          nautilus_application_check_user_directories (NautilusApplication      *application);

NAUTILUS_DEFINE_CLASS_BOILERPLATE (NautilusApplication, nautilus_application, BONOBO_OBJECT_TYPE)

static POA_Bonobo_GenericFactory__epv factory_epv = {
Gene Z. Ragan's avatar
CVS:  
Gene Z. Ragan committed
71
	NULL,
72 73 74 75 76 77 78
	&manufactures,
	&create_object
};
static PortableServer_ServantBase__epv base_epv;
static POA_Bonobo_GenericFactory__vepv vepv = {
	&base_epv,
	&factory_epv
79 80 81
};

static CORBA_boolean
82 83 84
manufactures (PortableServer_Servant servant,
	      const CORBA_char *iid,
	      CORBA_Environment *ev)
85
{
86 87 88
	return strcmp (iid, ICON_VIEW_IID) == 0
		|| strcmp (iid, LIST_VIEW_IID) == 0
		|| strcmp (iid, SHELL_IID) == 0;
89 90 91
}

static CORBA_Object
92 93 94 95
create_object (PortableServer_Servant servant,
	       const CORBA_char *iid,
	       const Bonobo_stringlist *params,
	       CORBA_Environment *ev)
96
{
97
	BonoboObject *object;
98
	FMDirectoryView *directory_view;
99 100
	static NautilusShell *shell;
	NautilusApplication *application;
101

102
	if (strcmp (iid, ICON_VIEW_IID) == 0) {
103
		directory_view = FM_DIRECTORY_VIEW (gtk_object_new (fm_icon_view_get_type (), NULL));
104 105
		object = BONOBO_OBJECT (fm_directory_view_get_nautilus_view (directory_view));
	} else if (strcmp (iid, LIST_VIEW_IID) == 0) {
106
		directory_view = FM_DIRECTORY_VIEW (gtk_object_new (fm_list_view_get_type (), NULL));
107 108 109 110 111 112 113 114 115
		object = BONOBO_OBJECT (fm_directory_view_get_nautilus_view (directory_view));
	} else if (strcmp (iid, SHELL_IID) == 0) {
		if (shell == NULL) {
			application = NAUTILUS_APPLICATION (((BonoboObjectServant *) servant)->bonobo_object);
			shell = nautilus_shell_new (application);
		} else {
			bonobo_object_ref (BONOBO_OBJECT (shell));
		}
		object = BONOBO_OBJECT (shell);
Gene Z. Ragan's avatar
CVS:  
Gene Z. Ragan committed
116
	} else {
117
		return CORBA_OBJECT_NIL;
Gene Z. Ragan's avatar
CVS:  
Gene Z. Ragan committed
118
	}
119 120

	return CORBA_Object_duplicate (bonobo_object_corba_objref (object), ev);
121 122
}

123
static CORBA_Object
124 125 126
create_factory (PortableServer_POA poa,
		NautilusApplication *bonobo_object,
		CORBA_Environment *ev)
127
{
128
	BonoboObjectServant *servant;
Gene Z. Ragan's avatar
CVS:  
Gene Z. Ragan committed
129

130 131
	servant = g_new0 (BonoboObjectServant, 1);
	((POA_Bonobo_GenericFactory *) servant)->vepv = &vepv;
132 133
	POA_Bonobo_GenericFactory__init ((PortableServer_Servant) servant, ev);
	return bonobo_object_activate_servant (BONOBO_OBJECT (bonobo_object), servant);
134 135 136
}

static void
137
nautilus_application_initialize_class (NautilusApplicationClass *klass)
138
{
139
	GTK_OBJECT_CLASS (klass)->destroy = nautilus_application_destroy;
140 141 142
}

static void
143
nautilus_application_initialize (NautilusApplication *application)
144
{
145
	CORBA_Environment ev;
146
	CORBA_Object corba_object;
147

148
	CORBA_exception_init (&ev);
149
	corba_object = create_factory (bonobo_poa (), application, &ev);
150 151 152 153 154
	if (ev._major != CORBA_NO_EXCEPTION) {
		g_error ("could not create factory");
	}
	CORBA_exception_free (&ev);

155
	bonobo_object_construct (BONOBO_OBJECT (application), corba_object);
156

157 158
	/* Create an undo manager */
	application->undo_manager = nautilus_undo_manager_new ();
159 160
}

161 162
NautilusApplication *
nautilus_application_new (void)
163
{
164
	return NAUTILUS_APPLICATION (gtk_object_new (nautilus_application_get_type (), NULL));
165 166 167
}

static void
168
nautilus_application_destroy (GtkObject *object)
169
{
170 171
	/* Shut down preferences. This is needed so that the global
	 * preferences object and all its allocations are freed. Not
172 173 174
	 * calling this function would have NOT cause the user to lose
	 * preferences.  The only effect would be to leak those
	 * objects - which would be collected at exit() time anyway,
175
	 * but it adds noise to memory profile tool runs.
176 177
	 */
	nautilus_global_preferences_shutdown ();
178

179
	nautilus_bookmarks_exiting ();
180

181 182
	NAUTILUS_CALL_PARENT_CLASS (GTK_OBJECT_CLASS, destroy, (object));
}
183

184
static void
185
nautilus_application_check_user_directories (NautilusApplication *application)
186
{
187 188 189
	char			*user_directory;
	char			*user_main_directory;
	char			*desktop_directory;
190 191
	NautilusStringList	*dir_list;
	
192
	g_assert (NAUTILUS_IS_APPLICATION (application));
193 194 195 196 197 198 199 200 201 202 203 204 205 206

	user_directory = nautilus_get_user_directory ();
	user_main_directory = nautilus_get_user_main_directory ();
	desktop_directory = nautilus_get_desktop_directory ();

	dir_list = nautilus_string_list_new ();
	
	/* FIXME bugzilla.eazel.com 1115: Need better name for "User Directory"
	 * and "User Data Directory".
	 */

	if (!g_file_test (user_directory, G_FILE_TEST_ISDIR)) {
		nautilus_string_list_insert (dir_list, "User Directory");
	}
207
	g_free (user_directory);
208 209 210 211
	    
	if (!g_file_test (user_main_directory, G_FILE_TEST_ISDIR)) {
		nautilus_string_list_insert (dir_list, "User Main Directory");
	}
212
	g_free (user_main_directory);
213 214 215 216
	    
	if (!g_file_test (desktop_directory, G_FILE_TEST_ISDIR)) {
		nautilus_string_list_insert (dir_list, "Desktop Directory");
	}
217
	g_free (desktop_directory);
218 219 220 221 222 223 224 225 226 227 228 229

	if (nautilus_string_list_get_length (dir_list) > 0) {
		char *dir_list_concatenated;
		char *error_string;

		dir_list_concatenated = nautilus_string_list_as_concatenated_string (dir_list, "\n");
		
		error_string = g_strdup_printf ("%s\n\n%s\n\n%s",
						"The following directories are missing:",
						dir_list_concatenated,
						"Please restart Nautilus to fix this problem.");

230
		nautilus_error_dialog (error_string, NULL);
231 232 233 234 235 236 237 238

		g_free (dir_list_concatenated);
		g_free (error_string);
	}

	nautilus_string_list_free (dir_list);
}

239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267
static int
nautilus_strv_length (const char * const *strv)
{
	const char * const *p;

	for (p = strv; *p != NULL; p++) { }
	return p - strv;
}

static Nautilus_URIList *
nautilus_make_uri_list_from_strv (const char * const *strv)
{
	int length, i;
	Nautilus_URIList *uri_list;

	length = nautilus_strv_length (strv);

	uri_list = Nautilus_URIList__alloc ();
	uri_list->_maximum = length;
	uri_list->_length = length;
	uri_list->_buffer = CORBA_sequence_Nautilus_URI_allocbuf (length);
	for (i = 0; i < length; i++) {
		uri_list->_buffer[i] = CORBA_string_dup (strv[i]);
	}
	CORBA_sequence_set_release (uri_list, CORBA_TRUE);

	return uri_list;
}

268
void
269 270 271
nautilus_application_startup (NautilusApplication *application,
			      gboolean manage_desktop,
			      const char *urls[])
272
{
273 274
	CORBA_Environment ev;
	Nautilus_Shell shell;
275 276 277
	OAF_RegistrationResult result;
	const char *message, *detailed_message;
	GnomeDialog *dialog;
278 279 280 281 282 283 284 285 286
	Nautilus_URIList *url_list;

	/* Check if this is the first time running the program by seeing
	 * if the user_main_directory exists; if not, run the first time druid 
	 * instead of launching the application
	 */
	/* FIXME: You will get multiple druids if you invoke nautilus again. */
	if (!nautilus_user_main_directory_exists ()) {
		nautilus_first_time_druid_show (application, manage_desktop, urls);
287 288 289 290
		return;
	}

	/* Check the user's ~/.nautilus directories and post warnings
291
	 * if there are problems.
292
	 */
293
	nautilus_application_check_user_directories (application);
294

295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374
	/* Start up the factory. */
#if 0
	for (;;) {
		shell = oaf_activate_from_id (SHELL_IID, OAF_FLAG_EXISTING_ONLY, NULL, NULL);
		if (shell != CORBA_OBJECT_NIL) {
			g_message ("did activate");
			break;
		}
		g_message ("didn't activate");
#endif

		/* Try to register the file manager view factory with OAF. */
		result = oaf_active_server_register
			(FACTORY_IID,
			 bonobo_object_corba_objref (BONOBO_OBJECT (application)));
		switch (result) {
		case OAF_REG_SUCCESS:
			/* We are registered with OAF and all is right with the world. */
			message = NULL;
			break;
		case OAF_REG_NOT_LISTED:
			/* Can't register myself due to trouble locating the
			 * nautilus.oafinfo file. This has happened when you
			 * launch Nautilus with an LD_LIBRARY_PATH that
			 * doesn't include the directory containg the oaf
			 * library. It could also happen if the
			 * nautilus.oafinfo file was not present for some
			 * reason. Sometimes killing oafd and gconfd fixes
			 * this problem but we don't exactly understand why,
			 * since neither of the above causes explain it.
			 */
			message = _("Nautilus can't be used now. "
				    "Rebooting the computer or installing "
				    "Nautilus again may fix the problem.");
			/* FIXME: The guesses and stuff here are lame. */
			detailed_message = _("Nautilus can't be used now. "
					     "Rebooting the computer or installing "
					     "Nautilus again may fix the problem. "
					     "OAF couldn't locate the nautilus.oafinfo file. "
					     "One cause of this seems to be an LD_LIBRARY_PATH "
					     "that does not include the oaf library's directory. "
					     "Another possible cause would be bad install "
					     "with a missing nautilus.oafinfo file. "
					     "Sometimes killing oafd and gconfd fixes "
					     "the problem, but we don't know why. "
					     "We need a much less confusing message here for Nautilus 1.0.");
			break;
		case OAF_REG_ALREADY_ACTIVE:
			/* Another copy of Nautilus is already running. */
			/* FIXME: We want to "glom on" to this old copy. */
			message = _("Nautilus is already running. "
				    "Soon, instead of presenting this dialog, "
				    "the already-running copy of Nautilus will "
				    "respond by opening windows.");
			detailed_message = NULL;
			break;
		default:
			/* This should never happen. */
			g_warning ("bad error code from oaf_active_server_register");
		case OAF_REG_ERROR:
			/* Some misc. error (can never happen with current
			 * version of OAF). Show dialog and terminate the
			 * program.
			 */
			message = _("Nautilus can't be used now, due to an unexpected error.");
			detailed_message = _("Nautilus can't be used now, due to an unexpected error "
					     "from OAF when attempting to register the file manager view server.");
			break;
		}
		if (message != NULL) {
			dialog = nautilus_error_dialog_with_details
				(message, detailed_message, NULL);
			gtk_signal_connect (GTK_OBJECT (dialog), "destroy",
					    gtk_main_quit, NULL);
			return;
		}
#if 0
	}
#endif

375 376
	CORBA_exception_init (&ev);

377 378 379
	/* FIXME: This is a temporary hack so we can use the CORBA
         * interface even though I can't get activation to work.
	 */
380
	shell = CORBA_Object_duplicate (bonobo_object_corba_objref (BONOBO_OBJECT (nautilus_shell_new (application))), &ev);
381

382 383
	/* Set up the desktop. */
	if (manage_desktop) {
384
		Nautilus_Shell_manage_desktop (shell, &ev);
385
	}
386

387 388
  	/* Create the other windows. */
	if (urls != NULL) {
389 390 391
		url_list = nautilus_make_uri_list_from_strv (urls);
		Nautilus_Shell_open_windows (shell, url_list, &ev);
		CORBA_free (url_list);
392
	}
393

394 395 396 397
	/* FIXME bugzilla.eazel.com 1051: Change this logic back so it won't
	 * make a new window when asked to manage the desktop, once we have
	 * a way to get rid of the desktop.
	 */
398 399
	if (/* !manage_desktop && */ urls == NULL) {
		Nautilus_Shell_open_default_window (shell, &ev);
400
	}
401

402 403 404 405 406
	/* We're done with the shell now, so let it go. */
	Nautilus_Shell_unref (shell, &ev);
	CORBA_Object_release (shell, &ev);

	CORBA_exception_free (&ev);
407 408 409
}

static void
410
nautilus_application_destroy_window (GtkObject *obj, NautilusApplication *application)
411
{
412 413 414
	application->windows = g_slist_remove (application->windows, obj);
	if (application->windows == NULL) {
  		nautilus_application_quit();
415
	}
416 417 418
}

void 
419
nautilus_application_quit (void)
420
{
421
	gtk_main_quit ();
422 423 424
}

NautilusWindow *
425
nautilus_application_create_window (NautilusApplication *application)
426
{
427
	NautilusWindow *window;
428 429

	g_return_val_if_fail (NAUTILUS_IS_APPLICATION (application), NULL);
430
	
431
	window = NAUTILUS_WINDOW (gtk_object_new (nautilus_window_get_type (),
432
						  "app", GTK_OBJECT (application),
433 434
						  "app_id", "nautilus", NULL));
	gtk_signal_connect (GTK_OBJECT (window),
435 436 437 438
			    "destroy", nautilus_application_destroy_window,
			    application);

	application->windows = g_slist_prepend (application->windows, window);
439

Gene Z. Ragan's avatar
CVS:  
Gene Z. Ragan committed
440
	/* Do not yet show the window. It will be shown later on if it can
441 442 443
	 * successfully display its initial URI. Otherwise it will be destroyed
	 * without ever having seen the light of day.
	 */
444

445
	return window;
446
}