home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 April / PCWorld_2000-04_cd.bin / Software / TemaCD / winedit / vbspopup.mn_ < prev    next >
Text File  |  1999-10-05  |  2KB  |  76 lines
  1. ; VBSPOPUP.MNU file.
  2. ;
  3. ; This is the WIL menu version of WinEdit's context menu.
  4. ;
  5. ; You can designate a different popup menu for each defined
  6. ; file type.  This menu script is used by default if no other
  7. ; file-specific menu is designated in the View.Options.FileType
  8. ; dialog box.
  9. ;
  10. ; AutoExec Section is on top here.
  11. ;
  12.         TAB=@TAB
  13.         CR=@CRLF
  14.         EOL=@CR
  15.         Home=DirHome()
  16.         IntControl(29,@tab,0,0,0)  ;Standardize on tabs as delimiters for FileItemize, etc
  17.  
  18. Undo              ; Undoes the last editing action
  19.  
  20.     wUndo() 
  21.  
  22. ;Redo              ; Redoes the last editing action
  23. ;    wRedo()
  24.  
  25. _Cut              ; Cut the selection and put it on the clipboard
  26.     wCut()
  27.  
  28. Copy              ; Copy the selection and put it on the clipboard
  29.     wCopy()
  30.  
  31. Paste             ; Insert the clipboard contents
  32.     wPaste()
  33.  
  34. _Properties
  35.     wProperties()
  36.  
  37. _File
  38.  New        \ ^N
  39.      wFileNew()
  40.  Open highlighted file    \ ^F       ; Open selected file
  41.         name = wEdGetWord()
  42.         length = strlen(name)
  43.         if length==0 then goto DONE
  44.         b = FileLocate(name)
  45.         if b == "" then Message("Open selected file","Cannot find %name%")
  46.         if b == "" then goto DONE
  47.         wFileOpen(b)
  48.         :DONE
  49.         drop(name,length,b)
  50.  Open     \ ^O
  51.      wFileOpen()
  52.  Close    \ ^{F4}
  53.     wWinClose()
  54.  Print    \ ^P
  55.     wPrintDirect()
  56.  
  57.  _FTP Open
  58.     wFtpOpen()
  59.  
  60.  FTP Save
  61.     wFtpSave()
  62.  
  63.  
  64. _How do I?...        ; Learn about using scripts
  65.  Customize Menus           ; Menu file reference
  66.     helpfile = strcat(DirHome(),"Help\Windows Interface Language.hlp")
  67.     WinHelp(helpFile, "PartialKey", "Menu Files")
  68.  Write Macro Scripts       ; WIL scripting language reference
  69.     helpfile = strcat(home,"Help\Windows Interface Language.hlp")
  70.     WinHelp(helpFile, "PartialKey", "Tutorial")
  71. Customize this menu...   ; Manage WinEdit Popup menu 
  72.  
  73.         TheFile=strcat(DirHome(),"System\VbsPopup.mnu")
  74.         WFileOpen(TheFile)
  75.         Drop(TheFile)
  76.