[Gnucash-changes] Finish regularizing C side hook names.

David Hampton hampton at cvs.gnucash.org
Thu Jun 9 19:06:59 EDT 2005


Log Message:
-----------
Finish regularizing C side hook names.

Tags:
----
gnucash-gnome2-dev

Modified Files:
--------------
    gnucash/src/app-utils:
        prefs.scm
    gnucash/src/core-utils:
        gnc-hooks.h
    gnucash/src/gnome-utils:
        gnc-menu-extensions.scm
    gnucash/src/report/report-gnome:
        report-gnome.scm
    gnucash/src/scm:
        main.scm

Revision Data
-------------
Index: prefs.scm
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/app-utils/prefs.scm,v
retrieving revision 1.28.4.5
retrieving revision 1.28.4.6
diff -Lsrc/app-utils/prefs.scm -Lsrc/app-utils/prefs.scm -u -r1.28.4.5 -r1.28.4.6
--- src/app-utils/prefs.scm
+++ src/app-utils/prefs.scm
@@ -82,7 +82,7 @@
 (define (gnc:save-all-options)
   (gnc:save-global-options)
   (gnc:hook-run-danglers gnc:*save-options-hook*)
-  (gnc:run-c-hook "save-options-hook" #f))
+  (gnc:run-c-hook "hook_save_options" #f))
 
 (define (gnc:save-global-options)
   (gnc:make-home-dir)
Index: gnc-hooks.h
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/core-utils/Attic/gnc-hooks.h,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -Lsrc/core-utils/gnc-hooks.h -Lsrc/core-utils/gnc-hooks.h -u -r1.1.2.2 -r1.1.2.3
--- src/core-utils/gnc-hooks.h
+++ src/core-utils/gnc-hooks.h
@@ -64,14 +64,16 @@
 /* Common hook names */
 #define HOOK_STARTUP		"hook_startup"
 #define HOOK_SHUTDOWN		"hook_shutdown"
-#define HOOK_UI_STARTUP		"ui-startup-hook"
+#define HOOK_UI_STARTUP		"hook_ui_startup"
 #define HOOK_UI_POST_STARTUP	"hook_ui_post_startup"
 #define HOOK_UI_SHUTDOWN	"hook_ui_shutdown"
-#define HOOK_NEW_BOOK		"new-book-hook"
-#define HOOK_REPORT		"report-hook"
+#define HOOK_NEW_BOOK		"hook_new_book"
+#define HOOK_REPORT		"hook_report"
+#define HOOK_SAVE_OPTIONS	"hook_save_options"
+#define HOOK_ADD_EXTENSION	"hook_add_extension"
 
 /* Common session hook names */
-#define HOOK_BOOK_OPENED	"book-opened-hook"
-#define HOOK_BOOK_CLOSED	"book-closed-hook"
+#define HOOK_BOOK_OPENED	"hook_book_opened"
+#define HOOK_BOOK_CLOSED	"hook_book_closed"
 
 #endif /* GNC_HOOKS_H */
Index: gnc-menu-extensions.scm
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/gnome-utils/gnc-menu-extensions.scm,v
retrieving revision 1.4.4.3
retrieving revision 1.4.4.4
diff -Lsrc/gnome-utils/gnc-menu-extensions.scm -Lsrc/gnome-utils/gnc-menu-extensions.scm -u -r1.4.4.3 -r1.4.4.4
--- src/gnome-utils/gnc-menu-extensions.scm
+++ src/gnome-utils/gnc-menu-extensions.scm
@@ -63,7 +63,7 @@
   (define menu (gnc:make-menu (N_ "Extensions") (list "_Tools")))
   (gnc:add-extension menu)
   (gnc:hook-run-danglers gnc:*add-extension-hook*)
-  (gnc:run-c-hook "add-extension-hook") #f)
+  (gnc:run-c-hook "hook_add_extension") #f)
 
 (if (gnc:debugging?)
     (gnc:hook-add-dangler gnc:*ui-startup-hook*
Index: report-gnome.scm
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/report/report-gnome/report-gnome.scm,v
retrieving revision 1.9.4.6
retrieving revision 1.9.4.7
diff -Lsrc/report/report-gnome/report-gnome.scm -Lsrc/report/report-gnome/report-gnome.scm -u -r1.9.4.6 -r1.9.4.7
--- src/report/report-gnome/report-gnome.scm
+++ src/report/report-gnome/report-gnome.scm
@@ -114,7 +114,7 @@
 
   ;; run report-hook danglers
   (gnc:hook-run-danglers gnc:*report-hook*)
-  (gnc:run-c-hook "report-hook" #f)
+  (gnc:run-c-hook "hook_report" #f)
 
   ;; push reports (new items added on top of menu)
   (gnc:add-report-template-menu-items))
Index: main.scm
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/scm/main.scm,v
retrieving revision 1.109.2.18
retrieving revision 1.109.2.19
diff -Lsrc/scm/main.scm -Lsrc/scm/main.scm -u -r1.109.2.18 -r1.109.2.19
--- src/scm/main.scm
+++ src/scm/main.scm
@@ -503,7 +503,7 @@
       (gnc:main-window-open-report (gnc:make-welcome-report) window))))
 
   (gnc:hook-run-danglers gnc:*startup-hook*)
-  (gnc:run-c-hook "startup-hook" #f)
+  (gnc:run-c-hook "hook_startup" #f)
 
   (if (gnc:config-var-value-get gnc:*loglevel*)
       (gnc:set-log-level-global (gnc:config-var-value-get gnc:*loglevel*))))
@@ -517,12 +517,12 @@
              (if (gnc:file-query-save)
                  (begin
                    (gnc:hook-run-danglers gnc:*ui-shutdown-hook*)
-		   (gnc:run-c-hook "ui-shutdown-hook" #f)
+		   (gnc:run-c-hook "hook_ui_shutdown" #f)
                    (gnc:gui-shutdown)))))
         (else
 	 (gnc:gui-destroy)
 	 (gnc:hook-run-danglers gnc:*shutdown-hook*)
-	 (gnc:run-c-hook "shutdown-hook" #f)
+	 (gnc:run-c-hook "hook_shutdown" #f)
          (gnc:engine-shutdown)
 	 (exit exit-status))))
 
@@ -582,9 +582,9 @@
 	  (gnc:update-splash-screen (_ "Loading data..."))
 	  (and (not (gnc:file-open-file file))
 	       (gnc:hook-run-danglers gnc:*book-opened-hook* #f)
-	       (gnc:run-c-hook "book-opened-hook" #f)))
+	       (gnc:run-c-hook "hook_book_opened" #f)))
         (and (gnc:hook-run-danglers gnc:*book-opened-hook* #f)
-	     (gnc:run-c-hook "book-opened-hook" #f)))))
+	     (gnc:run-c-hook "hook_book_opened" #f)))))
 
 (define (gnc:main)
 
@@ -646,7 +646,7 @@
           ;; no matter how or what we loaded, ensure the main-window title is valid...
           (gnc:main-window-update-title main-window)
           (gnc:hook-run-danglers gnc:*ui-post-startup-hook*)
-	  (gnc:run-c-hook "ui-post-startup-hook" #f)
+	  (gnc:run-c-hook "hook_ui_post_startup" #f)
           (gnc:start-ui-event-loop)
           (gnc:hook-remove-dangler gnc:*ui-shutdown-hook* gnc:gui-finish)))
         


More information about the gnucash-changes mailing list