Index: tkMacOSXXStubs.c
===================================================================
RCS file: /proj/rd/cvsroot/saods9/tk8.6.4/macosx/tkMacOSXXStubs.c,v
retrieving revision 1.1
retrieving revision 1.3
diff -r1.1 -r1.3
885a886
> 	/*
892a894,900
> 	*/
> 	if ( bitmap_rep == Nil                        ||
> 	     [bitmap_rep samplesPerPixel] != 4 ||
> 	     [bitmap_rep isPlanar] != 0               ) {
> 	    TkMacOSXDbgMsg("XGetImage: Failed to construct NSBitmapRep");
> 	    return NULL;
> 	}
898a907
> 	/*
901a911,913
> 	*/
> 	if ( [bitmap_rep isPlanar ] == 0 &&
> 	     [bitmap_rep samplesPerPixel] == 4 ) {
