At 09:39 13/10/2004 +1000, Ray Stace wrote:

In the HyperCard tool set there was a function to export all the scripts in
a stack to a text file.
Has anyone done likewise for Revolution?

I didn't know Hypercard had one, so I never thought to ask this question :-(

Here's the script I use - a bit rough, but did the job when I needed it ...

on export_scripts
  ask file "Export scripts as:"
  put it into tFilename

  put empty into tVar
  repeat with j = 1 to the number of controls on this stack
    put "...." & the name of control j & cr after tVar
    get the script of control j
    put it  & cr & cr after tVar
  end repeat
  repeat with j = 1 to the number of cards on this  stack
    put "...." & the name of card j & cr after tVar
    get the script of card j
    put it  & cr & cr after tVar
  end repeat
  put "Stack script ..." & cr after tVar
  get the script of this stack
  put it  & cr & cr after tVar

  put tVar into URL ("file:" & tFilename)
  put it & cr after msg

end export_scripts

-- Alex.
_______________________________________________
use-revolution mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/use-revolution

Reply via email to