DL_BkgndPartClick

Revision
Revised on
Description

Code

on DL_BkgndPartClick
  global DL_BkgndPartWindow,DL_BkgndPartList
  
  put the selLine of window DL_BkgndPartWindow into pnum
  put line pnum of the text of window DL_BkgndPartWindow into pname
  
  if the short name of bkgnd part pnum is not pname then
    DL_UpdateBkgndPartList
    put the number of bkgnd part pname into pnum
  end if
  
  put (the optionKey is down) into opt
  put (the commandKey is down) into cmd
  
  if opt then
    if cmd then
      edit script of bkgnd part pnum
    else
      ask "New name?" with pname
      if it  empty then
        put it into line pnum of DL_BkgndPartList
        set the name of bkgnd part pnum to it
        DL_UpdateBkgndPartWindow
      end if
    end if
  else
    select bkgnd part pnum
  end if
  
end DL_BkgndPartClick