#!/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)

source $env(TCLTKGRASSBASE)/main/gui.tcl
source $env(TCLTKGRASSBASE)/main/menu.tcl