DL_UpdateBkgndPartList

Revision
Revised on

Description

Code

on DL_UpdateBkgndPartList
  global DL_BkgndPartWindow,DL_BkgndPartList,DL_BkgndPartCount
  
  get the number of bkgnd parts
  if (DLBkgndPartList is empty) or (it  DL_BkgndPartCount) then
    put empty into DL_BkgndPartList
    put it into DL_BkgndPartCount
    repeat with n = 1 to it
      set cursor to busy
      put (the short name of bkgnd part n) & return after DL_BkgndPartList
    end repeat
  end if
  
end DL_UpdateBkgndPartList