From b2f2293c12e10a50d5bd4a57622162182f97ba70 Mon Sep 17 00:00:00 2001 From: Dave Peticolas Date: Sun, 5 Mar 2000 20:54:04 +0000 Subject: [PATCH] *** empty log message *** git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2055 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/scm/extensions.scm | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/src/scm/extensions.scm b/src/scm/extensions.scm index e01b0e1e0f..f2bc5a97a1 100644 --- a/src/scm/extensions.scm +++ b/src/scm/extensions.scm @@ -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?)