That is basically what I'm doing but it's not working.  I'd put the
code up but it's longish for posting to Usenet.  The basics boil down
to something like this:

$serverVariable["server"] = TkVariable.new
.....

TkButton.new(x) {
    ....
    command { $serverVariable["server"] = 1 }
}

It doesn't work right somehow...

I looked at "pack" and "configure" (after variable assignment) and
neither seems to do what I want.