[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