IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

* src/gnome-utils/gw-gnome-utils-spec.scm: add more wrapping

Browse Source 
from gw-gnc

* src/gnome-utils/gnome-utils.scm: don't use gw-gnc


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@6318 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2001-12-11 10:47:40 +00:00
parent ec6ee571a9
commit fb9b3f21a4
2 changed files with 33 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/gnome-utils/gnome-utils.scm
View File

@ -1,7 +1,7 @@
(define-module (gnucash gnome-utils)) (define-module (gnucash gnome-utils))
(use-modules (g-wrapped gw-gnome-utils)) (use-modules (g-wrapped gw-gnome-utils))
(use-modules (gnucash main) (g-wrapped gw-gnc)) ;; FIXME: delete after we finish modularizing. (use-modules (gnucash main)) ;; FIXME: delete after we finish modularizing.
(use-modules (gnucash gnc-module)) (use-modules (gnucash gnc-module))
(gnc:module-load "gnucash/app-utils" 0) (gnc:module-load "gnucash/app-utils" 0)

34
src/gnome-utils/gw-gnome-utils-spec.scm
View File

@ -171,20 +171,50 @@
'gnc:verify-dialog 'gnc:verify-dialog
'<gw:bool> '<gw:bool>
"gnc_verify_dialog" "gnc_verify_dialog"
'(((<gw:m-chars-caller-owned> gw:const) message) (<gw:bool> yes_is_default)) '(((<gw:m-chars-caller-owned> gw:const) message)
(<gw:bool> yes_is_default))
"Show yes/no dialog box with given message.") "Show yes/no dialog box with given message.")
(gw:wrap-function
mod
'gnc:info-dialog
'<gw:void>
"gnc_info_dialog"
'(((<gw:m-chars-caller-owned> gw:const) message))
"Show ok dialog box with given message.")
(gw:wrap-function
mod
'gnc:warning-dialog
'<gw:void>
"gnc_warning_dialog"
'(((<gw:m-chars-caller-owned> gw:const) message))
"Show warning dialog box with given message.")
(gw:wrap-function (gw:wrap-function
mod mod
'gnc:add-extension 'gnc:add-extension
'<gw:void> '<gw:void>
"gnc_add_extension" "gnc_add_extension"
'((<gw:scm> extension)) '((<gw:scm> extension))
"") "Add a menu extension.")
(gw:wrap-function (gw:wrap-function
mod mod
'gnc:html-encode-string 'gnc:html-encode-string
'<glib:g-chars-caller-owned> '<glib:g-chars-caller-owned>
"gnc_html_encode_string" '(((<gw:m-chars-caller-owned> gw:const) bookname))) "gnc_html_encode_string" '(((<gw:m-chars-caller-owned> gw:const) bookname)))
(gw:wrap-function
mod
'gnc:choose-radio-option-dialog-parented
'<gw:int>
"gnc_choose_radio_option_dialog_parented"
'((<gnc:UIWidget> parent)
((<gw:m-chars-caller-owned> gw:const) title)
((<gw:m-chars-caller-owned> gw:const) msg)
(<gw:int> default-choice)
(<gnc:list-of-string> choices))
"Show a dialog offering different mutually exclusive choices
in a radio list.")
) )