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

*** empty log message ***

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2055 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2000-03-05 20:54:04 +00:00
parent 1da4e807a7
commit b2f2293c12
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/scm/extensions.scm
View File

@ -61,22 +61,22 @@
"Export data as text (Danger: Unfinished)")
(lambda () (gnc:extensions-qif-import win))))
(define strings-item
(gnc:make-menu-item
"Save Translatable Strings"
"Save strings that need to be translated"
(list "Extensions" "")
(lambda ()
(let ((file-name (gnc:file-selection-dialog
"Select file to save strings in" "")))
(if file-name (gnc:save-translatable-strings file-name))))))
(gnc:add-extension menu)
(gnc:add-extension export-item)
(gnc:add-extension qif-item)
(if (gnc:debugging?)
(begin
(define strings-item
(gnc:make-menu-item
"Save Translatable Strings"
"Save strings that need to be translated"
(list "Extensions" "")
(lambda ()
(let ((file-name (gnc:file-selection-dialog
"Select file to save strings in" "")))
(if file-name (gnc:save-translatable-strings file-name))))))
(gnc:add-extension strings-item))))
(gnc:add-extension strings-item)))
(if (gnc:debugging?)