home *** CD-ROM | disk | FTP | other *** search
/ GU Photo: Background 3 / GU.iso / pc / browser_4m_ / browser_4m_.dxr / 00163.ls < prev    next >
Encoding:
Text File  |  1994-09-30  |  709 b   |  28 lines
  1. on mouseDown
  2.   global gdragfileicon, gno
  3.   if objectp(gdragfileicon) then
  4.     destroy(gdragfileicon)
  5.     set gdragfileicon to 0
  6.   end if
  7.   set sp to clickOn()
  8.   set bcast to the number of cast the castNum of sprite sp
  9.   set cname to char 1 to 5 of the name of cast bcast
  10.   set gno to getno(cname)
  11.   set gdragfileicon to birth(script "dragableObject", sp, bcast)
  12.   drag(gdragfileicon)
  13. end
  14.  
  15. on mouseUp
  16.   global glfilelister
  17.   if the doubleClick then
  18.     set sp to clickOn()
  19.     set thelabel to whichbrowser(gfilelister, sp)
  20.     set theno to whatpictno(gfilelister, sp)
  21.     if thelabel <> EMPTY then
  22.       loadpictureforbrowserabs(thelabel, theno)
  23.       finishviewer()
  24.       go(thelabel)
  25.     end if
  26.   end if
  27. end
  28.