[GRASS-SVN] r38310 - grass/branches/develbranch_6/lib/gtcltk

[svn_grass at osgeo.org]

Author: hamish
Date: 2009-07-08 06:42:51 -0400 (Wed, 08 Jul 2009)
New Revision: 38310

Modified:
   grass/branches/develbranch_6/lib/gtcltk/select.tcl
Log:
mapset is not a full path

Modified: grass/branches/develbranch_6/lib/gtcltk/select.tcl
===================================================================
--- grass/branches/develbranch_6/lib/gtcltk/select.tcl	2009-07-08 10:40:48 UTC (rev 38309)
+++ grass/branches/develbranch_6/lib/gtcltk/select.tcl	2009-07-08 10:42:51 UTC (rev 38310)
@@ -161,15 +161,15 @@
     }
     
     set location_path [file normalize [file join "$env(GISDBASE)" "$env(LOCATION_NAME)"]]
-    set current_mapset [file normalize "$env(MAPSET)"]
+    set current_mapset "$env(MAPSET)"
     set sympath [file normalize [file join "$env(GISBASE)" "etc" "symbol"]]
-    
+
     # main selection subroutine
     if {$element != "symbol"} {
         foreach dir [exec g.mapsets -p] {
             set windfile [file normalize [file join "$location_path" "$dir" "WIND"]]
             if { ! [ file exists $windfile ] } { continue }
-            if { $dir == [file tail "$current_mapset"] } {
+            if { $dir == "$current_mapset" } {
                 $tree insert end root ms_$dir -text $dir -data $dir -open 1 \
                     -image [Bitmap::get openfold] -drawcross auto
             } else {