home *** CD-ROM | disk | FTP | other *** search
/ VCD Film, Television & An…on Creation Encyclopedia / mycd.iso / Direct5 / DATA.Z / -FFABOU.DIR / 00002.ls < prev    next >
Encoding:
Text File  |  1996-03-15  |  2.8 KB  |  69 lines
  1. on startMovie
  2.   cursor(-1)
  3.   aboutInfo()
  4. end
  5.  
  6. on closeWindow
  7.   set theList to the windowList
  8.   repeat with i = 1 to count(theList)
  9.     set theItem to string(getAt(theList, i))
  10.     delete word 1 of theItem
  11.     delete char 1 of theItem
  12.     set theChar to the number of chars in theItem
  13.     delete char theChar - 1 to theChar of theItem
  14.     if (theItem contains "About FileFlex") or (theItem contains "FFABOU") then
  15.       forget(window theItem)
  16.     end if
  17.   end repeat
  18.   tell the stage
  19.     puppetPalette(0)
  20.   end tell
  21.   tell the stage
  22.     updateStage()
  23.   end tell
  24. end
  25.  
  26. on aboutInfo
  27.   set the itemDelimiter to "-"
  28.   set verData to word 1 of DBVersion()
  29.   set theVersion to item 1 of verData
  30.   set thePlatform to item 2 of verData
  31.   set the itemDelimiter to " "
  32.   set lastChar to the number of chars in theVersion
  33.   case char lastChar of theVersion of
  34.     "L":
  35.       set theEdition to "Lite"
  36.     "P":
  37.       set theEdition to "Professional"
  38.     "D":
  39.       set theEdition to "Demonstration"
  40.   end case
  41.   set theInfo to "Edition:" && theEdition
  42.   put " ΓÇó " & "Version:" && theVersion after theInfo
  43.   put RETURN & "Platform:" && thePlatform after theInfo
  44.   put " ΓÇó " & "Maximum Records:" && string(DBMaxRecs()) after theInfo
  45.   put RETURN & RETURN after theInfo
  46.   case char lastChar of theVersion of
  47.     "L":
  48.       set comment to "This version is distributed exclusively for Macromedia Director customers.  Please refer all "
  49.       put "support questions to Macromedia at 415-252-9080, Fax 415-703-0924. " after comment
  50.       put RETURN & RETURN & "Subscribe to the free FileFlex support list by sending mail to 'listserv@netcom.com'. " after comment
  51.       put "Type the lines 'subscribe fileflex-announce' and 'subscribe fileflex-talk' into the message body." after comment
  52.       put RETURN & RETURN & "If you wish to manage more than 1,000" after comment
  53.       put " records, a Professional version of FileFlex  is available directly from Component. " after comment
  54.       put "See www.component-net.com for details." after comment
  55.     "D":
  56.       set comment to "Subscribe to the free FileFlex support list by sending mail to 'listserv@netcom.com'."
  57.       put "Type the lines 'subscribe fileflex-announce' and 'subscribe fileflex-talk' into the message body." after comment
  58.       put RETURN & RETURN & "If you wish to manage more than 100" after comment
  59.       put " records, a Professional version of FileFlex  is available directly from Component. " after comment
  60.       put "See www.component-net.com for details." after comment
  61.     "P":
  62.       set comment to "Subscribe to the free FileFlex support list by sending mail to 'listserv@netcom.com'."
  63.       put "Type the lines 'subscribe fileflex-announce' and 'subscribe fileflex-talk' into the message body." after comment
  64.   end case
  65.   put comment after theInfo
  66.   set the text of member "aboutInfo" to theInfo
  67.   set the textHeight of member "aboutInfo" to 11
  68. end
  69.