[GRASS-dev] gis.m: font selection in module panels

[Moritz Lennert]

Michael,

Thanks for the font selection in the module panels, but I have the
following problem. I can select the font the first time, but when I try to
open the font dialog a second time in the same panel, I get:

can't read "env(GRASS_FONT)": no such variable
can't read "env(GRASS_FONT)": no such variable
    while executing
"if {[info exists env(GRASS_FONT)] && $env(GRASS_FONT) != ""} {
    	set fontindex [lsearch $fontlist $env(GRASS_FONT)]
    	if {$fontindex > -1} {
   ..."
    (procedure "Gm:DefaultFont" line 26)
    invoked from within
"Gm:DefaultFont dbarscale"
    (procedure "GmBarscale::set_font" line 5)
    invoked from within
"GmBarscale::set_font 1"
    ("uplevel" body line 1)
    invoked from within
"uplevel \#0 $cmd"
    (procedure "Button::_release" line 18)
    invoked from within
"Button::_release .mainframe.frame.pw1.f1.frame.sw.sf.frame.fr.color.d"
    (command bound to event)

Moritz