[GRASS5] [bug #1561] (grass) tcl command error in tcltkgrass startup

[Glynn Clements]

Request Tracker wrote:

> this bug's URL: http://intevation.de/rt/webrt?serial_num=1561
> -------------------------------------------------------------------------
> 
> Subject: tcl command error in tcltkgrass startup
> 
> Platform: GNU/Linux/i386
> grass obtained from: CVS
> grass binary for platform: Compiled from Sources
> GRASS Version: 5.0.2-cvs 20030131
> 
> Attempting to start Tcltkgrass:
> 
> GRASS:/arc/ddgray/cvs/main/grass > tcltkgrass&
> [1] 16133
> GRASS:/arc/ddgray/cvs/main/grass > bad switch "-dictionary": must be -ascii, -integer, -real, -increasing -decreasing, or -command
>     while executing
> "lsort -dictionary [split [read $fd] \n]"
>     invoked from within
> "foreach line [lsort -dictionary [split [read $fd] \n]]..."
>     (procedure "set_list" line 25)
>     invoked from within
> "set_list etc ellipse.table 1 "\ \t""
>     invoked from within
> "set spheroids [set_list etc ellipse.table 1 "\ \t"]..."
>     (file "/opt/grass5/tcltkgrass/main/gui.tcl" line 1776)
>     invoked from within
> "source $env(TCLTKGRASSBASE)/main/gui.tcl"
>     invoked from within
> "if [catch {source $env(TCLTKGRASSBASE)/main/gui.tcl}] {
>     set env(TCLTKGRASSBASE) $env(GISBASE)/tcltkgrass
>     source $env(TCLTKGRASSBASE)/main/gui. ..."
>     (file "/opt/grass5/bin/tcltkgrass" line 26)
> 
> +++++++++++++++++++++++++++++++++++++++++++++++++
> 
> All home directory rc files had been cleared.
> 
> Problem occurred with 3 separate Tcl/Tk installations, most recent 8.3.3
> (Mandrake 9.0)
> 
> I can't think of anything local that might be causing this. But I'm not
> a Tcl expert.

It appears that the -dictionary switch was added in Tcl 8.0. It is a
case-insensitive version of -ascii.

For your immediate problem, I suggest changing -dictionary to -ascii
in /opt/grass5/tcltkgrass/main/gui.tcl (around line 1649).

For the developers: do we just change -dictionary to -ascii, or should
we try to use -dictionary if it is available (e.g. using "catch" to
fall-back to -ascii)?

-- 
Glynn Clements <glynn.clements at virgin.net>