I have this proc in my Tcl swiss-knife:
proc StartFileBrowser { dir } {
if { $::tcl_platform(platform) eq "windows" } {
set browserProg "explorer"
} elseif { $::tcl_platform(os) eq "Linux" } {
set browserProg "konqueror"
} elseif { $::tcl_platform(os) eq "Darwin" } {
set browserProg "open"
} elseif { $::tcl_platform(os) eq "SunOS" } {
set browserProg "filemgr -d"
} elseif { [string match "IRIX*" $::tcl_platform(os)] } {
set browserProg "fm"
} else {
set browserProg "xterm -e ls"
}
if { [file isdirectory $dir] } {
eval exec $browserProg [list [file nativename $dir]] &
}
}
Paul