nautilus-application.c 13.8 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
#include <bonobo.h>
31 32
#include "file-manager/fm-icon-view.h"
#include "file-manager/fm-list-view.h"
33
#include <libnautilus-extensions/nautilus-gtk-macros.h>
34
#include <libnautilus-extensions/nautilus-stock-dialogs.h>
35
#include <libnautilus-extensions/nautilus-global-preferences.h>
36 37
#include <libnautilus-extensions/nautilus-file-utilities.h>
#include <libnautilus-extensions/nautilus-string-list.h>
38
#include <libnautilus-extensions/nautilus-undo-manager.h>
39
#include <liboaf/liboaf.h>
40
#include "nautilus-desktop-window.h"
41

42 43 44 45 46 47 48 49 50 51 52 53 54 55 56
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
57
	NULL,
58 59 60 61 62 63 64
	&manufactures,
	&create_object
};
static PortableServer_ServantBase__epv base_epv;
static POA_Bonobo_GenericFactory__vepv vepv = {
	&base_epv,
	&factory_epv
65 66 67
};

static CORBA_boolean
68 69 70
manufactures (PortableServer_Servant servant,
	      const CORBA_char *iid,
	      CORBA_Environment *ev)
71
{
72 73
	return strcmp (iid, "OAFIID:nautilus_file_manager_icon_view:42681b21-d5ca-4837-87d2-394d88ecc058") == 0
		|| strcmp (iid, "OAFIID:nautilus_file_manager_list_view:521e489d-0662-4ad7-ac3a-832deabe111c") == 0;
74 75 76
}

static CORBA_Object
77 78 79 80
create_object (PortableServer_Servant servant,
	       const CORBA_char *iid,
	       const Bonobo_stringlist *params,
	       CORBA_Environment *ev)
81
{
82
	FMDirectoryView *directory_view;
Darin Adler's avatar
Darin Adler committed
83
	NautilusView *view;
84

85 86 87 88
	if (strcmp (iid, "OAFIID:nautilus_file_manager_icon_view:42681b21-d5ca-4837-87d2-394d88ecc058") == 0) {
		directory_view = FM_DIRECTORY_VIEW (gtk_object_new (fm_icon_view_get_type (), NULL));
	} else if (strcmp (iid, "OAFIID:nautilus_file_manager_list_view:521e489d-0662-4ad7-ac3a-832deabe111c") == 0) {
		directory_view = FM_DIRECTORY_VIEW (gtk_object_new (fm_list_view_get_type (), NULL));
Gene Z. Ragan's avatar
CVS:  
Gene Z. Ragan committed
89
	} else {
90
		return CORBA_OBJECT_NIL;
Gene Z. Ragan's avatar
CVS:  
Gene Z. Ragan committed
91
	}
92
        
93
	view = fm_directory_view_get_nautilus_view (directory_view);
94
	return CORBA_Object_duplicate (bonobo_object_corba_objref (BONOBO_OBJECT (view)), ev);
95 96
}

97
static CORBA_Object
98 99 100
create_factory (PortableServer_POA poa,
		NautilusApplication *bonobo_object,
		CORBA_Environment *ev)
101
{
102
	POA_Bonobo_GenericFactory *servant;
Gene Z. Ragan's avatar
CVS:  
Gene Z. Ragan committed
103

104 105
	servant = g_new0 (POA_Bonobo_GenericFactory, 1);
	servant->vepv = &vepv;
106 107
	POA_Bonobo_GenericFactory__init ((PortableServer_Servant) servant, ev);
	return bonobo_object_activate_servant (BONOBO_OBJECT (bonobo_object), servant);
108 109 110
}

static void
111
nautilus_application_initialize_class (NautilusApplicationClass *klass)
112
{
113
	GTK_OBJECT_CLASS (klass)->destroy = nautilus_application_destroy;
114 115 116
}

static void
117
nautilus_application_initialize (NautilusApplication *application)
118
{
119
	CORBA_Environment ev;
120
	CORBA_Object corba_object;
121
	
122 123 124
	/* Create an undo manager */
	application->undo_manager = nautilus_undo_manager_new ();

125
	CORBA_exception_init (&ev);
126

127 128
	corba_object = create_factory (bonobo_poa (), application, &ev);
	bonobo_object_construct (BONOBO_OBJECT (application), corba_object);
129

130
	CORBA_exception_free (&ev);
131 132
}

