home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / SCRPTEXM.PAK / TEST.SPP < prev    next >
Encoding:
Text File  |  1997-05-06  |  777 b   |  41 lines
  1. //--------------------------------------------------------------------------
  2. // Object Scripting
  3. // Copyright (c) 1996, 1997 by Borland International, All Rights Reserved
  4. //
  5. // TEST.SPP: Test harness.
  6. //--------------------------------------------------------------------------
  7. print typeid(module()); // Verify script loaded.
  8.  
  9. //
  10. // Handy globals.
  11. //
  12. import IDE;
  13. import scriptEngine;
  14. import editor;
  15. import debugger;
  16.  
  17. sTmp = new String();
  18. Result;
  19.  
  20. CurBuf;
  21. CurView;
  22. CurBlk;
  23. CurPos;
  24.  
  25. if (editor.TopView != NULL) {  // Define these if there is an EditView.
  26.   CurBuf = editor.TopBuffer;
  27.   CurView = editor.TopView;
  28.   CurBlk = CurView.Block;
  29.   CurPos =CurView.Position;
  30. }
  31.  
  32. //
  33. // Test code.
  34. //
  35.  
  36.  
  37.  
  38.  
  39. print "done";  // Verify script terminated.
  40.  
  41.