Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!munnari.oz.au!uniwa!fennel.cc.uwa.oz.au!a_dent
From: a_dent@fennel.cc.uwa.oz.au
Newsgroups: comp.sys.mac.programmer
Subject: HELP - how to Group items in PICT?
Message-ID: <1991Feb3.024846.2879@fennel.cc.uwa.oz.au>
Date: 2 Feb 91 18:48:45 GMT
Organization: University of Western Australia
Lines: 34

I have been trying to group parts of a picture together and get absolutely
zero effect.  The only doco I have found is in IM vol I regarding the PicComment
call and the PicLParen and PicRParen comments.

I have been checking the resulting PICTure in MacDraw II and MS Works.

The following procedure is one of many called within a list during the recording
of a PICT - in all other respects the PICT works fine...

 procedure CAnyAgent.DrawForScrap;
  var
   i: integer;
 begin
  PenSize(1, 1);
  HLock(handle(self));  { so we can dereference instance variables with "with" }
  agentStyle.setStyle;
  PicComment(PicLParen, 0, nil);
  for i := 1 to agentLines do
   with lines[i] do begin
     if len = 0 then
      leave;   {******* exit loop on first empty line *****}
     MoveTo(x, y);
     DrawText(pos, 0, len);
    end;
  PicComment(PicRParen, 0, nil);
  HUnLock(handle(self));
 end;  { CAnyAgent.DrawForScrap }


Many MANY Thanks in Advance..
Andy Dent                     A.D. Software phone 09 249 2719
Mac & VAX programmer          94 Bermuda Dve, Ballajura
a_dent@fennel.cc.uwa.oz       Western Australia  6066     
a_dent@fennel.cc.uwa.oz.AU (international)