133 134
NautilusApplication *
nautilus_application_new (void)
135
{
136
	return NAUTILUS_APPLICATION (gtk_object_new (nautilus_application_get_type (), NULL));
137 138 139
}

static void
140
nautilus_application_destroy (GtkObject *object)
141
{
142 143
	/* Shut down preferences. This is needed so that the global
	 * preferences object and all its allocations are freed. Not
144 145 146
	 * 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,
147
	 * but it adds noise to memory profile tool runs.
148 149
	 */
	nautilus_global_preferences_shutdown ();
150

151
	nautilus_bookmarks_exiting ();
152

153 154
	NAUTILUS_CALL_PARENT_CLASS (GTK_OBJECT_CLASS, destroy, (object));
}
155

156
static void
157
display_caveat (GtkWindow *parent_window)
158
{
159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183
	GtkWidget *dialog;
	GtkWidget *frame;
	GtkWidget *pixmap;
	GtkWidget *hbox;
	GtkWidget *text;
	char *file_name;

	dialog = gnome_dialog_new (_("Nautilus: caveat"),
				   GNOME_STOCK_BUTTON_OK,
				   NULL);
  	gtk_container_set_border_width (GTK_CONTAINER (dialog), GNOME_PAD);
  	gtk_window_set_policy (GTK_WINDOW (dialog), FALSE, FALSE, FALSE);

  	hbox = gtk_hbox_new (FALSE, GNOME_PAD);
  	gtk_container_set_border_width (GTK_CONTAINER (hbox), GNOME_PAD);
  	gtk_widget_show (hbox);
  	gtk_box_pack_start (GTK_BOX (GNOME_DIALOG (dialog)->vbox), 
  			    hbox,
  			    FALSE, FALSE, 0);

	frame = gtk_frame_new (NULL);
	gtk_widget_show (frame);
	gtk_frame_set_shadow_type (GTK_FRAME (frame), GTK_SHADOW_IN);
  	gtk_box_pack_start (GTK_BOX (hbox), frame, FALSE, FALSE, 0);
	
Darin Adler's avatar
Darin Adler committed
184
	file_name = nautilus_pixmap_file ("About_Image.png");
185 186 187 188 189
	pixmap = gnome_pixmap_new_from_file (file_name);
	g_free (file_name);
	gtk_widget_show (pixmap);
	gtk_container_add (GTK_CONTAINER (frame), pixmap);

190 191 192 193 194 195 196 197 198
  	text = gtk_label_new
		(_("The Nautilus shell is under development; it's not "
  		   "ready for daily use. Many features, including some "
  		   "of the best ones, are not yet done, partly done, or "
  		   "unstable. The program doesn't look or act the way "
  		   "it will in version 1.0."
		   "\n\n"
		   "If you do decide to test this version of Nautilus, "
		   "beware. The program could do something "
John Sullivan's avatar
John Sullivan committed
199
		   "unpredictable and may even delete or overwrite "
200 201 202 203
		   "files on your computer."
		   "\n\n"
		   "For more information, visit http://nautilus.eazel.com."));
    	gtk_label_set_line_wrap (GTK_LABEL (text), TRUE);
204 205 206 207 208
	gtk_widget_show (text);
  	gtk_box_pack_start (GTK_BOX (hbox), text, FALSE, FALSE, 0);

  	gnome_dialog_set_close (GNOME_DIALOG (dialog), TRUE);

209 210 211
	if (parent_window != NULL) {
		gnome_dialog_set_parent (GNOME_DIALOG (dialog), parent_window);
	}
212 213

	gtk_widget_show (GTK_WIDGET (dialog));
214 215
}

216
static void
217
nautilus_application_check_user_directories (NautilusApplication *application)
218 219 220 221 222 223
{
	const char		*user_directory;
	const char		*user_main_directory;
	const char		*desktop_directory;
	NautilusStringList	*dir_list;
	
224
	g_assert (NAUTILUS_IS_APPLICATION (application));
225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258

	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");
	}
	    
	if (!g_file_test (user_main_directory, G_FILE_TEST_ISDIR)) {
		nautilus_string_list_insert (dir_list, "User Main Directory");
	}
	    
	if (!g_file_test (desktop_directory, G_FILE_TEST_ISDIR)) {
		nautilus_string_list_insert (dir_list, "Desktop Directory");
	}

	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.");

