home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a114 / 2.img / TOOLKIT / TOOLKIT.ZIP / RFRSHCNV.SC < prev    next >
Encoding:
Text File  |  1990-08-25  |  1.5 KB  |  31 lines
  1. ; Copyright (c) 1988, 1989 Borland International.  All Rights Reserved.
  2. ;
  3. ; General permission to re-distribute all or part of this script is granted,
  4. ; provided that this statement, including the above copyright notice, is not
  5. ; removed.  You may add your own copyright notice to secure copyright
  6. ; protection for new matter that you add to this script, but Borland
  7. ; International will not support, nor assume any legal responsibility for,
  8. ; material added or changes made to this script.
  9. ;
  10. ; Revs.:  MJP 5/31/88, DCY 12/13/88
  11. ; ****************************************************************************
  12. ; RefreshCanvas refreshes the canvas with the current contents of the
  13. ; workspace.
  14. ;
  15. ; RefreshCanvas is useful in conjunction with Paradox Runtime, which does
  16. ; not support the ECHO NORMAL command.  Since ECHO NORMAL is supported in
  17. ; interactive Paradox, you won't need to use RefreshCanvas unless you plan
  18. ; to distribute your program under Paradox Runtime.
  19. ;
  20. ; NOTE:  The Toolkit's Runtime version of RefreshCanvas is specifically 
  21. ;        designed to be called no more than once per second.  If called more
  22. ;        frequently, it will pause until a second has elapsed.  This should
  23. ;        not be noticeable as long as your Runtime procedure does not attempt
  24. ;        to mimic interactive Paradox.
  25. ;
  26. Proc RefreshCanvas()
  27.    Echo Normal     ;Show the current workspace
  28.    Echo Off        ;Freeze the canvas (capture the current workspace image)
  29.    SyncCursor      ;Restore cursor
  30. Endproc
  31.