home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 April / PCWorld_2000-04_cd.bin / Software / TemaCD / winedit / cpopup.mn_ < prev    next >
Text File  |  1999-10-05  |  2KB  |  79 lines
  1. ; CPOPUP.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. Compile
  19.     wCompile()
  20.  
  21. _Undo              ; Undoes the last editing action
  22.  
  23.     wUndo() 
  24.  
  25. ;Redo              ; Redoes the last editing action
  26. ;    wRedo()
  27.  
  28. _Cut              ; Cut the selection and put it on the clipboard
  29.     wCut()
  30.  
  31. Copy              ; Copy the selection and put it on the clipboard
  32.     wCopy()
  33.  
  34. Paste             ; Insert the clipboard contents
  35.     wPaste()
  36.  
  37. _Properties
  38.     wProperties()
  39.  
  40. _File
  41.  New        \ ^N
  42.      wFileNew()
  43.  Open highlighted file    \ ^F       ; Open selected file
  44.         name = wEdGetWord()
  45.         length = strlen(name)
  46.         if length==0 then goto DONE
  47.         b = FileLocate(name)
  48.         if b == "" then Message("Open selected file","Cannot find %name%")
  49.         if b == "" then goto DONE
  50.         wFileOpen(b)
  51.         :DONE
  52.         drop(name,length,b)
  53.  Open     \ ^O
  54.      wFileOpen()
  55.  Close    \ ^{F4}
  56.     wWinClose()
  57.  Print    \ ^P
  58.     wPrintDirect()
  59.  
  60.  _FTP Open
  61.     wFtpOpen()
  62.  
  63.  FTP Save
  64.     wFtpSave()
  65.  
  66.  
  67. _How do I?...        ; Learn about using scripts
  68.  Customize Menus           ; Menu file reference
  69.     helpfile = strcat(DirHome(),"Help\Windows Interface Language.hlp")
  70.     WinHelp(helpFile, "PartialKey", "Menu Files")
  71.  Write Macro Scripts       ; WIL scripting language reference
  72.     helpfile = strcat(home,"Help\Windows Interface Language.hlp")
  73.     WinHelp(helpFile, "PartialKey", "Tutorial")
  74. Customize this menu...   ; Manage WinEdit Popup menu 
  75.  
  76.         TheFile=strcat(DirHome(),"System\CPopup.mnu")
  77.         WFileOpen(TheFile)
  78.         Drop(TheFile)
  79.