home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 April / PCWorld_2000-04_cd.bin / Software / TemaCD / winedit / regscrip.dl_ < prev    next >
Text File  |  2000-02-21  |  43KB  |  1,051 lines
  1. ;-------------------------------------------------------------------------
  2. ; Regscript.dll
  3. ;
  4. ; WinEdit checks for the existence of this file at startup, looking
  5. ; in the WinEdit directory. It allows you a chance to customize 
  6. ; every part of WinEdit at startup without user intervention.
  7. ; 
  8. ; If WinEdit executes the script it saves the file date stamp.  Subsequently
  9. ; at startup, WinEdit 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.  
  15. gosub NukeSomeSettings    ;If required
  16. gosub SetupPage
  17. gosub SetupFind
  18. gosub SetupGlobal
  19. ; Set up some file types.  Maybe should be run first, as later items override earlier items...
  20. gosub SetupHTML     ; This one here primarily as an example.
  21. gosub SetupACL
  22. gosub SetupSQL
  23. gosub SetupPL
  24. gosub SetupBAS
  25. gosub SetupVBS
  26. gosub SetupPHP
  27. gosub SetupOthers
  28. gosub RegisterFTP
  29. exit
  30.  
  31.  
  32. :SetupHTML
  33.         ;-------------------------------------------------------------------------
  34.         ; File specific settings
  35.         ;
  36.         ; This example sets up WinEdit for HTML files. 
  37.         ;-------------------------------------------------------------------------
  38.  
  39.         ; First, verify these settings were not already installed so we don't
  40.         ; overwrite changes made by the user on a mere update.  If thiere is
  41.         ; a real update, then yes we do overwrite user customizations.
  42.         FileKind="HTML"     ; Name of main file group for this type of files
  43.         ConfigVerWBT=6     ; Configuration version number,.  Update when changing this section
  44.  
  45.         if RegExistValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]")
  46.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]")
  47.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  48.         endif
  49.         RegSetValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]",ConfigVerWBT)
  50.  
  51.  
  52.  
  53.         ; The File mapping key sets up the file extensions with a particular 
  54.         ; file group.  e.g.   HTML, HTM and ASP type files all belong to the
  55.         ; HTML file group 
  56.         
  57.         regkey = RegCreateKey(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File mapping")
  58.         
  59.         RegSetValue(regkey, "[HTML]", FileKind)
  60.         RegSetValue(regkey, "[HTM]",  FileKind)
  61.         RegSetValue(regkey, "[ASP]",  FileKind)
  62.         RegSetValue(regkey, "[XML]",  FileKind)
  63.         RegCloseKey(regkey)
  64.         
  65.         
  66.         ;-------------------------------------------------------------------------
  67.         ; the File types key sets up the file extension - specific settings
  68.         
  69.         regkey = RegCreateKey(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files")
  70.         
  71.         ; add this file type to the FileOpen dialog
  72.         RegSetDWord(regkey, "[AddToFileDialog]", 1)
  73.         
  74.         ; description and wild cards to use in FileOpen dialog
  75.         RegSetValue(regkey, "[FileOpenMask]", "%FileKind% Files|*.htm;*.html;*.asp;*.xml")
  76.         
  77.         ; case sensitivity
  78.         RegSetDWord(regkey, "[Case]", 0)
  79.         
  80.         ; show chroma coding
  81.         RegSetDWord(regkey, "[Chroma]", 1)
  82.         
  83.         ; comment definition - two available
  84.         RegSetValue(regkey, "[Comment Start 1]", "<!--")
  85.         RegSetValue(regkey, "[Comment End 1]", "-->")
  86.         
  87.         RegSetValue(regkey, "[Comment Start 2]", "")
  88.         RegSetValue(regkey, "[Comment End 2]", "")
  89.         
  90.         ; font information for this file type                                                      
  91.         RegSetValue(regkey, "[Font name]", "Courier New")
  92.         RegSetDWord(regkey, "[Font size]", 10)
  93.         
  94.         ; 400 = normal, 700 = bold
  95.         RegSetDWord(regkey, "[Font weight]", 400)
  96.         RegSetDWord(regkey, "[Font italic]", 0)
  97.         
  98.         ; 1 = insert mode; 0 = overtype
  99.         RegSetDWord(regkey, "[Insert]", 1)
  100.         
  101.         ; pathname of keyword listing file
  102.         RegSetValue(regkey, "[Keywords]", "%FileKind%.clr")
  103.         
  104.         ; 0 = CR/LF; 1 = LF; 2 = LF/CR; 3 = CR
  105.         RegSetDWord(regkey, "[Line end type]", 0)
  106.         
  107.         ; leave files locked when open
  108.         RegSetDWord(regkey, "[Lock files]", 0)
  109.         
  110.         ; 1 = use tabs; 0 = insert spaces
  111.         RegSetDWord(regkey, "[Keep tabs]", 1)
  112.         
  113.         ; show visible tab marks on screen
  114.         RegSetDWord(regkey, "[Show tabs]", 0)
  115.         
  116.         ; tab size in characters
  117.         RegSetDWord(regkey, "[Tab size]", "3")
  118.         
  119.         ; extra characters to be considered part of a word
  120.         RegSetValue(regkey, "[Extra word chars]", "!")
  121.         
  122.         ; extra characters that might start a word
  123.         RegSetValue(regkey, "[Start chars]", "")
  124.         
  125.         ; extra characters that might end a word
  126.         RegSetValue(regkey, "[Terminator chars]", "")
  127.         
  128.         ; colors.  R,G,B values as a string
  129.         RegSetValue(regkey, "[Background]", "255,255,255")
  130.         RegSetValue(regkey, "[Comment]", "128,128,128")
  131.         RegSetValue(regkey, "[Default Text]", "0,0,0")
  132.         RegSetValue(regkey, "[Keyword]", "0,0,255")
  133.         RegSetValue(regkey, "[Quote]", "64,0,0")
  134.         
  135.         ; character set 0 = ANSI, 1 = OEM
  136.         RegSetDWord(regkey, "[CharSet]", 0)
  137.         
  138.         ; compile command
  139.         RegSetValue(regkey, "[Compile command]", "")
  140.         
  141.         ; call a custom WIL error parsing script after compiling
  142.         RegSetDWord(regkey, "[UseWBT]", 0)
  143.         
  144.         ; if so, the name of the script
  145.         RegSetValue(regkey, "[WBTErrorFile]", "")
  146.  
  147.         ; set up a file-specific popup menu
  148.         RegSetValue(regkey, "[PopupMenu]", "HtmlPopup.mnu")
  149.         RegCloseKey(regkey)
  150.  
  151.         return
  152.  
  153.         
  154. :SetupPage
  155.         ;-------------------------------------------------------------------------
  156.         ; the PageSetup key handles all the printing settings
  157.         
  158.         ;First check to try not to needlessly overwrite user settings
  159.  
  160.         ConfigVerWBT=2     ; Configuration version number,.  Update when changing this section
  161.  
  162.         if RegExistValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\PageSetup[ConfigVer]")
  163.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\PageSetup[ConfigVer]")
  164.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  165.         endif
  166.         RegSetValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\PageSetup[ConfigVer]",ConfigVerWBT)
  167.  
  168.         
  169.         regkey = RegCreateKey(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\PageSetup")
  170.         
  171.         ; 0 = ANSI, 1 = OEM
  172.         RegSetDWord(regkey,"[CharSet]", 0)
  173.         
  174.         ; 1 = print in color, 0 = OFF
  175.         RegSetDWord(regkey, "[Color syntax]", 1)
  176.         
  177.         ; 1 = print italics, 0 = regular
  178.         RegSetDWord(regkey, "[Font Italic]", 0)
  179.         
  180.         ; name of font 
  181.         RegSetValue(regkey, "[Font name]", "Courier New")
  182.         
  183.         ; size of font in points
  184.         RegSetDWord(regkey, "[Font size]", 12)
  185.         
  186.         ; 400 = normal, 700 = bold
  187.         RegSetDWord(regkey, "[Font weight]", 400)
  188.         
  189.         ; footer macro string
  190.         RegSetValue(regkey, "[Footer]", "Page $(PageNo)")
  191.         
  192.         ; print file time in footer, 1 = yes, 0 = no
  193.         RegSetDWord(regkey, "[FooterTime]", 0)
  194.         
  195.         ; header macro string
  196.         RegSetValue(regkey, "[Header]", "$(FilePath) - $(FileTime)")
  197.         
  198.         ; print file time in header, 1 = yes, 0 = no
  199.         RegSetDWord(regkey, "[HeaderTime]", 0)
  200.         
  201.         ; print line numbers, 1 = yes, 0 = no
  202.         RegSetDWord(regkey, "[Line numbers]", 0)
  203.         
  204.         ; print pages two up, 1 = yes, 0 = no
  205.         RegSetDWord(regkey, "[Twoup]", 0)
  206.         
  207.         ; 0 = use screen font, 1 = use printer font defined above
  208.         RegSetDWord(regkey, "[Use printer font]", 0)
  209.         
  210.         RegCloseKey(regkey)
  211.         return
  212.  
  213. :SetupFind
  214.         ;-------------------------------------------------------------------------
  215.         ; the Settings\Find key handles the find\replace settings
  216.  
  217.         ;First check to try not to needlessly overwrite user settings
  218.  
  219.         ConfigVerWBT=1     ; Configuration version number,.  Update when changing this section
  220.  
  221.         if RegExistValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\Find[ConfigVer]")
  222.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\Find[ConfigVer]")
  223.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  224.         endif
  225.         RegSetValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\Find[ConfigVer]",ConfigVerWBT)
  226.  
  227.         regkey = RegCreateKey(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\Find")
  228.         
  229.         ; these keys are all true/false, 1 = ON, 0 = OFF
  230.         RegSetDWord(regkey, "[Forward]", 1)
  231.         RegSetDWord(regkey, "[Match case]", 0)
  232.         RegSetDWord(regkey, "[Regular expressions]", 0)
  233.         RegSetDWord(regkey, "[Wrap search]", 0)
  234.         RegCloseKey(regkey)
  235.         return
  236.  
  237. :setupGlobal
  238.         ;-------------------------------------------------------------------------
  239.         ; the Settings\Main Window key handles the global editor settings
  240.  
  241.        ;First check to try not to needlessly overwrite user settings
  242.  
  243.         ConfigVerWBT=1     ; Configuration version number,.  Update when changing this section
  244.  
  245.         if RegExistValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\Main Window[ConfigVer]")
  246.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\Main Window[ConfigVer]")
  247.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  248.         endif
  249.         RegSetValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\Main Window[ConfigVer]",ConfigVerWBT)
  250.  
  251.         regkey = RegCreateKey(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\Main Window")
  252.         
  253.         ; backup location macro string
  254.         ;RegSetValue(regkey, "[Backup location]", "$(FilePath).backup")
  255.         ;RegSetValue(regkey, "[Autosave location]", "$(FilePath).autosave")
  256.         
  257.         ; the name of the active project
  258.         RegSetValue(regkey, "[Active Workspace]", "Default")
  259.         
  260.         ; the autosave interval, in minutes
  261.         RegSetDWord(regkey, "[Autosave interval]", 5)
  262.         
  263.         ; the rest are all true/false, on/off
  264.         RegSetDWord(regkey, "[AutoSave]", 1)
  265.         RegSetDWord(regkey, "[Horizontal Scrollbar]", 1)
  266.         RegSetDWord(regkey, "[Make Backups]", 1)
  267.         
  268.         ; leave the cursor at the end of pasted text
  269.         RegSetDWord(regkey, "[Paste After]", 1)
  270.         
  271.         ; automatically save files before running tools
  272.         RegSetDWord(regkey, "[Save Before]", 1)
  273.         
  274.         ; don't prompt before automatically saving files
  275.         RegSetDWord(regkey, "[Prompt Before]", 0)
  276.         
  277.         ; reload the open files from the last session
  278.         RegSetDWord(regkey, "[Restore Workspace]", 1)
  279.         
  280.         ; allow only one instance of WinEdit
  281.         RegSetDWord(regkey, "[Single Instance]", 1)
  282.         
  283.         ; allow the cursor to move past the ends of lines
  284.         RegSetDWord(regkey, "[VirtualWhitespace]", 1)
  285.         RegCloseKey(regkey)
  286.         return
  287. ;;;;;;;;;;;;;;;Setup of strange and obscure file types
  288. :SetupACL
  289.         ; First, verify these settings were not already installed so we don't
  290.         ; overwrite changes made by the user on a mere update.  If thiere is
  291.         ; a real update, then yes we do overwrite user customizations.
  292.         FileKind="ACL"         ; Name of manil file group for this type of files
  293.         ConfigVerWBT=2     ; Configuration version number,.  Update when changing this section
  294.  
  295.         if RegExistValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]")
  296.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]")
  297.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  298.         endif
  299.         RegSetValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]",ConfigVerWBT)
  300.  
  301.         ;ACL file group        
  302.         regkey = RegCreateKey(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File mapping")
  303.         
  304.         RegSetValue(regkey, "[SUB]",  FileKind)
  305.         RegSetValue(regkey, "[LIB]",  FileKind)
  306.         RegSetValue(regkey, "[ACL]",  FileKind)
  307.         RegCloseKey(regkey)
  308.         
  309.         
  310.         ;-------------------------------------------------------------------------
  311.         ; the File types key sets up the file extension - specific settings
  312.         
  313.         regkey = RegCreateKey(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files")
  314.         
  315.         ; add this file type to the FileOpen dialog
  316.         RegSetDWord(regkey, "[AddToFileDialog]", 1)
  317.         
  318.         ; description and wild cards to use in FileOpen dialog
  319.         RegSetValue(regkey, "[FileOpenMask]", "%FileKind% Files|*.sub;*.lib;*.acl")
  320.         
  321.         ; case sensitivity
  322.         RegSetDWord(regkey, "[Case]", 1)
  323.         
  324.         ; show chroma coding
  325.         RegSetDWord(regkey, "[Chroma]", 1)
  326.         
  327.         ; comment definition - two available
  328.         RegSetValue(regkey, "[Comment Start 1]", "#")
  329.         RegSetValue(regkey, "[Comment End 1]", "")
  330.         
  331.         RegSetValue(regkey, "[Comment Start 2]", "")
  332.         RegSetValue(regkey, "[Comment End 2]", "")
  333.         
  334.         ; font information for this file type                                                      
  335.         RegSetValue(regkey, "[Font name]", "Courier New")
  336.         RegSetDWord(regkey, "[Font size]", 10)
  337.         
  338.         ; 400 = normal, 700 = bold
  339.         RegSetDWord(regkey, "[Font weight]", 400)
  340.         RegSetDWord(regkey, "[Font italic]", 0)
  341.         
  342.         ; 1 = insert mode; 0 = overtype
  343.         RegSetDWord(regkey, "[Insert]", 1)
  344.         
  345.         ; pathname of keyword listing file
  346.         RegSetValue(regkey, "[Keywords]", "%FileKind%.clr")
  347.         
  348.         ; 0 = CR/LF; 1 = LF; 2 = LF/CR; 3 = CR
  349.         RegSetDWord(regkey, "[Line end type]", 0)
  350.         
  351.         ; leave files locked when open
  352.         RegSetDWord(regkey, "[Lock files]", 0)
  353.         
  354.         ; 1 = use tabs; 0 = insert spaces
  355.         RegSetDWord(regkey, "[Keep tabs]", 1)
  356.         
  357.         ; show visible tab marks on screen
  358.         RegSetDWord(regkey, "[Show tabs]", 1)
  359.         
  360.         ; tab size in characters
  361.         RegSetDWord(regkey, "[Tab size]", "3")
  362.         
  363.         ; extra characters to be considered part of a word
  364.         RegSetValue(regkey, "[Extra word chars]", "")
  365.         
  366.         ; extra characters that might start a word
  367.         RegSetValue(regkey, "[Start chars]", "")
  368.         
  369.         ; extra characters that might end a word
  370.         RegSetValue(regkey, "[Terminator chars]", "")
  371.         
  372.         ; colors.  R,G,B values as a string
  373.         RegSetValue(regkey, "[Background]", "255,255,255")
  374.         RegSetValue(regkey, "[Comment]", "128,128,128")
  375.         RegSetValue(regkey, "[Default Text]", "0,0,0")
  376.         RegSetValue(regkey, "[Keyword]", "0,0,255")
  377.         RegSetValue(regkey, "[Quote]", "0,128,128")
  378.         
  379.         ; character set 0 = ANSI, 1 = OEM
  380.         RegSetDWord(regkey, "[CharSet]", 0)
  381.         
  382.         ; compile command
  383.         RegSetValue(regkey, "[Compile command]", "")
  384.         
  385.         ; call a custom WIL error parsing script after compiling
  386.         RegSetDWord(regkey, "[UseWBT]", 0)
  387.         
  388.         ; if so, the name of the script
  389.         RegSetValue(regkey, "[WBTErrorFile]", "")
  390.  
  391.         ; set up a file-specific popup menu
  392.         RegSetValue(regkey, "[PopupMenu]", "ACLPopup.mnu")
  393.         RegCloseKey(regkey)
  394.  
  395.         return
  396.  
  397. :SetupSQL
  398.         ; First, verify these settings were not already installed so we don't
  399.         ; overwrite changes made by the user on a mere update.  If thiere is
  400.         ; a real update, then yes we do overwrite user customizations.
  401.         FileKind="SQL"         ; Name of manil file group for this type of files
  402.         ConfigVerWBT=2     ; Configuration version number,.  Update when changing this section
  403.  
  404.         if RegExistValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]")
  405.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]")
  406.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  407.         endif
  408.         RegSetValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]",ConfigVerWBT)
  409.         ;SQL file group        
  410.         regkey = RegCreateKey(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File mapping")
  411.         
  412.         RegSetValue(regkey, "[SQL]",  FileKind)
  413.         RegSetValue(regkey, "[SP]",   FileKind)
  414.         RegSetValue(regkey, "[SPS]",  FileKind)
  415.         RegSetValue(regkey, "[SPB]",  FileKind)
  416.         RegSetValue(regkey, "[SPP]",  FileKind)
  417.         RegSetValue(regkey, "[SF]",   FileKind)
  418.         RegSetValue(regkey, "[LDR]",  FileKind)
  419.         RegCloseKey(regkey)
  420.         
  421.         
  422.         ;-------------------------------------------------------------------------
  423.         ; the File types key sets up the file extension - specific settings
  424.         
  425.         regkey = RegCreateKey(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files")
  426.         
  427.         ; add this file type to the FileOpen dialog
  428.         RegSetDWord(regkey, "[AddToFileDialog]", 1)
  429.         
  430.         ; description and wild cards to use in FileOpen dialog
  431.         RegSetValue(regkey, "[FileOpenMask]", "%FileKind% Files|*.sql;*.sp;")
  432.         
  433.         ; case sensitivity
  434.         RegSetDWord(regkey, "[Case]", 0)
  435.         
  436.         ; show chroma coding
  437.         RegSetDWord(regkey, "[Chroma]", 1)
  438.         
  439.         ; comment definition - two available
  440.         RegSetValue(regkey, "[Comment Start 1]", "")
  441.         RegSetValue(regkey, "[Comment End 1]", "")
  442.         
  443.         RegSetValue(regkey, "[Comment Start 2]", "")
  444.         RegSetValue(regkey, "[Comment End 2]", "")
  445.         
  446.         ; font information for this file type                                                      
  447.         RegSetValue(regkey, "[Font name]", "Courier New")
  448.         RegSetDWord(regkey, "[Font size]", 10)
  449.         
  450.         ; 400 = normal, 700 = bold
  451.         RegSetDWord(regkey, "[Font weight]", 400)
  452.         RegSetDWord(regkey, "[Font italic]", 0)
  453.         
  454.         ; 1 = insert mode; 0 = overtype
  455.         RegSetDWord(regkey, "[Insert]", 1)
  456.         
  457.         ; pathname of keyword listing file
  458.         RegSetValue(regkey, "[Keywords]", "%FileKind%.clr")
  459.         
  460.         ; 0 = CR/LF; 1 = LF; 2 = LF/CR; 3 = CR
  461.         RegSetDWord(regkey, "[Line end type]", 0)
  462.         
  463.         ; leave files locked when open
  464.         RegSetDWord(regkey, "[Lock files]", 0)
  465.         
  466.         ; 1 = use tabs; 0 = insert spaces
  467.         RegSetDWord(regkey, "[Keep tabs]", 1)
  468.         
  469.         ; show visible tab marks on screen
  470.         RegSetDWord(regkey, "[Show tabs]", 1)
  471.         
  472.         ; tab size in characters
  473.         RegSetDWord(regkey, "[Tab size]", "3")
  474.         
  475.         ; extra characters to be considered part of a word
  476.         RegSetValue(regkey, "[Extra word chars]", "")
  477.         
  478.         ; extra characters that might start a word
  479.         RegSetValue(regkey, "[Start chars]", "")
  480.         
  481.         ; extra characters that might end a word
  482.         RegSetValue(regkey, "[Terminator chars]", "")
  483.         
  484.         ; colors.  R,G,B values as a string
  485.         RegSetValue(regkey, "[Background]", "255,255,255")
  486.         RegSetValue(regkey, "[Comment]", "128,128,128")
  487.         RegSetValue(regkey, "[Default Text]", "0,0,0")
  488.         RegSetValue(regkey, "[Keyword]", "0,0,255")
  489.         RegSetValue(regkey, "[Quote]", "0,128,128")
  490.         
  491.         ; character set 0 = ANSI, 1 = OEM
  492.         RegSetDWord(regkey, "[CharSet]", 0)
  493.         
  494.         ; compile command
  495.         RegSetValue(regkey, "[Compile command]", "")
  496.         
  497.         ; call a custom WIL error parsing script after compiling
  498.         RegSetDWord(regkey, "[UseWBT]", 0)
  499.         
  500.         ; if so, the name of the script
  501.         RegSetValue(regkey, "[WBTErrorFile]", "")
  502.  
  503.         ; set up a file-specific popup menu
  504.         RegSetValue(regkey, "[PopupMenu]", "SQLPopup.mnu")
  505.         RegCloseKey(regkey)
  506.  
  507.         return
  508.  
  509. :SetupPL
  510.         ; First, verify these settings were not already installed so we don't
  511.         ; overwrite changes made by the user on a mere update.  If thiere is
  512.         ; a real update, then yes we do overwrite user customizations.
  513.         FileKind="PERL"         ; Name of manil file group for this type of files
  514.         ConfigVerWBT=2     ; Configuration version number,.  Update when changing this section
  515.  
  516.         if RegExistValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]")
  517.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]")
  518.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  519.         endif
  520.         RegSetValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]",ConfigVerWBT)
  521.         ;PL file group        - Perl
  522.         regkey = RegCreateKey(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File mapping")
  523.         
  524.         RegSetValue(regkey, "[PL]",    FileKind)
  525.         RegSetValue(regkey, "[PERL]",  FileKind)
  526.         RegSetValue(regkey, "[PRL]",   FileKind)
  527.         RegCloseKey(regkey)
  528.         
  529.         
  530.         ;-------------------------------------------------------------------------
  531.         ; the File types key sets up the file extension - specific settings
  532.         
  533.         regkey = RegCreateKey(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files")
  534.         
  535.         ; add this file type to the FileOpen dialog
  536.         RegSetDWord(regkey, "[AddToFileDialog]", 1)
  537.         
  538.         ; description and wild cards to use in FileOpen dialog
  539.         RegSetValue(regkey, "[FileOpenMask]", "%FileKind% Files|*.perl;*.pl;*.prl")
  540.         
  541.         ; case sensitivity
  542.         RegSetDWord(regkey, "[Case]", 1)
  543.         
  544.         ; show chroma coding
  545.         RegSetDWord(regkey, "[Chroma]", 1)
  546.         
  547.         ; comment definition - two available
  548.         RegSetValue(regkey, "[Comment Start 1]", "#")
  549.         RegSetValue(regkey, "[Comment End 1]", "")
  550.         
  551.         RegSetValue(regkey, "[Comment Start 2]", "")
  552.         RegSetValue(regkey, "[Comment End 2]", "")
  553.         
  554.         ; font information for this file type                                                      
  555.         RegSetValue(regkey, "[Font name]", "Courier New")
  556.         RegSetDWord(regkey, "[Font size]", 10)
  557.         
  558.         ; 400 = normal, 700 = bold
  559.         RegSetDWord(regkey, "[Font weight]", 400)
  560.         RegSetDWord(regkey, "[Font italic]", 0)
  561.         
  562.         ; 1 = insert mode; 0 = overtype
  563.         RegSetDWord(regkey, "[Insert]", 1)
  564.         
  565.         ; pathname of keyword listing file
  566.         RegSetValue(regkey, "[Keywords]", "%FileKind%.clr")
  567.         
  568.         ; 0 = CR/LF; 1 = LF; 2 = LF/CR; 3 = CR
  569.         RegSetDWord(regkey, "[Line end type]", 1)
  570.         
  571.         ; leave files locked when open
  572.         RegSetDWord(regkey, "[Lock files]", 0)
  573.         
  574.         ; 1 = use tabs; 0 = insert spaces
  575.         RegSetDWord(regkey, "[Keep tabs]", 1)
  576.         
  577.         ; show visible tab marks on screen
  578.         RegSetDWord(regkey, "[Show tabs]", 1)
  579.         
  580.         ; tab size in characters
  581.         RegSetDWord(regkey, "[Tab size]", "3")
  582.         
  583.         ; extra characters to be considered part of a word
  584.         RegSetValue(regkey, "[Extra word chars]", "!~$#%%'&+-,<>@?]\^.{}:/|*`_") 
  585.         
  586.         ; extra characters that might start a word
  587.         RegSetValue(regkey, "[Start chars]", "")
  588.         
  589.         ; extra characters that might end a word
  590.         RegSetValue(regkey, "[Terminator chars]", "")
  591.         
  592.         ; colors.  R,G,B values as a string
  593.         RegSetValue(regkey, "[Background]", "255,255,255")
  594.         RegSetValue(regkey, "[Comment]", "128,128,128")
  595.         RegSetValue(regkey, "[Default Text]", "0,0,0")
  596.         RegSetValue(regkey, "[Keyword]", "0,0,255")
  597.         RegSetValue(regkey, "[Quote]", "0,128,128")
  598.         
  599.         ; character set 0 = ANSI, 1 = OEM
  600.         RegSetDWord(regkey, "[CharSet]", 0)
  601.         
  602.         ; compile command
  603.         RegSetValue(regkey, "[Compile command]", "")
  604.         
  605.         ; call a custom WIL error parsing script after compiling
  606.         RegSetDWord(regkey, "[UseWBT]", 0)
  607.         
  608.         ; if so, the name of the script
  609.         RegSetValue(regkey, "[WBTErrorFile]", "")
  610.  
  611.         ; set up a file-specific popup menu
  612.         RegSetValue(regkey, "[PopupMenu]", "PerlPopup.mnu")
  613.         RegCloseKey(regkey)
  614.  
  615.         return
  616.  
  617. :SetupBAS
  618.         ; First, verify these settings were not already installed so we don't
  619.         ; overwrite changes made by the user on a mere update.  If thiere is
  620.         ; a real update, then yes we do overwrite user customizations.
  621.         FileKind="BAS"         ; Name of manil file group for this type of files
  622.         ConfigVerWBT=2     ; Configuration version number,.  Update when changing this section
  623.  
  624.         if RegExistValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]")
  625.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]")
  626.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  627.         endif
  628.         RegSetValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]",ConfigVerWBT)
  629.         ;BAS file group        
  630.         regkey = RegCreateKey(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File mapping")
  631.         
  632.         RegSetValue(regkey, "[BAS]",    FileKind)
  633.         RegCloseKey(regkey)
  634.         
  635.         
  636.         ;-------------------------------------------------------------------------
  637.         ; the File types key sets up the file extension - specific settings
  638.         
  639.         regkey = RegCreateKey(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files")
  640.         
  641.         ; add this file type to the FileOpen dialog
  642.         RegSetDWord(regkey, "[AddToFileDialog]", 1)
  643.         
  644.         ; description and wild cards to use in FileOpen dialog
  645.         RegSetValue(regkey, "[FileOpenMask]", "%FileKind% Files|*.bas")
  646.         
  647.         ; case sensitivity
  648.         RegSetDWord(regkey, "[Case]", 0)
  649.         
  650.         ; show chroma coding
  651.         RegSetDWord(regkey, "[Chroma]", 1)
  652.         
  653.         ; comment definition - two available
  654.         RegSetValue(regkey, "[Comment Start 1]", "REM")
  655.         RegSetValue(regkey, "[Comment End 1]", "")
  656.         
  657.         RegSetValue(regkey, "[Comment Start 2]", "")
  658.         RegSetValue(regkey, "[Comment End 2]", "")
  659.         
  660.         ; font information for this file type                                                      
  661.         RegSetValue(regkey, "[Font name]", "Courier New")
  662.         RegSetDWord(regkey, "[Font size]", 10)
  663.         
  664.         ; 400 = normal, 700 = bold
  665.         RegSetDWord(regkey, "[Font weight]", 400)
  666.         RegSetDWord(regkey, "[Font italic]", 0)
  667.         
  668.         ; 1 = insert mode; 0 = overtype
  669.         RegSetDWord(regkey, "[Insert]", 1)
  670.         
  671.         ; pathname of keyword listing file
  672.         RegSetValue(regkey, "[Keywords]", "%FileKind%.clr")
  673.         
  674.         ; 0 = CR/LF; 1 = LF; 2 = LF/CR; 3 = CR
  675.         RegSetDWord(regkey, "[Line end type]", 1)
  676.         
  677.         ; leave files locked when open
  678.         RegSetDWord(regkey, "[Lock files]", 0)
  679.         
  680.         ; 1 = use tabs; 0 = insert spaces
  681.         RegSetDWord(regkey, "[Keep tabs]", 1)
  682.         
  683.         ; show visible tab marks on screen
  684.         RegSetDWord(regkey, "[Show tabs]", 1)
  685.         
  686.         ; tab size in characters
  687.         RegSetDWord(regkey, "[Tab size]", "4")
  688.         
  689.         ; extra characters to be considered part of a word
  690.         RegSetValue(regkey, "[Extra word chars]", "")
  691.         
  692.         ; extra characters that might start a word
  693.         RegSetValue(regkey, "[Start chars]", "")
  694.         
  695.         ; extra characters that might end a word
  696.         RegSetValue(regkey, "[Terminator chars]", "")
  697.         
  698.         ; colors.  R,G,B values as a string
  699.         RegSetValue(regkey, "[Background]", "255,255,255")
  700.         RegSetValue(regkey, "[Comment]", "128,128,128")
  701.         RegSetValue(regkey, "[Default Text]", "0,0,0")
  702.         RegSetValue(regkey, "[Keyword]", "0,0,255")
  703.         RegSetValue(regkey, "[Quote]", "0,128,128")
  704.         
  705.         ; character set 0 = ANSI, 1 = OEM
  706.         RegSetDWord(regkey, "[CharSet]", 0)
  707.         
  708.         ; compile command
  709.         RegSetValue(regkey, "[Compile command]", "")
  710.         
  711.         ; call a custom WIL error parsing script after compiling
  712.         RegSetDWord(regkey, "[UseWBT]", 0)
  713.         
  714.         ; if so, the name of the script
  715.         RegSetValue(regkey, "[WBTErrorFile]", "")
  716.  
  717.         ; set up a file-specific popup menu
  718.         RegSetValue(regkey, "[PopupMenu]", "BASPopup.mnu")
  719.         RegCloseKey(regkey)
  720.  
  721.         return
  722.  
  723. :SetupVBS
  724.   ;-------------------------------------------------------------------------
  725.         ; File specific settings
  726.         ;
  727.         ; This example sets up WinEdit for VBS files. 
  728.         ;-------------------------------------------------------------------------
  729.  
  730.         ; First, verify these settings were not already installed so we don't
  731.         ; overwrite changes made by the user on a mere update.  If thiere is
  732.         ; a real update, then yes we do overwrite user customizations.
  733.         FileKind="VBS"     ; Name of main file group for this type of files
  734.         ConfigVerWBT=1     ; Configuration version number,.  Update when changing this section
  735.  
  736.         if RegExistValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]")
  737.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]")
  738.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  739.         endif
  740.         RegSetValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]",ConfigVerWBT)
  741.  
  742.  
  743.         ; The File mapping key sets up the file extensions with a particular 
  744.         ; file group. 
  745.         
  746.         regkey = RegCreateKey(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File mapping")
  747.         
  748.         RegSetValue(regkey, "[VBS]", FileKind)
  749.         RegCloseKey(regkey)
  750.         
  751.         
  752.         ;-------------------------------------------------------------------------
  753.         ; the File types key sets up the file extension - specific settings
  754.         
  755.         regkey = RegCreateKey(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files")
  756.         
  757.         ; add this file type to the FileOpen dialog
  758.         RegSetDWord(regkey, "[AddToFileDialog]", 1)
  759.         
  760.         ; description and wild cards to use in FileOpen dialog
  761.         RegSetValue(regkey, "[FileOpenMask]", "%FileKind% Files|*.vbs")
  762.         
  763.         ; case sensitivity
  764.         RegSetDWord(regkey, "[Case]", 0)
  765.         
  766.         ; show chroma coding
  767.         RegSetDWord(regkey, "[Chroma]", 1)
  768.         
  769.         ; comment definition - two available
  770.         RegSetValue(regkey, "[Comment Start 1]", "'")
  771.         RegSetValue(regkey, "[Comment End 1]", "")
  772.         
  773.         RegSetValue(regkey, "[Comment Start 2]", "`")
  774.         RegSetValue(regkey, "[Comment End 2]", "")
  775.         
  776.         ; font information for this file type                                                      
  777.         RegSetValue(regkey, "[Font name]", "Courier New")
  778.         RegSetDWord(regkey, "[Font size]", 10)
  779.         
  780.         ; 400 = normal, 700 = bold
  781.         RegSetDWord(regkey, "[Font weight]", 400)
  782.         RegSetDWord(regkey, "[Font italic]", 0)
  783.         
  784.         ; 1 = insert mode; 0 = overtype
  785.         RegSetDWord(regkey, "[Insert]", 1)
  786.         
  787.         ; pathname of keyword listing file
  788.         RegSetValue(regkey, "[Keywords]", "%FileKind%.clr")       ;need path here?
  789.         
  790.         ; 0 = CR/LF; 1 = LF; 2 = LF/CR; 3 = CR
  791.         RegSetDWord(regkey, "[Line end type]", 0)
  792.         
  793.         ; leave files locked when open
  794.         RegSetDWord(regkey, "[Lock files]", 0)
  795.         
  796.         ; 1 = use tabs; 0 = insert spaces
  797.         RegSetDWord(regkey, "[Keep tabs]", 1)
  798.         
  799.         ; show visible tab marks on screen
  800.         RegSetDWord(regkey, "[Show tabs]", 0)
  801.         
  802.         ; tab size in characters
  803.         RegSetDWord(regkey, "[Tab size]", "3")
  804.         
  805.         ; extra characters to be considered part of a word
  806.         RegSetValue(regkey, "[Extra word chars]", "&_<>+-.\^*=")
  807.         
  808.         ; extra characters that might start a word
  809.         RegSetValue(regkey, "[Start chars]", "")
  810.         
  811.         ; extra characters that might end a word
  812.         RegSetValue(regkey, "[Terminator chars]", "")
  813.         
  814.         ; colors.  R,G,B values as a string
  815.         RegSetValue(regkey, "[Background]", "255,255,255")    ;white
  816.         RegSetValue(regkey, "[Comment]", "128,128,128")
  817.         RegSetValue(regkey, "[Default Text]", "0,0,0")    ;black
  818.         RegSetValue(regkey, "[Keyword]", "0,0,255")    ;ok
  819.         RegSetValue(regkey, "[Quote]", "0,128,128")  ;dk cyan
  820.         
  821.         ; character set 0 = ANSI, 1 = OEM
  822.         RegSetDWord(regkey, "[CharSet]", 0)
  823.         
  824.         ; compile command
  825.         RegSetValue(regkey, "[Compile command]", "")
  826.         
  827.         ; call a custom WIL error parsing script after compiling
  828.         RegSetDWord(regkey, "[UseWBT]", 0)
  829.         
  830.         ; if so, the name of the script
  831.         RegSetValue(regkey, "[WBTErrorFile]", "")
  832.  
  833.         ; set up a file-specific popup menu
  834.         RegSetValue(regkey, "[PopupMenu]", "VBSPopup.mnu")
  835.         RegCloseKey(regkey)
  836.  
  837.         curdir=DirHome()
  838.         inifile=strcat(curdir, "Help\Lookup\", "WEHELP.INI")
  839.         IniWritePvt("EXTENSIONS", "VBS", "WSHHLP", inifile)
  840.         IniWritePvt("WSHHLP", "HF1", "WSHHLP.WEH 1", inifile)
  841.         IniWritePvt("", "", "", inifile)
  842.  
  843.         return
  844.  
  845.  
  846.  
  847. :NukeSomeSettings
  848.         ConfigVerWBT=3     ; Configuration version number,.  Update when changing this section
  849.  
  850.         if RegExistValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\Main Window[ResetBetaVer]")
  851.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\Main Window[ResetBetaVer]")
  852.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  853.         endif
  854.         RegSetValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\Main Window[ResetBetaVer]",ConfigVerWBT)
  855.  
  856.         ;Change keyword files to CLR from INI
  857.         kiki=RegOpenKey(@REGCURRENT,"Software\WinEdit Software Co.\WinEdit\Settings\File Types")
  858.         kikikeys=RegQueryKeys(kiki)
  859.         kikicount=ItemCount(kikikeys,@tab)
  860.         for xx=1 to kikicount
  861.            thiskey=ItemExtract(xx,kikikeys,@tab)
  862.            if RegExistValue(kiki,strcat(thiskey,"[keywords]"))
  863.               oldclr=RegQueryValue(kiki,strcat(thiskey,"[keywords]"))
  864.               oldclr1=FilePath(oldclr)
  865.               oldclr2=FileRoot(oldclr)
  866.               oldclr3=FileExtension(oldclr)
  867.               if strupper(oldclr3)=="INI"
  868.                  oldclr=strcat(oldclr1,oldclr2,".clr")
  869.                  RegSetValue(kiki,strcat(thiskey,"[keywords]"),oldclr)
  870.               endif
  871.            endif
  872.         next
  873.         RegCloseKey(kiki)
  874.  
  875.         return
  876.  
  877. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  878. :SetupPHP
  879.         ; First, verify these settings were not already installed so we don't
  880.         ; overwrite changes made by the user on a mere update.  If thiere is
  881.         ; a real update, then yes we do overwrite user customizations.
  882.         FileKind="PHP"         ; Name of manil file group for this type of files
  883.         ConfigVerWBT=1     ; Configuration version number,.  Update when changing this section
  884.  
  885.         if RegExistValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]")
  886.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]")
  887.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  888.         endif
  889.         RegSetValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]",ConfigVerWBT)
  890.  
  891.         ;PHP file group        
  892.         regkey = RegCreateKey(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File mapping")
  893.         
  894.         RegSetValue(regkey, "[PHP]",  FileKind)
  895.         RegSetValue(regkey, "[PHP3]",  FileKind)
  896.         RegSetValue(regkey, "[PHTML]",  FileKind)
  897.         RegSetValue(regkey, "[PHPS]",  FileKind)
  898.         RegCloseKey(regkey)
  899.         
  900.         
  901.         ;-------------------------------------------------------------------------
  902.         ; the File types key sets up the file extension - specific settings
  903.         
  904.         regkey = RegCreateKey(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files")
  905.         
  906.         ; add this file type to the FileOpen dialog
  907.         RegSetDWord(regkey, "[AddToFileDialog]", 1)
  908.         
  909.         ; description and wild cards to use in FileOpen dialog
  910.         RegSetValue(regkey, "[FileOpenMask]", "%FileKind% Files|*.php;*.php3;*.phtml;*.phps")
  911.         
  912.         ; case sensitivity
  913.         RegSetDWord(regkey, "[Case]", 0)
  914.         
  915.         ; show chroma coding
  916.         RegSetDWord(regkey, "[Chroma]", 1)
  917.         
  918.         ; comment definition - two available
  919.         RegSetValue(regkey, "[Comment Start 1]", "//")
  920.         RegSetValue(regkey, "[Comment End 1]", "")
  921.         
  922.         RegSetValue(regkey, "[Comment Start 2]", "/*")
  923.         RegSetValue(regkey, "[Comment End 2]", "*/")
  924.         
  925.         ; font information for this file type                                                      
  926.         RegSetValue(regkey, "[Font name]", "Courier New")
  927.         RegSetDWord(regkey, "[Font size]", 10)
  928.         
  929.         ; 400 = normal, 700 = bold
  930.         RegSetDWord(regkey, "[Font weight]", 400)
  931.         RegSetDWord(regkey, "[Font italic]", 0)
  932.         
  933.         ; 1 = insert mode; 0 = overtype
  934.         RegSetDWord(regkey, "[Insert]", 1)
  935.         
  936.         ; pathname of keyword listing file
  937.         RegSetValue(regkey, "[Keywords]", "%FileKind%.clr")
  938.         
  939.         ; 0 = CR/LF; 1 = LF; 2 = LF/CR; 3 = CR
  940.         RegSetDWord(regkey, "[Line end type]", 0)
  941.         
  942.         ; leave files locked when open
  943.         RegSetDWord(regkey, "[Lock files]", 0)
  944.         
  945.         ; 1 = use tabs; 0 = insert spaces
  946.         RegSetDWord(regkey, "[Keep tabs]", 1)
  947.         
  948.         ; show visible tab marks on screen
  949.         RegSetDWord(regkey, "[Show tabs]", 0)
  950.         
  951.         ; tab size in characters
  952.         RegSetDWord(regkey, "[Tab size]", "3")
  953.         
  954.         ; extra characters to be considered part of a word
  955.         RegSetValue(regkey, "[Extra word chars]", "")
  956.         
  957.         ; extra characters that might start a word
  958.         RegSetValue(regkey, "[Start chars]", "")
  959.         
  960.         ; extra characters that might end a word
  961.         RegSetValue(regkey, "[Terminator chars]", "")
  962.         
  963.         ; colors.  R,G,B values as a string
  964.         RegSetValue(regkey, "[Background]", "255,255,255")
  965.         RegSetValue(regkey, "[Comment]", "128,128,128")
  966.         RegSetValue(regkey, "[Default Text]", "0,0,0")
  967.         RegSetValue(regkey, "[Keyword]", "0,0,255")
  968.         RegSetValue(regkey, "[Quote]", "0,128,128")
  969.         
  970.         ; character set 0 = ANSI, 1 = OEM
  971.         RegSetDWord(regkey, "[CharSet]", 0)
  972.         
  973.         ; compile command
  974.         RegSetValue(regkey, "[Compile command]", "")
  975.         
  976.         ; call a custom WIL error parsing script after compiling
  977.         RegSetDWord(regkey, "[UseWBT]", 0)
  978.         
  979.         ; if so, the name of the script
  980.         RegSetValue(regkey, "[WBTErrorFile]", "")
  981.  
  982.         ; set up a file-specific popup menu
  983.         RegSetValue(regkey, "[PopupMenu]", "PHPPopup.mnu")
  984.         RegCloseKey(regkey)
  985.  
  986.         return
  987.  
  988.  
  989. ; set up the popup menu default for all the other predefined file types 
  990. :SetupOthers
  991.  
  992.         FileKind="ASM" 
  993.         gosub addpopup
  994.  
  995.         FileKind="BAT" 
  996.         gosub addpopup
  997.  
  998.         FileKind="C" 
  999.         gosub addpopup
  1000.  
  1001.         FileKind="DCL" 
  1002.         gosub addpopup
  1003.  
  1004.         FileKind="JAVA" 
  1005.         gosub addpopup
  1006.  
  1007.         FileKind="LSP" 
  1008.         gosub addpopup
  1009.  
  1010.         FileKind="M2" 
  1011.         gosub addpopup
  1012.  
  1013.         FileKind="PRG" 
  1014.         gosub addpopup
  1015.  
  1016.         FileKind="TXT" 
  1017.         gosub addpopup
  1018.  
  1019.         return
  1020.  
  1021. :addpopup
  1022.         ConfigVerWBT=2     ; Configuration version number,.  Update when changing this section
  1023.  
  1024.         if RegExistValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]")
  1025.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]")
  1026.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  1027.         endif
  1028.         RegSetValue(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files[ConfigVer]",ConfigVerWBT)
  1029.  
  1030.         ;-------------------------------------------------------------------------
  1031.         ; the File types key sets up the file extension - specific settings
  1032.         
  1033.         regkey = RegCreateKey(@REGCURRENT, "Software\WinEdit Software Co.\WinEdit\Settings\File types\%FileKind% Files")
  1034.         RegSetValue(regkey, "[PopupMenu]", "%FileKind%Popup.mnu")
  1035.         RegCloseKey(regkey)
  1036.  
  1037.         return
  1038.         
  1039.  
  1040.  
  1041. :RegisterFTP
  1042.  
  1043.             regsvr=StrCat(DirWindows(1),"regsvr32.exe")
  1044.             origdir=DirGet()
  1045.             DirChange(DirWindows(1))
  1046.             RunWait(regsvr,"/s dartsock.dll")
  1047.             RunWait(regsvr,"/s dartftp.dll")
  1048.             DirChange(origdir)
  1049.  
  1050.  
  1051.