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

[Michael Barton]

Moritz,

For when you get up tomorrow.

Try this for the entire if clause

    if {![info exists env(GRASS_FONT)]} {
        set fontindex -1
    } elseif {$env(GRASS_FONT) != ""} {
        set fontindex [lsearch $fontlist $env(GRASS_FONT)]
        if {$fontindex > -1} {
            $fontlb selection set $fontindex
            $fontlb see $fontindex
        }
    }

I'm kind of waving a dead chicken, but maybe this syntax will work.

Michael


On 5/20/07 6:27 AM, "Moritz Lennert" <mlennert at club.worldonline.be> wrote:

> 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
> 

__________________________________________
Michael Barton, Professor of Anthropology
School of Human Evolution & Social Change
Center for Social Dynamics & Complexity
Arizona State University

phone: 480-965-6213
fax: 480-965-7671
www: http://www.public.asu.edu/~cmbarton