home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / corel / Scripts / header.csc < prev    next >
Text File  |  1998-02-06  |  970b  |  37 lines
  1. rem Vytvo°φ zßhlavφ v aktußlnφm skriptu.
  2. rem Copyright 1998 Corel Corporation. VÜechna prßva vyhrazena.
  3.  
  4.  
  5. ' Defines
  6. #define IDOK  1
  7. #define IDCANCEL  2
  8.  
  9. '  Adds Specified header info
  10. sub WriteHeader(Name as string, Desc as string)
  11.     DIM DateStamp AS DATE
  12.     DateStamp=CDAT(Fix(GetCurrDate()))
  13.     withobject "CorelScript.automation.7"
  14.         .GotoLine 1
  15.         .AddLineBefore "' " + Desc
  16.         .AddLineBefore "' " + Name + "  for v7.0, made " + str(DateStamp) 
  17.     end withobject
  18. end sub
  19.  
  20. '####################################################################
  21. ' Main section
  22. DIM Name AS STRING
  23. DIM Desc AS STRING
  24. BEGIN DIALOG Header 199, 92, "Header Maker" ' Ask for header name and description
  25.     TEXT  5, 5, 105, 10, "Script Name"
  26.     TEXTBOX  5, 15, 190, 15, Name$
  27.     TEXT  5, 35, 75, 10, "Description"
  28.     TEXTBOX  5, 45, 190, 15, Desc$
  29.     OKBUTTON  50, 70, 40, 14
  30.     CANCELBUTTON  110, 70, 40, 14
  31. END DIALOG
  32. if (dialog(Header)=IDOK) then WriteHeader Name$, Desc$
  33.  
  34.  
  35.  
  36.  
  37.