Strange screenshots problem

[Erik Rauch]

Hello, 

I encounter a strange problem when trying to use the screenshot code in
Heatbugs (2.1.1). What happens is that when the program gets to this code,
the app slows to a crawl, and top reveals that the X server is eating up a
lot of cycles. Then all other X windows except for Swarm's disappear. The
other windows periodically come back and disappear again. Is there a
better way to output screenshots?

My system is Debian Linux, Swarm 2.1.1-1, tcl 8.2.3-2, tk 8.2.3-2. 

#ifdef SCREENSHOTS
      {
        char filename[40];
        sprintf (filename, "graph%07ld.png", getCurrentTime ());
        [actionCache doTkEvents];
        [[[[[[Pixmap createBegin: self]
              setWidget: [unhappyGraph getGraph]]
             setDecorationsFlag: NO]
            createEnd] save: filename] drop];
        sprintf (filename, "raster%07ld.png", getCurrentTime ());
        [[[[[[Pixmap createBegin: self]
              setWidget: worldRaster]
             setDecorationsFlag: YES]
            createEnd] save: filename] drop];
      }
#endif



                  ==================================
   Swarm-Support is for discussion of the technical details of the day
   to day usage of Swarm.  For list administration needs (esp.
   [un]subscribing), please send a message to <address@hidden>
   with "help" in the body of the message.