home *** CD-ROM | disk | FTP | other *** search
/ PC Master 1997 July & August / PCM97.iso / PATCH.dxr / 00005_list.ls < prev    next >
Encoding:
Text File  |  1998-06-23  |  1.0 KB  |  37 lines
  1. on mouseDown
  2.   global dscr, inst, rn, xfile, Path, rpath, ipath, source
  3.   set a to the mouseLine
  4.   if a > 0 then
  5.     hilite line a of field "list"
  6.     set the text of member "descr" to getAt(dscr, a)
  7.     set pth to getAt(Path, a)
  8.     if pth > EMPTY then
  9.       set the member of sprite 19 to "COPYUP"
  10.       set source to the pathName & pth
  11.     else
  12.       set the member of sprite 19 to "COPYG"
  13.     end if
  14.     set rpath to getAt(rn, a)
  15.     if rpath > EMPTY then
  16.       set rpath to pth & rpath
  17.       set the member of sprite 18 to "RUNUP"
  18.     else
  19.       set the member of sprite 18 to "RUNG"
  20.     end if
  21.     if getAt(xfile, a) > EMPTY then
  22.       set dtl to EMPTY
  23.       set xxx to pth & getAt(xfile, a)
  24.       set fp to new(xtra("fileio"))
  25.       openFile(fp, xxx, 1)
  26.       set dtl to readFile(fp)
  27.       closeFile(fp)
  28.       set fp to 0
  29.       set the text of member "details" to dtl
  30.       set the text of member "detailsb" to dtl
  31.     else
  32.       set the text of member "details" to EMPTY
  33.       set the text of member "detailsb" to EMPTY
  34.     end if
  35.   end if
  36. end
  37.