DL_UpdatePartList

Revision
Revised on

Description

Code

on DL_UpdatePartList
  global DL_PartWindow,DL_PartList,DL_PartCount
  
  get the number of parts
  if (DLPartList is empty) or (it  DL_PartCount) then
    put empty into DL_PartList
    put it into DL_PartCount
    repeat with n = 1 to it
      set cursor to busy
      put (the short name of part n) & return after DL_PartList
    end repeat
  end if
  
end DL_UpdatePartList