home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 8 / 01CD8_Program.iso / scripts / header.csc < prev    next >
Text File  |  1998-03-31  |  2KB  |  55 lines
  1. REM Creates Header in current script
  2. REM Copyright 1996 Corel Corporation. All rights reserved.
  3.  
  4. REM *****************************************************************
  5. REM This script creates a header in the currently open script.
  6. REM To run this script, assign it to a menu or toolbar button. 
  7. REM Then open the script in which you would like to insert a  
  8. REM header and run the header script.
  9. REM ******************************************************************
  10.  
  11. REM Perform a sanity check
  12. REM to ensure that this script isn't 
  13. REM being run from the script editor...
  14. WITHOBJECT "CorelScript.Automation.8"
  15.     .GoToLine 11
  16.     Match$ = .GetLineText ()
  17.     IF Match$ = "REM Perform a sanity check" THEN
  18.         MESSAGE "This script should not be run from the Corel SCRIPT Editor."
  19.         END
  20.     ENDIF
  21. END WITHOBJECT
  22.  
  23. ' Defines
  24. #define IDOK  1
  25. #define IDCANCEL  2
  26.  
  27. '  Adds Specified header info
  28. sub WriteHeader(Name as string, Desc as string)
  29.     DIM DateStamp AS DATE
  30.     DateStamp=CDAT(Fix(GetCurrDate()))
  31.     withobject "CorelScript.Automation.8"
  32.         .GotoLine 1
  33.         .AddLineBefore "REM " & Name & " for v8.0, created on " & str(DateStamp) 
  34.         .AddLineBefore "REM " & Desc
  35.     end withobject
  36. end sub
  37.  
  38. '####################################################################
  39. ' Main section
  40. DIM Name AS STRING
  41. DIM Desc AS STRING
  42. BEGIN DIALOG Header 199, 92, "Header Maker" ' Ask for header name and description
  43.     TEXT  5, 5, 105, 10, "Script Name"
  44.     TEXTBOX  5, 15, 190, 15, Name$
  45.     TEXT  5, 35, 75, 10, "Description"
  46.     TEXTBOX  5, 45, 190, 15, Desc$
  47.     OKBUTTON  50, 70, 40, 14
  48.     CANCELBUTTON  110, 70, 40, 14
  49. END DIALOG
  50. if (dialog(Header)=IDOK) then WriteHeader Name$, Desc$
  51.  
  52.  
  53.  
  54.  
  55.