Michael Barton wrote:
> I have a postdoc who just arrived to learn a bit of GRASS in my lab today.
> He installed WinGRASS about a week ago. It launches fine. But he cannot see
> any of the map files inside the mapset when he tries to add a map to a GUI
> window. This is controlled by select.tcl. We checked this against the
> Spearfish dataset and confirmed that the data are fine and that he does have
> access to the maps. In fact, if he types in a map name, any module seems to
> run fine--including displaying a map in the GIS Manager.
>
> When you click a button to launch select.tcl, you get a window/dialog with a
> tree which shows available mapsets and, if they exist, any accessible maps
> in the mapset. You can select a map and click OK. Everything works for Javi
> except seeing the maps inside the mapsets. He can even see the mapsets
> (first level of the tree); just not the maps inside a mapset.
>
> A first guess on my part is something to do with translating forward slash
> for *nix and Mac "/" to backward slash for Windows "\". The odd thing is
> that this worked fine with earlier builds of WinGRASS, so maybe it's
> something else.
The relevant code is:
# main selection subroutine
if {$element != "symbol"} {
foreach dir [exec g.mapsets -p] {
set windfile "$location_path/$dir/WIND"
if { ! [ file exists $windfile ] } { continue }
if { $dir == $current_mapset } {
$tree insert end root ms_$dir -text $dir -data $dir -open 1 \
-image [Bitmap::get openfold] -drawcross auto
} else {
$tree insert end root ms_$dir -text $dir -data $dir -open 0 \
-image [Bitmap::get folder] -drawcross auto
}
set path "$location_path/$dir/$element/"
foreach fp [ lsort [glob -nocomplain $path/*] ] {
set file [file tail $fp]
$tree insert end ms_$dir [EMAIL PROTECTED] -text $file -data $file \
-image [Bitmap::get file] -drawcross never
}
}
}
The "file exists $windfile" test is obviously working, otherwise he
wouldn't see the mapsets. The most likely problem is with the "glob"
command. The glob(n) manpage implies that / should work. Can you try
running tclsh/wish interactively and testing the behaviour of the glob
command?
--
Glynn Clements <[EMAIL PROTECTED]>
_______________________________________________
grass-dev mailing list
grass-dev@grass.itc.it
http://grass.itc.it/mailman/listinfo/grass-dev
