r18859 - gnucash/trunk/src - Fix Bug 611810 - GC crashes when I click on File -> Properties

[Phil Longstaff]

Author: plongstaff
Date: 2010-03-06 15:35:16 -0500 (Sat, 06 Mar 2010)
New Revision: 18859
Trac: http://svn.gnucash.org/trac/changeset/18859

Modified:
   gnucash/trunk/src/business/business-reports/easy-invoice.scm
   gnucash/trunk/src/business/business-reports/fancy-invoice.scm
   gnucash/trunk/src/business/business-reports/invoice.scm
   gnucash/trunk/src/business/business-reports/job-report.scm
   gnucash/trunk/src/business/business-reports/owner-report.scm
   gnucash/trunk/src/business/business-reports/taxinvoice.eguile.scm
   gnucash/trunk/src/engine/engine.i
   gnucash/trunk/src/report/locale-specific/us/taxtxf-de_DE.scm
   gnucash/trunk/src/scm/main-window.scm
Log:
Fix Bug 611810 -  GC crashes when I click on File -> Properties

SCM files still refered to gnc-book-get-slots which had been removed.  gnc-book-get-slots was replaced everywhere by qof-book-get-slots.


Modified: gnucash/trunk/src/business/business-reports/easy-invoice.scm
===================================================================
--- gnucash/trunk/src/business/business-reports/easy-invoice.scm	2010-03-06 20:33:42 UTC (rev 18858)
+++ gnucash/trunk/src/business/business-reports/easy-invoice.scm	2010-03-06 20:35:16 UTC (rev 18859)
@@ -644,7 +644,7 @@
 
 (define (make-myname-table book)
   (let* ((table (gnc:make-html-table))
-	 (slots (gnc-book-get-slots book))
+	 (slots (qof-book-get-slots book))
 	 (name (kvp-frame-get-slot-path-gslist
 		slots (append gnc:*kvp-option-path*
 			      (list gnc:*business-label* gnc:*company-name*))))
@@ -749,7 +749,7 @@
 
         (if (opt-val "Display" "My Company ID")
           (let* ((book (gncInvoiceGetBook invoice))
-                 (slots (gnc-book-get-slots book))
+                 (slots (qof-book-get-slots book))
 	         (taxid (kvp-frame-get-slot-path-gslist
 		    slots (append gnc:*kvp-option-path*
 		                  (list gnc:*business-label* gnc:*company-id*)))))

Modified: gnucash/trunk/src/business/business-reports/fancy-invoice.scm
===================================================================
--- gnucash/trunk/src/business/business-reports/fancy-invoice.scm	2010-03-06 20:33:42 UTC (rev 18858)
+++ gnucash/trunk/src/business/business-reports/fancy-invoice.scm	2010-03-06 20:35:16 UTC (rev 18859)
@@ -688,7 +688,7 @@
 
 (define (make-myname-table book date-format title)
   (let* ((table (gnc:make-html-table))
-	 (slots (gnc-book-get-slots book))
+	 (slots (qof-book-get-slots book))
 	 (name (kvp-frame-get-slot-path-gslist
 		slots (append gnc:*kvp-option-path*
 			      (list gnc:*business-label* gnc:*company-name*))))
@@ -818,7 +818,7 @@
     
     (if (not (null? invoice))
 	(let* ((book (gncInvoiceGetBook invoice))
-	      (slots (gnc-book-get-slots book))
+	      (slots (qof-book-get-slots book))
 	      (date-object #f)
 	      (helper-table (gnc:make-html-table))
 	      (title (title-string default-title custom-title)))

Modified: gnucash/trunk/src/business/business-reports/invoice.scm
===================================================================
--- gnucash/trunk/src/business/business-reports/invoice.scm	2010-03-06 20:33:42 UTC (rev 18858)
+++ gnucash/trunk/src/business/business-reports/invoice.scm	2010-03-06 20:35:16 UTC (rev 18859)
@@ -608,7 +608,7 @@
 
 (define (make-myname-table book date-format)
   (let* ((table (gnc:make-html-table))
-	 (slots (gnc-book-get-slots book))
+	 (slots (qof-book-get-slots book))
 	 (name (kvp-frame-get-slot-path-gslist
 		slots (append gnc:*kvp-option-path*
 			      (list gnc:*business-label* gnc:*company-name*))))

Modified: gnucash/trunk/src/business/business-reports/job-report.scm
===================================================================
--- gnucash/trunk/src/business/business-reports/job-report.scm	2010-03-06 20:33:42 UTC (rev 18858)
+++ gnucash/trunk/src/business/business-reports/job-report.scm	2010-03-06 20:35:16 UTC (rev 18859)
@@ -516,7 +516,7 @@
 
 (define (make-myname-table book date-format)
   (let* ((table (gnc:make-html-table))
-	 (slots (gnc-book-get-slots book))
+	 (slots (qof-book-get-slots book))
 	 (name (kvp-frame-get-slot-path-gslist
 		slots (append gnc:*kvp-option-path*
 			      (list gnc:*business-label* gnc:*company-name*))))

Modified: gnucash/trunk/src/business/business-reports/owner-report.scm
===================================================================
--- gnucash/trunk/src/business/business-reports/owner-report.scm	2010-03-06 20:33:42 UTC (rev 18858)
+++ gnucash/trunk/src/business/business-reports/owner-report.scm	2010-03-06 20:35:16 UTC (rev 18859)
@@ -525,7 +525,7 @@
 
 (define (make-myname-table book date-format)
   (let* ((table (gnc:make-html-table))
-	 (slots (gnc-book-get-slots book))
+	 (slots (qof-book-get-slots book))
 	 (name (kvp-frame-get-slot-path-gslist
 		slots (append gnc:*kvp-option-path*
 			      (list gnc:*business-label* gnc:*company-name*))))

Modified: gnucash/trunk/src/business/business-reports/taxinvoice.eguile.scm
===================================================================
--- gnucash/trunk/src/business/business-reports/taxinvoice.eguile.scm	2010-03-06 20:33:42 UTC (rev 18858)
+++ gnucash/trunk/src/business/business-reports/taxinvoice.eguile.scm	2010-03-06 20:35:16 UTC (rev 18859)
@@ -44,7 +44,7 @@
            (currency   (gncInvoiceGetCurrency   opt-invoice))
            (entries    (gncInvoiceGetEntries    opt-invoice))
            (splits     '()) 
-           (slots      (gnc-book-get-slots book))
+           (slots      (qof-book-get-slots book))
            (coyname    (coy-info slots gnc:*company-name*))
            (coycontact (coy-info slots gnc:*company-contact*))
            (coyaddr    (coy-info slots gnc:*company-addy*))

Modified: gnucash/trunk/src/engine/engine.i
===================================================================
--- gnucash/trunk/src/engine/engine.i	2010-03-06 20:33:42 UTC (rev 18858)
+++ gnucash/trunk/src/engine/engine.i	2010-03-06 20:35:16 UTC (rev 18859)
@@ -118,6 +118,8 @@
 %include <qofbookslots.h>
 %include <qofbook.h>
 
+KvpFrame* qof_book_get_slots(QofBook* book);
+
 gnc_numeric gnc_numeric_create(gint64 num, gint64 denom);
 gnc_numeric gnc_numeric_zero(void);
 gint64 gnc_numeric_num(gnc_numeric a);

Modified: gnucash/trunk/src/report/locale-specific/us/taxtxf-de_DE.scm
===================================================================
--- gnucash/trunk/src/report/locale-specific/us/taxtxf-de_DE.scm	2010-03-06 20:33:42 UTC (rev 18858)
+++ gnucash/trunk/src/report/locale-specific/us/taxtxf-de_DE.scm	2010-03-06 20:35:16 UTC (rev 18859)
@@ -749,7 +749,7 @@
                                        (cons (current-time) 0))))))
 	  (tax-nr (or 
 		   (kvp-frame-get-slot-path-gslist
-		    (gnc-book-get-slots (gnc-get-current-book))
+		    (qof-book-get-slots (gnc-get-current-book))
 		    (append gnc:*kvp-option-path*
 			    (list gnc:*tax-label* gnc:*tax-nr-label*)))
 		   ""))

Modified: gnucash/trunk/src/scm/main-window.scm
===================================================================
--- gnucash/trunk/src/scm/main-window.scm	2010-03-06 20:33:42 UTC (rev 18858)
+++ gnucash/trunk/src/scm/main-window.scm	2010-03-06 20:35:16 UTC (rev 18859)
@@ -30,7 +30,7 @@
 
 (define (gnc:main-window-properties-cb)
   (let* ((book (gnc-get-current-book))
-	 (slots (gnc-book-get-slots book)))
+	 (slots (qof-book-get-slots book)))
 
     (define (changed_cb)
       (qof-book-kvp-changed book))