home *** CD-ROM | disk | FTP | other *** search
/ i·cite - visualizing sources / iCite.iso / data / tut01.dir / 00003_Script_3 < prev    next >
Text File  |  2006-06-30  |  3KB  |  138 lines
  1. global sTempDir
  2. on loadMenu
  3.   -- sprite("Tutorial1").editable = false
  4.   _movie.go(1,"TutMenu")
  5. end  
  6.  
  7. on loadMenuMain
  8.   -- sprite("Tutorial1").editable = false
  9.   _movie.go(1,"icite")
  10. end  
  11.  
  12. on loadMenuAnim
  13.   -- sprite("Tutorial1").editable = false
  14.   _movie.go(1,"TutAnim")
  15. end  
  16.  
  17. on loadMenuSource
  18.   -- sprite("Tutorial1").editable = false
  19.   _movie.go(1,"TutSource")
  20. end  
  21.  
  22. on LoadTut3
  23.   -- sprite("Tutorial1").editable = false
  24.   _movie.go(1 , "Tut03")
  25.   
  26. end 
  27.  
  28. on LoadTut4
  29.   -- sprite("Tutorial1").editable = false
  30.   _movie.go(1 , "Tut04")
  31.   
  32. end 
  33.  
  34. on LoadTut2
  35.   -- sprite("Tutorial1").editable = false
  36.   _movie.go(1 , "Tut02")
  37.   
  38. end 
  39.  
  40. on beginSprite
  41.   sprite("Tutorial1").editable = true
  42. end  
  43.  
  44.  
  45.  
  46. on getflashstringPrintW
  47.   string1 = sprite("Tutorial1").getVariable("printvar", TRUE)
  48.   fileObj1 = new(xtra "FileIO")
  49.   if the platform contains "mac" then
  50.     setFilterMask(fileObj1,"TEXT")
  51.   else
  52.     setFilterMask(fileObj1,"Text Files,*.rtf,All Files,*.*")
  53.   end if 
  54.   
  55.   filename = "c:\test.rtf"
  56.   
  57.   set OK1 = baDeleteFile("c:\test.rtf")
  58.   createFile(fileObj1,filename)
  59.   openFile(fileObj1, filename,0)
  60.   writeString(fileObj1, string1)
  61.   closeFile(fileObj1)
  62.   
  63.   set OK = baPrintFile(filename) 
  64.   
  65.   --_player.alert(string1)
  66.   --member("test").text =  string1
  67.   --_movie.printFrom(1)
  68. end
  69.  
  70. on getflashstringPrintM string1--,string2
  71.   string1 = sprite("Tutorial1").getVariable("printvar", TRUE)
  72.   sTempDir = baSysFolder("temp")
  73.   set OK1 = baDeleteFile(sTempDir & "abc.txt")
  74.   --alert (sTempDir)
  75.   writeFile string1
  76.   iResult = baPrintFile(sTempDir & "abc.txt")
  77.   --  _player.alert(iResult)
  78.   if (iResult < 32) then
  79.     --_player.alert("Error occurred. Error Number = " & iResult)
  80.   end if
  81. end
  82. 
  83.  
  84.  
  85.  
  86. on startmovie
  87.   -- set the exitlock = 1
  88.   --sprite("Tutorial1").editable = true
  89. end
  90. on getflashstringSave string1,string2
  91.   -- _player.alert("test")
  92.   -- create the FileIO instance
  93.   string1 = sprite("Tutorial1").getVariable("savevar", TRUE)
  94.   fileObj = new(xtra "FileIO") 
  95.   if the platform contains "mac" then
  96.     setFilterMask(fileObj,"TEXT")
  97.   else
  98.     setFilterMask(fileObj,"Text Files,*.rtf,All Files,*.*")
  99.   end if 
  100.   
  101.   
  102.   
  103.   -- save dialog box
  104.   filename = displaySave(fileObj,"","") 
  105.   -- set getdir=getOSDirectory( )
  106.   -- check to see if cancel was hit
  107.   if filename = "" then return FALSE 
  108.   else 
  109.     -- create and open the file
  110.     
  111.     createFile(fileObj,filename)
  112.     openFile(fileObj, filename,0)
  113.     --writeString(fileObj, the text of member "test") 
  114.     writeString(fileObj, string1) 
  115.     closeFile(fileObj)
  116.     
  117.     -- write the file
  118.     -- fileObj.writeString("hello world") 
  119.     
  120.     ---set OK = baPrintFile("c:\test.txt") 
  121.     
  122.     return TRUE 
  123.   end if
  124.   
  125.   
  126.   
  127. end
  128.  
  129. on writeFile mystring
  130.   objFile = new Xtra("FileIO")
  131.   objFile.createFile(sTempDir & "abc.txt")
  132.   objFile.openFile(sTempDir & "abc.txt", 0)
  133.   -- objFile.writeString(String(member("txtFile").text)) -- Here specify the proper cast member name
  134.  -- _player.alert(mystring)
  135.   objFile.writeString(mystring)
  136.   --alert ("Status of the WriteString Function = " & objFile.error(objFile.status()))
  137.   objFile.closeFile()
  138. end writeFile