[Zoom]Raster problems

[glen e. p. ropella]

Hey guys,

Does anyone know why Raster or ZoomRaster might not erase
(fill with black) when told to?  Or do you know why a rectangle
only gets drawn out to some constant value in x and y and not 
beyond?

For example, I use fillRectangleX0:Y0:X1:Y1Color: to color in 
a block from (0,0) to (500,30); but, the ZoomRaster only displays
out to (I think) 80 or so.  The rest of the space is blank.

Here's the relevant code:
ShapeObserver.m::-buildObjects()
------------------------------------------------
[...]
  shapeRaster = [ZoomRaster createBegin: self];
  shapeRaster = [shapeRaster createEnd];
  [shapeRaster setColormap: colorMap];
  [shapeRaster setZoomFactor: zoomFactor];
  [shapeRaster setWidth: rasterX];
  [shapeRaster setHeight: rasterY];
  [shapeRaster setWindowTitle: "Shapes"];
  [shapeRaster pack];
[...]
-------------------------------------------
ShapeObserver.m::-drawShape()
-------------------------------------------
- drawShape {
  [shapeRaster fillRectangleX0:0 Y0:0 X1: 500 Y1: 30 Color: 30];
  return self;
}
-----------------------------------------------
ShapeObserver.m::-buildActions()
-----------------------------------------------
[...]
  displayActions = [ActionGroup create: self];
  [displayActions createActionTo: observedCounter     message: M(print)];
  [displayActions createActionTo: probeDisplayManager message: M(update)];
  [displayActions createActionTo: shapeRaster         message: M(erase)];
  [displayActions createActionTo: self        message: M(drawShape)];
  [displayActions createActionTo: shapeRaster message: M(drawSelf)];
  [displayActions createActionTo: actionCache         message: M(doTkEvents)];
[...]


This app is a direct descendant of Template, so the rest of it looks
exactly like that one.

Attached is a picture of the raster I get from this.

Thanks for any help.
glen
p.s. BTW, I'm using a WinNT box; so it's possible that this won't 
happen on a unix box.

rastershot.jpg
Description: JPEG image

--
glen e. p. ropella                =><=          Hail Eris!
Home: http://www.trail.com/~gepr/home.html  (505) 424-0448
Work: http://www.swarm.com                  (505) 995-0818