On 2/28/06 12:41 AM, "Geoff Canyon" <[EMAIL PROTECTED]> wrote:
> To handle unplaced groups: > > getProp uRuggedID > get the long id of the target > if "card" is among the words of it then return (word 1 to 3 of it > && word -7 to -4 of it) > return word 1 to 3 of it > end uRuggedID > > getProp uRuggedLongID > get the long id of the target > if "card" is among the words of it then return (word 1 to 3 of it > && word -7 to -1 of it) > return (word 1 to 3 of it && word -3 to -1 of it) > end uRuggedLongID That works for unplaced groups but not for cards. This works for all Rev object types (I think): getProp uRuggedID if word 1 of the target is "stack" then put the long id of the target into tRuggedID else if (word 1 of the target is "group") \ and (word 1 of the owner of the target is "stack") then put "bkgnd id" && the short id of the owner of the target into tRuggedID -- note: "bkgnd" is word 1 of the long id of an unplaced group else put abbr id of the target into tRuggedID put long id of the target into tLongID put offset(" of card id ",tLongID) into tOffset if tOffset > 0 then put char tOffset to tOffset + offset(space,tLongID,tOffset + 12) \ + 11 of tLongID after tRuggedID -- note: 12 is the length of " of card id " end if end if return tRuggedID end uRuggedID getProp uRuggedLongID put the long id of the target into tLongID put the uRuggedID of tLongID into tRuggedLongID put offset(" of stack " & quote,tLongID) into tOffset put char tOffset to -1 of tLongID after tRuggedLongID return tRuggedLongID end uRuggedLongID Maybe Geoff will come up with a simpler and/or faster implementation... -- Dick _______________________________________________ use-revolution mailing list use-revolution@lists.runrev.com Please visit this url to subscribe, unsubscribe and manage your subscription preferences: http://lists.runrev.com/mailman/listinfo/use-revolution