home *** CD-ROM | disk | FTP | other *** search
/ Cocktail Hour / image.iso / COCKTAIL.DIR / objects_50.ls < prev    next >
Encoding:
Text File  |  1997-03-05  |  728 b   |  24 lines
  1. on mouseDown
  2.   global current, Choice, gProgrmPathOnHD, MyFavorites
  3.   set the visible of sprite 27 to 1
  4.   updateStage()
  5.   repeat while the mouseDown
  6.   end repeat
  7.   set the visible of sprite 27 to 0
  8.   set Choice to current
  9.   if current <> [] then
  10.     if the stageRight > 640 then
  11.       set winRect to rect(318, 172, 716, 494)
  12.     else
  13.       set winRect to rect(238, 111, 634, 431)
  14.     end if
  15.     set the modal of window "favorite" to 1
  16.     set the titleVisible of window "favorite" to 0
  17.     set the windowType of window "favorite" to 3
  18.     set the rect of window "favorite" to winRect
  19.     set the fileName of window "favorite" to gProgrmPathOnHD & "favorite.dir"
  20.     set MyFavorites to 0
  21.     open(window "favorite")
  22.   end if
  23. end
  24.