Re: positioning windows

[Ginger Booth]

Dear long-suffering Nelson,

    I know, I'm a pest.  And you've been so generous, too.
    
    But if you're going to provide that access mechanism:

-setWindowPositionX: (int) x Y: (int) y {
    if ((x >= 0) && (y >= 0))
        [globalTkInterp eval: "wm geometry %s %+d%+d",
                  [[self getTopLevel] getWidgetName], x, y];
    else if ((x < 0) && (y >= 0))
        [globalTkInterp eval: "wm geometry %s %d%+d",
                  [[self getTopLevel] getWidgetName], x, y];
    else if ((x >= 0) && (y < 0))
        [globalTkInterp eval: "wm geometry %s %+d%d",
                  [[self getTopLevel] getWidgetName], x, y];
    else
        [globalTkInterp eval: "wm geometry %s %d%d",
                  [[self getTopLevel] getWidgetName], x, y];
              
   return self;
}

Location -0+0 is the upper-right-hand corner.  I can live with -1+0.
Really-ultra-super-generous would be giving some hooks to manipulate those
geometry strings in a useful manner.  
    
> Ask, and ye shall receive. I've added an accessor method to get the
> panel. All the SimControl stuff is in the process of changing now, as
> part of experiment swarm, I think it will be more flexible soon.

Thanks!

Cheers,
    Ginger