code:

---

SAVEDS ULONG shapeDraw(struct IClass *cl,Object *obj,struct MUIP_Draw *msg) {
   struct MyShapeData *data = INST_DATA(cl,obj);
   		 UWORD ocx, ocy;

   DoSuperMethodA(cl,obj,(Msg) msg);

   if (!(msg->flags & MADF_DRAWOBJECT)) return(0);

   if (data->layer) {
      SetAPen(_rp(obj), 0);
      RectFill(_rp(obj), _mleft(obj), _mtop(obj), _mright(obj), _mbottom(obj));
      ocx = data->layer->cx;
      ocy = data->layer->cy;
      data->layer->cx = -_mleft(obj);
      data->layer->cy = -_mtop(obj);
      RepaintShapeLayerRastPort(_rp(obj), data->layer);
      data->layer->cx = ocx;
      data->layer->cy = ocy;
   } else {
      SetAPen(_rp(obj), 0);
      RectFill(_rp(obj), _mleft(obj), _mtop(obj), _mright(obj), _mbottom(obj));
   }
   return(0);
}

---