DL_UpdateCardList

Revision
Revised on

Description

Code

on DL_UpdateCardList
  global DL_CardWindow,DL_CardList,DL_CardCount
  
  get the number of cards
  if (DLCardList is empty) or (it  DL_CardCount) then
    put empty into DL_CardList
    put it into DL_CardCount
    repeat with n = 1 to it
      set cursor to busy
      put (the short name of card n) & return after DL_CardList
    end repeat
  end if
  
end DL_UpdateCardList