🚀 go-pugleaf

I encountered a problem when using CopyBits:


VAR
  MyBitMap : BitMap;
  MyPattrn : Pattern;  { 8 bits by 8 bits }


BEGIN
  MyBitMap.baseAddr:= @MyPattrn;
  MyBitMap.rowBytes:= 1;    { 8*8 pixels }
  SetRect(MyBitMap.bounds,  0,0,8,8);  { 8*8 pixels }

  CopyBits(MyBitMap,
           MyW.port.portBits,
           srcRect,
           dstRect,
           srcXor,
           NIL);      { No mask region }
END;

 
This example causes "System error 02", Address error.
It appears CopyBits cannot copy from a BitImage with
rowBytes=1. When I changed my BitImage to 16*8 pixels,
rowBytes=2, everything functioned ok. 

Does anyone know where the problem is, with me or with
QuickDraw??

Thanks in advance,
Rick Jansen
  { philabs,decvax,seismo}!mcvax!sara70!rick