Copy to Group problems

[user]

Hi everyone,

I have a script intended to add, name and position a label and field group (which I refer to as a "doublet) into a group that already has a number of such doublet groups.

Here's the script:

on addFldDoublet theGroup
   put the number of grps in grp theGroup into lastDoublet
   put the short name of grp lastDoublet of grp theGroup into lastName
   put the left of grp lastName into newLeft
   put (the bottom of grp lastName +2) into newTop
   put lastName into nextName
   set itemDelimiter to "_"
   add 10 to last item of nextName
   set itemDelimiter to ","
   copy grp lastName to grp theGroup
   set the name of the last grp to nextName
   answer the short name of the last grp -- confirms the correct name
   put the short name of the last grp into newGrp
   answer newGrp -- confirms the correct name
   set the left of grp newGrp to newLeft
   set the top of grp newGrp to newTop  
end addFldDoublet

FYI - assume the name of grp lastDoublet is "DB_Doublet_160"

Group newGrp is supposed to be "DB_Doublet_170" and this appears to be confirmed by the two "answer" commands I've inserted in the script to verify.

But after the script runs, it turns out that the new group is also named "DB_Doublet_160" instead of "DB_Doublet_170" (which does not seem to exist, even though the second "answer" test shows that it did ), and the new group is positioned right on top of the old group, and not offset to to newTop as desired (2 pixels below the bottom of the old group.

Anybody have any idea as to what is causing this script to not work as intended?

Thanks in advance for your help in this matter. 

Kind regards,
ALAN GAYNE