Spaced Out

Bob Sneidar bobs at twft.com
Wed Dec 15 17:19:53 EST 2010


A simple object spacing script.

on spacedOut
  put 1 into mCnt
  put 12 into mSpace
  put the selectedObjects into theObjectList

  repeat for each line mLine in theObjectList

    if mCnt is 1 then -- it's the first object
      put the right of mLine into nextRight
      put mcnt + 1 into mCnt
      next repeat
    end if

    set the left of mLine to nextRight + mSpace
    put the right of mLine into nextRight 
    put mcnt + 1 into mcnt
  end repeat
end spacedOut


More information about the Use-livecode mailing list