home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 February / PCWorld_1999-02_cd.bin / software / Zkuste / WinBat98 / WSINIT.DL_ < prev    next >
Text File  |  1998-11-09  |  12KB  |  296 lines
  1. ;-------------------------------------------------------------------------
  2. ; wsinit.dll  - WinBatch version
  3. ;
  4. ; WinBatch Studio checks for the existence of this file at startup, looking
  5. ; in the WinBatch Studio directory. It allows you a chance to customize 
  6. ; every part of WinBatch Studio at startup without user intervention.
  7. ; 
  8. ; If WinBatch Studio executes the script it saves the file date stamp.  Subsequently
  9. ; at startup, WinBatch Studio will compare the file date with the saved time and
  10. ; will only re-run the script if it's newer than the saved timestamp.
  11. ;
  12. ;
  13.  
  14. regword="WinBatch Studio"
  15. ;gosub NukeSomeSettings
  16. gosub SetupPage
  17. gosub SetupFind
  18. gosub SetupGlobal
  19. ; Set up some file types.  Maybe should be first, as later items override earlier items...
  20. gosub SetupHTML     ; This one here primarily as an example.
  21. ;
  22. exit
  23.  
  24.  
  25. :SetupHTML
  26.         ;-------------------------------------------------------------------------
  27.         ; File specific settings
  28.         ;
  29.         ; This example sets up WinBatch Studio for HTML files. 
  30.         ;-------------------------------------------------------------------------
  31.  
  32.         ; First, verify these settings were not already installed so we don't
  33.         ; overwrite changes made by the user on a mere update.  If thiere is
  34.         ; a real update, then yes we do overwrite user customizations.
  35.         FileKind="HTML"         ; Name of manil file group for this type of files
  36.         ConfigVerWBT=6     ; Configuration version number,.  Update when changing this section
  37.  
  38.         if RegExistValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\File types\%FileKind% Files[ConfigVer]")
  39.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\File types\%FileKind% Files[ConfigVer]")
  40.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  41.         endif
  42.         RegSetValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\File types\%FileKind% Files[ConfigVer]",ConfigVerWBT)
  43.  
  44.  
  45.  
  46.         ; The File mapping key sets up the file extensions with a particular 
  47.         ; file group.  e.g.   HTML, HTM and ASP type files all belong to the
  48.         ; HTML file group 
  49.         
  50.         regkey = RegCreateKey(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\File mapping")
  51.         
  52.         RegSetValue(regkey, "[HTML]", FileKind)
  53.         RegSetValue(regkey, "[HTM]",  FileKind)
  54.         RegSetValue(regkey, "[ASP]",  FileKind)
  55.         RegSetValue(regkey, "[XML]",  FileKind)
  56.         RegCloseKey(regkey)
  57.         
  58.         
  59.         ;-------------------------------------------------------------------------
  60.         ; the File types key sets up the file extension - specific settings
  61.         
  62.         regkey = RegCreateKey(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\File types\%FileKind% Files")
  63.         
  64.         ; add this file type to the FileOpen dialog
  65.         RegSetDWord(regkey, "[AddToFileDialog]", 1)
  66.         
  67.         ; description and wild cards to use in FileOpen dialog
  68.         RegSetValue(regkey, "[FileOpenMask]", "%FileKind% Files|*.htm;*.html;*.asp;*.xml")
  69.         
  70.         ; case sensitivity
  71.         RegSetDWord(regkey, "[Case]", 0)
  72.         
  73.         ; show chroma coding
  74.         RegSetDWord(regkey, "[Chroma]", 1)
  75.         
  76.         ; comment definition - two available
  77.         RegSetValue(regkey, "[Comment Start 1]", "<")
  78.         RegSetValue(regkey, "[Comment End 1]", ">")
  79.         
  80.         RegSetValue(regkey, "[Comment Start 2]", "")
  81.         RegSetValue(regkey, "[Comment End 2]", "")
  82.         
  83.         ; font information for this file type                                                      
  84.         RegSetValue(regkey, "[Font name]", "Courier New")
  85.         RegSetDWord(regkey, "[Font size]", 10)
  86.         
  87.         ; 400 = normal, 700 = bold
  88.         RegSetDWord(regkey, "[Font weight]", 400)
  89.         RegSetDWord(regkey, "[Font italic]", 0)
  90.         
  91.         ; 1 = insert mode; 0 = overtype
  92.         RegSetDWord(regkey, "[Insert]", 1)
  93.         
  94.         ; pathname of keyword listing file
  95.         RegSetValue(regkey, "[Keywords]", "%FileKind%.clr")
  96.         
  97.         ; 0 = CR/LF; 1 = LF; 2 = LF/CR; 3 = CR
  98.         RegSetDWord(regkey, "[Line end type]", 0)
  99.         
  100.         ; leave files locked when open
  101.         RegSetDWord(regkey, "[Lock files]", 0)
  102.         
  103.         ; 1 = use tabs; 0 = insert spaces
  104.         RegSetDWord(regkey, "[Keep tabs]", 1)
  105.         
  106.         ; show visible tab marks on screen
  107.         RegSetDWord(regkey, "[Show tabs]", 0)
  108.         
  109.         ; tab size in characters
  110.         RegSetDWord(regkey, "[Tab size]", "3")
  111.         
  112.         ; extra characters to be considered part of a word
  113.         RegSetValue(regkey, "[Extra word chars]", "<>/")
  114.         
  115.         ; extra characters that might start a word
  116.         RegSetValue(regkey, "[Start chars]", "<")
  117.         
  118.         ; extra characters that might end a word
  119.         RegSetValue(regkey, "[Terminator chars]", "=>")
  120.         
  121.         ; colors.  R,G,B values as a string
  122.         RegSetValue(regkey, "[Background]", "255,255,255")
  123.         RegSetValue(regkey, "[Comment]", "0,0,255")
  124.         RegSetValue(regkey, "[Default Text]", "0,0,0")
  125.         RegSetValue(regkey, "[Keyword]", "0,0,255")
  126.         RegSetValue(regkey, "[Quote]", "0,0,0")
  127.         
  128.         ; character set 0 = ANSI, 1 = OEM
  129.         RegSetDWord(regkey, "[CharSet]", 0)
  130.         
  131.         ; compile command
  132.         RegSetValue(regkey, "[Compile command]", "")
  133.         
  134.         ; call a custom WIL error parsing script after compiling
  135.         RegSetDWord(regkey, "[UseWBT]", 0)
  136.         
  137.         ; if so, the name of the script
  138.         RegSetValue(regkey, "[WBTErrorFile]", "")
  139.         RegCloseKey(regkey)
  140.         return
  141.  
  142.         
  143. :SetupPage
  144.         ;-------------------------------------------------------------------------
  145.         ; the PageSetup key handles all the printing settings
  146.         
  147.         ;First check to try not to needlessly overwrite user settings
  148.  
  149.         ConfigVerWBT=5     ; Configuration version number,.  Update when changing this section
  150.  
  151.         if RegExistValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\PageSetup[ConfigVer]")
  152.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\PageSetup[ConfigVer]")
  153.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  154.         endif
  155.         RegSetValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\PageSetup[ConfigVer]",ConfigVerWBT)
  156.  
  157.         
  158.         regkey = RegCreateKey(@REGCURRENT, "Software\Wilson WindowWare\%regword%\PageSetup")
  159.         
  160.         ; 0 = ANSI, 1 = OEM
  161.         RegSetDWord(regkey,"[CharSet]", 0)
  162.         
  163.         ; 1 = print in color, 0 = OFF
  164.         RegSetDWord(regkey, "[Color syntax]", 1)
  165.         
  166.         ; 1 = print italics, 0 = regular
  167.         RegSetDWord(regkey, "[Font Italic]", 0)
  168.         
  169.         ; name of font 
  170.         RegSetValue(regkey, "[Font name]", "Courier New")
  171.         
  172.         ; size of font in points
  173.         RegSetDWord(regkey, "[Font size]", 12)
  174.         
  175.         ; 400 = normal, 700 = bold
  176.         RegSetDWord(regkey, "[Font weight]", 400)
  177.         
  178.         ; footer macro string
  179.         RegSetValue(regkey, "[Footer]", "Page $(PageNo)")
  180.         
  181.         ; print file time in footer, 1 = yes, 0 = no
  182.         RegSetDWord(regkey, "[FooterTime]", 0)
  183.         
  184.         ; header macro string
  185.         RegSetValue(regkey, "[Header]", "$(FilePath) - $(FileTime)")
  186.         
  187.         ; print file time in header, 1 = yes, 0 = no
  188.         RegSetDWord(regkey, "[HeaderTime]", 0)
  189.         
  190.         ; print line numbers, 1 = yes, 0 = no
  191.         RegSetDWord(regkey, "[Line numbers]", 0)
  192.         
  193.         ; print pages two up, 1 = yes, 0 = no
  194.         RegSetDWord(regkey, "[Twoup]", 0)
  195.         
  196.         ; 0 = use screen font, 1 = use printer font defined above
  197.         RegSetDWord(regkey, "[Use printer font]", 0)
  198.         
  199.         RegCloseKey(regkey)
  200.         return
  201.  
  202. :SetupFind
  203.         ;-------------------------------------------------------------------------
  204.         ; the Settings\Find key handles the find\replace settings
  205.  
  206.         ;First check to try not to needlessly overwrite user settings
  207.  
  208.         ConfigVerWBT=5     ; Configuration version number,.  Update when changing this section
  209.  
  210.         if RegExistValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Find[ConfigVer]")
  211.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Find[ConfigVer]")
  212.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  213.         endif
  214.         RegSetValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Find[ConfigVer]",ConfigVerWBT)
  215.  
  216.         regkey = RegCreateKey(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Find")
  217.         
  218.         ; these keys are all true/false, 1 = ON, 0 = OFF
  219.         RegSetDWord(regkey, "[Forward]", 1)
  220.         RegSetDWord(regkey, "[Match case]", 0)
  221.         RegSetDWord(regkey, "[Regular expressions]", 0)
  222.         RegSetDWord(regkey, "[Wrap search]", 0)
  223.         RegCloseKey(regkey)
  224.         return
  225.  
  226. :setupGlobal
  227.         ;-------------------------------------------------------------------------
  228.         ; the Settings\Main Window key handles the global editor settings
  229.  
  230.        ;First check to try not to needlessly overwrite user settings
  231.  
  232.         ConfigVerWBT=6     ; Configuration version number,.  Update when changing this section
  233.  
  234.         if RegExistValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Main Window[ConfigVer]")
  235.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Main Window[ConfigVer]")
  236.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  237.         endif
  238.         RegSetValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Main Window[ConfigVer]",ConfigVerWBT)
  239.  
  240.         regkey = RegCreateKey(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Main Window")
  241.         
  242.         ; backup location macro string
  243.         RegSetValue(regkey, "[Backup location]", "$(FilePath).backup")
  244.         RegSetValue(regkey, "[Autosave location]", "$(FilePath).autosave")
  245.         
  246.         ; the name of the active project
  247.         RegSetValue(regkey, "[Active Workspace]", "Default")
  248.         
  249.         ; the autosave interval, in minutes
  250.         RegSetDWord(regkey, "[Autosave interval]", 5)
  251.         
  252.         ; the rest are all true/false, on/off
  253.         RegSetDWord(regkey, "[AutoSave]", 1)
  254.         RegSetDWord(regkey, "[Horizontal Scrollbar]", 1)
  255.         RegSetDWord(regkey, "[Make Backups]", 1)
  256.         
  257.         ; leave the cursor at the end of pasted text
  258.         RegSetDWord(regkey, "[Paste After]", 1)
  259.         
  260.         ; automatically save files before running tools
  261.         RegSetDWord(regkey, "[Save Before]", 1)
  262.         
  263.         ; don't prompt before automatically saving files
  264.         RegSetDWord(regkey, "[Prompt Before]", 0)
  265.         
  266.         ; reload the open files from the last session
  267.         RegSetDWord(regkey, "[Restore Workspace]", 0)
  268.         
  269.         ; allow only one instance of %regword%
  270.         RegSetDWord(regkey, "[Single Instance]", 1)
  271.         
  272.         ; allow the cursor to move past the ends of lines
  273.         RegSetDWord(regkey, "[VirtualWhitespace]", 1)
  274.         RegCloseKey(regkey)
  275.  
  276.         ; set WIL files to be FileOpen default
  277.         regkey = RegCreateKey(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Options")
  278.         RegSetDWord(regkey, "[FilterIndex]", 1)
  279.         RegCloseKey(regkey)
  280.  
  281.         return
  282. :NukeSomeSettings
  283.         ConfigVerWBT=2     ; Configuration version number,.  Update when changing this section
  284.  
  285.         if RegExistValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Main Window[ResetBetaVer]")
  286.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Main Window[ResetBetaVer]")
  287.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is same or newer, do not excecute
  288.         endif
  289.         RegSetValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Main Window[ResetBetaVer]",ConfigVerWBT)
  290.  
  291.         ;nothing to do this week.
  292.         return
  293.  
  294.  
  295.  
  296.