Hi,
You are right. It's broken.
Guilty lines - 199/227 at
http://freegis.org/cgi-bin/viewcvs.cgi/grass6/lib/gtcltk/select.tcl.diff?r1=1.18&r2=1.19
Seems, that we need to go back to old, (ugly) code, if nobody comes up
with better solution. See attached patch. Somebody test && commit.
Maris.
2007/10/12, Trevor Wiens <[EMAIL PROTECTED]>:
> On two systems I've tried, choosing point symbols results in a format of
>
> [EMAIL PROTECTED]
>
> instead of
>
> basic / box
>
> As a result, the display of points fails
>
> T
> --
> Trevor Wiens
> [EMAIL PROTECTED]
>
> The significant problems that we face cannot be solved at the same
> level of thinking we were at when we created them.
> (Albert Einstein)
>
> _______________________________________________
> grass-dev mailing list
> [email protected]
> http://grass.itc.it/mailman/listinfo/grass-dev
>
Index: lib/gtcltk/select.tcl
===================================================================
RCS file: /home/grass/grassrepository/grass6/lib/gtcltk/select.tcl,v
retrieving revision 1.20
diff -u -u -r1.20 select.tcl
--- lib/gtcltk/select.tcl 19 Sep 2007 05:13:25 -0000 1.20
+++ lib/gtcltk/select.tcl 12 Oct 2007 06:23:43 -0000
@@ -230,6 +230,15 @@
# return selected elements -- separated by commas if there are > 1 elements
if { $selwin($id,selected) != "" } {
set ret ""
+ # At first - check isn't selected an symbol...
+ regexp {([EMAIL PROTECTED])@(.+)} [lindex $selwin($id,selected) 0] x file mapset
+ foreach sel [ lsort [glob -nocomplain $sympath/*] ] {
+ set sel [file tail $sel]
+ if {$mapset == $sel} {
+ return "$sel/$file"
+ }
+ }
+
set len [llength $selwin($id,selected)]
foreach elem $selwin($id,selected) {
append ret $elem
_______________________________________________
grass-dev mailing list
[email protected]
http://grass.itc.it/mailman/listinfo/grass-dev
