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

Fix minor i18n issues.

Browse Source 
* Don't translate gtk stock button labels
 * Don't split sentences when translating
 * Exclude formatting from translatable messages when possible

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@18274 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Christian Stimming 2009-08-23 20:36:13 +00:00
parent e724acd97b
commit 4a8ceb4e44
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/gnome/glade/price.glade
View File

@ -504,7 +504,7 @@ Unknown</property>
<property name="visible">True</property> <property name="visible">True</property>
<property name="can_focus">True</property> <property name="can_focus">True</property>
<property name="receives_default">True</property> <property name="receives_default">True</property>
<property name="label" translatable="yes">gtk-apply</property> <property name="label" translatable="no">gtk-apply</property>
<property name="use_stock">True</property> <property name="use_stock">True</property>
<property name="response_id">-10</property> <property name="response_id">-10</property>
</widget> </widget>

6
src/report/report-system/eguile-gnc.scm
View File

@ -184,7 +184,9 @@
(set! s-expression (read))))) (set! s-expression (read)))))
(define (error-handler key subr message args . rest) (define (error-handler key subr message args . rest)
(display (_ "<p>An error occurred when processing the template:<br>")) (display "<p>")
(display (_ "An error occurred when processing the template:"))
(display "<br>")
(display (display
(escape-html (escape-html
(with-output-to-string (with-output-to-string
@ -200,7 +202,7 @@
;; Process a template file and return the result as a string ;; Process a template file and return the result as a string
(define (eguile-file-to-string infile environment) (define (eguile-file-to-string infile environment)
(if (not (access? infile R_OK)) (if (not (access? infile R_OK))
(string-append (_ "Template file ") infile (_ " can not be read")) (sprintf #f (_ "Template file \"%s\" can not be read") infile)
(let ((script (with-input-from-file (let ((script (with-input-from-file
infile infile
(lambda () (with-output-to-string template->script))))) (lambda () (with-output-to-string template->script)))))