Hi,
it comes from wrong regexp in gui.tcl file. Attached patch fixes problem.
Maris.
2007/10/17, Markus Neteler <[EMAIL PROTECTED]>:
>
> We discovered that both 6.2 and 6.3 fail in DE locale when starting
> for example g.region:
>
> bad window path name ".nb.fGebe_für_Shell-Skript-Weiterverwendung_aus."
> bad window path name ".nb.fGebe_für_Shell-Skript-Weiterverwendung_aus."
> while executing
> "winfo reqwidth $path.f$page"
> (procedure "compute_size" line 9)
> invoked from within
> "compute_size $path"
> (procedure "NoteBook::_realize" line 7)
> invoked from within
> "NoteBook::_realize .nb"
> (command bound to event)
>
> The related .po file contains:
>
> general/g.region/cmd/main.c:136
> msgid "Print;Shell Script"
> msgstr "Gebe für Shell-Skript-Weiterverwendung aus."
>
> and the source code:
>
> flag.gprint = G_define_flag();
> flag.gprint->key = 'g';
> flag.gprint->description = _("Print in shell script style");
> flag.gprint->guisection = _("Print;Shell Script");
>
> Questions:
> - is it correct to apply _() gettext macros to >guisection?
> - if so, how to avoid this bug with accented characters/umlauts?
>
> This potentially affects many modules.
> ?
> Markus
> --
> View this message in context:
> http://www.nabble.com/i18N-guisection-bug-tf4642555.html#a13260519
> Sent from the Grass - Dev mailing list archive at Nabble.com.
>
>
> _______________________________________________
> grass-dev mailing list
> [email protected]
> http://grass.itc.it/mailman/listinfo/grass-dev
>
Index: lib/gis/gui.tcl
===================================================================
RCS file: /home/grass/grassrepository/grass6/lib/gis/gui.tcl,v
retrieving revision 2.23
diff -u -u -r2.23 gui.tcl
--- lib/gis/gui.tcl 6 Oct 2007 21:13:47 -0000 2.23
+++ lib/gis/gui.tcl 17 Oct 2007 21:11:53 -0000
@@ -713,7 +713,7 @@
}
# Replace all non-ascii chars, spaces, $ and braces in path with undescore
- set path [regsub -all {[][{}\$\s\u0100-\uffff]} $path "_"]
+ set path [regsub -all {[][{}\$\s\u007a-\uffff\u0001-\u002d\u005b-\u0060]} $path "_"]
set root [expr {$path == "" ? "." : $path}]
set opt($dlg,path) $path
set opt($dlg,root) $root
_______________________________________________
grass-dev mailing list
[email protected]
http://grass.itc.it/mailman/listinfo/grass-dev
