home *** CD-ROM | disk | FTP | other *** search
/ Blender Volume 3 #3 / BLENDER.iso / pc / files / control.dxr / 00007.ls < prev    next >
Encoding:
Text File  |  1997-01-01  |  585 b   |  23 lines
  1. on mouseUp
  2.   global fixpal, gOpSys, trackList, CDDrive
  3.   if the machineType <> 256 then
  4.     if objectp(rwObj) then
  5.       rwObj(mdispose)
  6.     end if
  7.     closeXLib(CDDrive & "FILES:RW.XOj")
  8.   end if
  9.   if gOpSys <> #PIP then
  10.     set volName to "3.1"
  11.     set dataString to volName & TAB
  12.     repeat with x in trackList
  13.       set dataString to dataString & x & TAB
  14.     end repeat
  15.     if (gOpSys = #WIN16) or (gOpSys = #WIN32) then
  16.       saveToText("BLENDPRF", #WINWIN, dataString, #append)
  17.     else
  18.       saveToText("BLENDPRF", #MACPRF, dataString, #append)
  19.     end if
  20.   end if
  21.   quit()
  22. end
  23.