home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 233 / Computer Shopper 233 / ComputerShopperDVD233.iso / Assets / Interface / Main.dxr / Movie Scripts_10_Footer Events.ls < prev    next >
Encoding:
Text File  |  2005-05-17  |  867 b   |  42 lines
  1. global dataSource
  2.  
  3. on footerButton me, btnNum
  4.   if btnNum = 6 then
  5.     fileXtraObj = xtra("FileXtra4").new()
  6.     myDocsPath = fileXtraObj.fx_FolderGetSpecialPath("CSIDL_WINDOWS")
  7.     myDocsPath = myDocsPath.char[1..3]
  8.     shortcutFile = myDocsPath & "PCProjects.url"
  9.     fileIOObj = new xtra("fileio")
  10.     if fileExists(shortcutFile) then
  11.       fileIOObj.openfile(shortcutFile, 2)
  12.       delete fileIOObj
  13.       fileIOObj.closeFile()
  14.     end if
  15.     fileXtraObj = 0
  16.     fileIOObj = VOID
  17.     _player.quit()
  18.   else
  19.     footerData = dataSource.showFooterPage(btnNum)
  20.   end if
  21. end
  22.  
  23. on goSupport
  24.   sprite("Content pane").showPage("Support")
  25. end
  26.  
  27. on goBackIssues
  28.   sprite("Content pane").showPage("Back Issues")
  29. end
  30.  
  31. on goSubscribe
  32.   sprite("Content pane").showPage("Subscribe")
  33. end
  34.  
  35. on goCredits
  36.   sprite("Content pane").showPage("Credits")
  37. end
  38.  
  39. on exit
  40.   _player.quit()
  41. end
  42.