#!/bin/sh
# the next line restarts using wish \
exec $GRASS_WISH "$0" "$@"

if ![info exists env(GISBASE)] {
    puts stderr {
The TCLTKGRASS shell must be run (in the background) from the GRASS shell.
    }
    exit 1
}

set env(GISDBASE) [exec g.gisenv get=GISDBASE]
set env(LOCATION_NAME) [exec g.gisenv get=LOCATION_NAME]
set env(MAPSET) [exec g.gisenv get=MAPSET]

set env(TCLTKGRASSBASE) $env(GISBASE)/tcltkgrass

append regexp .* $env(GISBASE) {[^:]*}
regsub -- $regexp $env(PATH) "&:$env(TCLTKGRASSBASE)/script" env(PATH)


if {[info exists env(LANG)]} {
    regexp {([^_]*)} $env(LANG) match locale
    set env(TCLTKGRASSBASE) $env(GISBASE)/locale/$locale/tcltkgrass
}
if [catch {source $env(TCLTKGRASSBASE)/main/gui.tcl}] {
    set env(TCLTKGRASSBASE) $env(GISBASE)/tcltkgrass
    source $env(TCLTKGRASSBASE)/main/gui.tcl
}

if [catch {source $env(TCLTKGRASSBASE)/main/menu.tcl}] {
    set env(TCLTKGRASSBASE) $env(GISBASE)/tcltkgrass
    source $env(TCLTKGRASSBASE)/main/menu.tcl
}