home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 99.img / PDOX3-09.ZIP / TOOLKIT2 / DEMO.SC < prev    next >
Text File  |  1989-09-15  |  1KB  |  31 lines
  1. ; This script allows you to play the DoWait demonstration from outside TKMenu.
  2. ; Note that since TKMenu is a protected script, you'll need to play this
  3. ; script (or make your own) to be able to debug the demonstration code.
  4. ;
  5. ; The DoWait demonstration, although being far from complete, is nonetheless
  6. ; fairly complex.  Its intent is to illustrate several techniques in using
  7. ; features of the DoWait.  Your applications may not require the use of all of
  8. ; of DoWait's abilities shown here, but we've tried to show all of them here
  9. ; so that if you ever do need to use them, you'll have some examples.
  10. ; If this is your first exposure to DoWait and you have not yet experimented
  11. ; with the simple demonstration found in MINIDEMO.SC, we highly recommend that
  12. ; you do so before attempting to step through this demonstration.
  13. ; 
  14. ; See also DoW8Demo.SC for more information about the demonstration.
  15. ;
  16. If not IsFile(SDir()+"Toolkit.LIB")
  17.    Then Quit "Cannot begin demonstration without Toolkit.LIB"
  18. Endif
  19.  
  20. If not IsFile(SDir()+"DoW8Demo.LIB")
  21.    Then If IsFile(SDir()+"DoW8Demo.SC")
  22.            Then Message "Generating demonstration library..."
  23.                 Echo Off
  24.                 Play SDir()+"DoW8Demo"
  25.            Else Quit "Unable to find DOWDEMO.LIB.  Play DoW8Demo.SC to create it"
  26.         Endif
  27. Endif
  28.  
  29. Readlib SDir()+"DoW8Demo" DataEntry
  30. DataEntry(True)    ;Argument specifies to initially turn commentary on
  31.