[Gnucash-changes] r12978 - gnucash/trunk/src - Install price quote sources without calling main.scm.

[Chris Shoemaker]

Author: chris
Date: 2006-01-24 23:54:12 -0500 (Tue, 24 Jan 2006)
New Revision: 12978
Trac: http://svn.gnucash.org/trac/changeset/12978

Modified:
   gnucash/trunk/src/bin/gnucash-bin.c
   gnucash/trunk/src/scm/main.scm
   gnucash/trunk/src/scm/price-quotes.scm
Log:
   Install price quote sources without calling main.scm.
   This makes the startup sequence a little clearer.


Modified: gnucash/trunk/src/bin/gnucash-bin.c
===================================================================
--- gnucash/trunk/src/bin/gnucash-bin.c	2006-01-25 04:32:56 UTC (rev 12977)
+++ gnucash/trunk/src/bin/gnucash-bin.c	2006-01-25 04:54:12 UTC (rev 12978)
@@ -361,6 +361,12 @@
     gnc_hook_add_dangler(HOOK_UI_SHUTDOWN, (GFunc)gnc_file_quit, NULL);
 
     scm_c_eval_string("(gnc:main)");
+
+    /* Install Price Quote Sources */
+    gnc_update_splash_screen(_("Checking Finance::Quote..."));
+    scm_c_use_module("gnucash price-quotes");
+    scm_c_eval_string("(gnc:price-quotes-install-sources)");  
+
     gnc_hook_run(HOOK_STARTUP, NULL);
     
     if (!nofile && (fn = get_file_to_load())) {

Modified: gnucash/trunk/src/scm/main.scm
===================================================================
--- gnucash/trunk/src/scm/main.scm	2006-01-25 04:32:56 UTC (rev 12977)
+++ gnucash/trunk/src/scm/main.scm	2006-01-25 04:54:12 UTC (rev 12978)
@@ -232,6 +232,7 @@
 
   ;; Now we can load a bunch of files.
   (load-from-path "command-line.scm") ;; depends on app-utils (N_, etc.)...
+  (load-from-path "printing/print-check.scm") ;; depends on simple-obj...
 
   (gnc:initialize-config-vars) ;; in command-line.scm
   ;; handle unrecognized command line args
@@ -242,11 +243,5 @@
                            gnc:main-window-book-close-handler)
   (gnc:hook-add-dangler gnc:*book-closed-hook* 
                         gnc:main-window-book-close-handler)
-  
-  (load-from-path "printing/print-check.scm") ;; depends on simple-obj...
-  
-  (gnc:update-splash-screen (_ "Checking Finance::Quote..."))
-  (gnc:price-quotes-install-sources)  
-  
   ;;return to C
   )

Modified: gnucash/trunk/src/scm/price-quotes.scm
===================================================================
--- gnucash/trunk/src/scm/price-quotes.scm	2006-01-25 04:32:56 UTC (rev 12977)
+++ gnucash/trunk/src/scm/price-quotes.scm	2006-01-25 04:54:12 UTC (rev 12978)
@@ -23,9 +23,7 @@
 (define-module (gnucash price-quotes))
 
 (export yahoo-get-historical-quotes)
-;;(export gnc:fq-check-sources) ;; called in main.scm
 (export gnc:book-add-quotes) ;; called from gnome/dialog-price-edit-db.c
-(export gnc:add-quotes-to-book-at-url) ;; called in command-line.scm
 (export gnc:price-quotes-install-sources)
 
 (use-modules (gnucash process))