Use guile style names instead of C sytle names.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7795 57a11ea4-9604-0410-9ed3-97b8803252fd

src/gnome-utils/gw-gnome-utils-spec.scm

@@ -462,7 +462,7 @@ be left empty")
 
   (gw:wrap-function
    ws
-   'gnc:mdi_show_progress
+   'gnc:mdi-show-progress
    '<gw:void>
    "gnc_mdi_show_progress"
    '(((<gw:mchars> caller-owned const) message)
@@ -471,7 +471,7 @@ be left empty")
 
   (gw:wrap-function
    ws
-   'gnc:set_busy_cursor
+   'gnc:set-busy-cursor
    '<gw:void>
    "gnc_set_busy_cursor"
    '((<gtk:Widget*> window)
@@ -480,7 +480,7 @@ be left empty")
 
   (gw:wrap-function
    ws
-   'gnc:unset_busy_cursor
+   'gnc:unset-busy-cursor
    '<gw:void>
    "gnc_unset_busy_cursor"
    '((<gtk:Widget*> window))

src/report/report-system/report-utilities.scm

@@ -669,13 +669,13 @@
     (gnc:transaction-get-void-status trans)))
 
 (define (gnc:report-starting report-name)
-  (gnc:mdi_show_progress (sprintf #f
+  (gnc:mdi-show-progress (sprintf #f
 				  (_ "Building '%s' report ...")
 				  (gnc:gettext report-name))
 			 0))
 
 (define (gnc:report-render-starting report-name)
-  (gnc:mdi_show_progress (sprintf #f
+  (gnc:mdi-show-progress (sprintf #f
 				  (_ "Rendering '%s' report ...")
 				  (if (string-null? report-name)
 				      (gnc:gettext "Untitled")
@@ -683,10 +683,10 @@
 			 0))
 
 (define (gnc:report-percent-done percent)
-  (gnc:mdi_show_progress #f (truncate percent)))
+  (gnc:mdi-show-progress #f (truncate percent)))
 
 (define (gnc:report-finished)
-  (gnc:mdi_show_progress #f -1))
+  (gnc:mdi-show-progress #f -1))
 
 ;; function to count the total number of splits to be iterated
 (define (gnc:accounts-count-splits accounts)

src/report/report-system/report.scm

@@ -381,7 +381,7 @@
   (let ((report (gnc:find-report id))
 	(start-time (gettimeofday))
 	(html #f))
-    (gnc:set_busy_cursor #f #t)
+    (gnc:set-busy-cursor #f #t)
     (gnc:backtrace-if-exception 
      (lambda ()
        (if report
@@ -392,7 +392,7 @@
 ;;	     (newline)
 ;;	     (display html) (newline)
 	     ))))
-    (gnc:unset_busy_cursor #f)
+    (gnc:unset-busy-cursor #f)
     html))
 
 (define (gnc:report-templates-for-each thunk)