259
		nautilus_error_dialog (error_string, NULL);
260 261 262 263 264 265 266 267

		g_free (dir_list_concatenated);
		g_free (error_string);
	}

	nautilus_string_list_free (dir_list);
}

268
void
269 270 271
nautilus_application_startup (NautilusApplication *application,
			      gboolean manage_desktop,
			      const char *urls[])
272
{
273 274 275
	OAF_RegistrationResult result;
	const char *message, *detailed_message;
	GnomeDialog *dialog;
276
	const char **p;
277
	NautilusWindow *window;
278
	NautilusWindow *first_window;
279

280 281 282 283 284 285 286 287 288 289 290 291 292 293 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
	/* Try to register the file manager view factory with OAF. */
	result = oaf_active_server_register
		("OAFIID:nautilus_file_manager_factory:bd1e1862-92d7-4391-963e-37583f0daef3",
		 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 a PATH that doesn't include
		 * directory containg the oafd executable and oafd is
		 * not already running. 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: Add technical details here. They should come
		 * in the form of more detailed message that replaces
		 * the novice message if you press a button. The more
		 * detailed message should be complete and stand alone
		 * since it replaces the novice message.
		 */
		detailed_message = _("Nautilus can't be used now. "
				     "Rebooting the computer or installing "
				     "Nautilus again may fix the problem. "
				     "Check out all of this excellent detail!");
		break;
	case OAF_REG_ALREADY_ACTIVE:
		/* Another copy of Nautilus is already
		 * running. Eventually 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 = NULL;
		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;
	}

	/* Check the user's ~/.nautilus directories and post warnings
	 * if there are problems
344
	 */
345
	nautilus_application_check_user_directories (application);
346

347 348
	/* Set up the desktop. */
	if (manage_desktop) {
349
		gtk_widget_show (GTK_WIDGET (nautilus_desktop_window_new (application)));
350
	}
351

352 353 354 355
  	/* Create the other windows. */
	first_window = NULL;
	if (urls != NULL) {
		for (p = urls; *p != NULL; p++) {
356
			window = nautilus_application_create_window (application);
357 358 359 360 361 362
			nautilus_window_goto_uri (window, *p);
			if (first_window == NULL) {
				first_window = window;
			}
		}
	}
363 364 365 366 367
	/* 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.
	 */
	if (/* !manage_desktop && */ first_window == NULL) {
368
		first_window = nautilus_application_create_window (application);
369 370
		nautilus_window_go_home (first_window);
	}
371

372
	/* Show the "not ready for prime time" dialog after the first
373 374
	 * window appears, so it's on top.
	 */
375 376 377
	/* FIXME bugzilla.eazel.com 1256: It's not on top of the
         * windows other than the first one.
	 */
Darin Adler's avatar
Darin Adler committed
378
	if (g_getenv ("NAUTILUS_NO_CAVEAT_DIALOG") == NULL) {
379 380 381 382 383 384
	  	if (first_window == NULL) {
			display_caveat (NULL);
		} else {
			gtk_signal_connect (GTK_OBJECT (first_window), "show",
					    display_caveat, first_window);
		}
385
  	}
386 387 388
}

static void
389
nautilus_application_destroy_window (GtkObject *obj, NautilusApplication *application)
390
{
391 392 393
	application->windows = g_slist_remove (application->windows, obj);
	if (application->windows == NULL) {
  		nautilus_application_quit();
394
	}
395 396 397
}

void 
398
nautilus_application_quit (void)
399
{
400
	gtk_main_quit ();
401 402 403
}

NautilusWindow *
404
nautilus_application_create_window (NautilusApplication *application)
405
{
406
	NautilusWindow *window;
407 408

	g_return_val_if_fail (NAUTILUS_IS_APPLICATION (application), NULL);
409
	
410
	window = NAUTILUS_WINDOW (gtk_object_new (nautilus_window_get_type (),
411
						  "app", GTK_OBJECT (application),
412 413
						  "app_id", "nautilus", NULL));
	gtk_signal_connect (GTK_OBJECT (window),
414 415 416 417
			    "destroy", nautilus_application_destroy_window,
			    application);

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

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

424
	return window;
425
}