DL_ShowCardList

Revision
Revised on

Description

Code

on DL_ShowCardList
  global DL_CardWindow
  
  put "Cards" into DL_CardWindow
  
  if there is not a window DL_CardWindow then
    TextView DL_CardWindow,true,"Grey,2"
    if there is a window DL_CardWindow then
      set the editable of window DL_CardWindow to false
      set the wholeLine of window DL_CardWindow to true
      set the clickMessage of window DL_CardWindow to DL_CardClick
      set the dontWrap of window DL_CardWindow to false
      set the scrollbar of window DL_CardWindow to 8
    end if
  end if
  
  if there is a window DL_CardWindow then
    DL_UpdateCardWindow
    show window DL_CardWindow
  end if
  
end DL_ShowCardList