home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 April / PCWorld_2000-04_cd.bin / Software / TemaCD / winedit / javapop.mn_ < prev    next >
Text File  |  2000-02-20  |  6KB  |  204 lines
  1. ; javapopup.mnu
  2. ;
  3. ; This is the WIL menu version of WinEdit's context menu
  4. ; for Java files.  These context menu commands only
  5. ; appear when you are editing an java file.
  6. ;
  7. ; Java file type options are set in the View.Options
  8. ; property sheet, in the File Types dialog.
  9. ;
  10. ;
  11. ; AutoExec Section is on top here.
  12. ;
  13.         TAB=@TAB
  14.         CR=@CRLF
  15.         EOL=@CR
  16.         Home=DirHome()
  17.         IntControl(29,@tab,0,0,0)  ;Standardize on tabs as delimiters for FileItemize, etc
  18.         zxct="Help file error"
  19.         zxcm="Help file not found. See EXTENDERS directory on CD-ROM or our website at http://www.winbatch.com to obtain desired extenders."
  20.  
  21.  
  22. Compile        ; Compile this file with the javac compiler
  23.     wCompile()
  24.  
  25. Run Java Applet     \ ^R  ; Run this compiled java class in WinEdit Explorer
  26.     filename = wGetFileName()
  27.     path = FilePath(filename)
  28.     basename = FileRoot(filename)
  29.     olddir = DirGet()
  30.  
  31.     javaname = strcat(path,"%basename%.class")
  32.     if (FileExist(javaname))
  33.  
  34.         DirChange(path)
  35.  
  36.         ; see if there is already an html file in this directory
  37.         ; and offer to run that
  38.         htmllist = FileItemize("*.html")
  39.         if (htmllist != "")
  40.             ifile = AskItemList("Choose an html file", htmllist, @TAB, @unsorted, @single)
  41.             if (ifile != "")
  42.                  htmlname = strcat(FileRoot(ifile),".html")
  43.             else
  44.                 ; make an html wrapper for the class to run in
  45.                 htmlname = strcat(path,"%basename%.html")
  46.  
  47.                 h = FileOpen(htmlname, "WRITE")
  48.                 FileWrite(h, '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">')
  49.                 FileWrite(h, '')
  50.                 FileWrite(h, '<html>')
  51.                 FileWrite(h, '')
  52.                 FileWrite(h, '   <head>')
  53.                 FileWrite(h, '')
  54.                 FileWrite(h, '   <title>%basename% Applet</title>')
  55.                 FileWrite(h, '')
  56.                 FileWrite(h, '   <body>')
  57.                 FileWrite(h, '')
  58.                 FileWrite(h, '      <h1>%basename% Applet</h1>')
  59.                 FileWrite(h, '')
  60.                 FileWrite(h, '      <hr>')
  61.                 FileWrite(h, '')
  62.                 FileWrite(h, '<APPLET CODE="%basename%.class" CODEBASE="." WIDTH=400 HEIGHT=300></APPLET>')
  63.                 FileWrite(h, '')
  64.                 FileWrite(h, '      <hr>')
  65.                 FileWrite(h, '')
  66.                 FileWrite(h, '   </body>')
  67.                 FileWrite(h, '')
  68.                 FileWrite(h, '</html>')
  69.                 FileClose(h)
  70.  
  71.             endif
  72.         endif
  73.         Run("appletviewer","%htmlname%")
  74.         DirChange(olddir)
  75.         wViewOutput()
  76.     else
  77.         Message("Run Java Applet","Couldn't find %javaname%.  Is it compiled?")
  78.     endif
  79.  
  80.  Run Java Application (graphical)  ; Run this java class in the java environment
  81.     filename = wGetFileName()
  82.     path = FilePath(filename)
  83.     basename = FileRoot(filename)
  84.     olddir = DirGet()
  85.     DirChange(path)
  86.     Run("java", "%basename%")
  87.     DirChange(olddir)
  88.     drop(filename,path,basename,olddir)
  89.  
  90.  Run Java Application (console)  ; Run this java class from a command window
  91.     filename = wGetFileName()
  92.     path = FilePath(filename)
  93.     basename = FileRoot(filename)
  94.     olddir = DirGet()
  95.     DirChange(path)
  96.     if (WinVersion(4) == 4)
  97.         strRun = "cmd.exe"
  98.     else
  99.         strRun = "command.com"
  100.     endif
  101.     Run("%strRun%", "/k java %basename%")
  102.     DirChange(olddir)
  103.     drop(filename,path,basename,olddir)
  104.  
  105.  Run Java App (prompt for parameters)  ; Run this java class in the java environment
  106.     filename = wGetFileName()
  107.     path = FilePath(filename)
  108.     basename = FileRoot(filename)
  109.     olddir = DirGet()
  110.     parameters = AskLine("Command line parameters","Enter any command line parameters", "")
  111.     DirChange(path)
  112.     Run("java", "%basename% %parameters%")
  113.     DirChange(olddir)
  114.     drop(filename,path,basename,olddir)
  115.  
  116. _Blank HTML Document    ; Create a basic html template in a new document
  117.         wFileNew()
  118.         s=ClipGet()
  119.         ClipPut("")   ; clear the clipboard
  120.         wCut()
  121.         wInsLine('<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">') 
  122.         wNewLine()
  123.         wInsLine('<HTML>')
  124.         wNewLine()
  125.         wInsLine('<HEAD>')
  126.         wNewLine()
  127.         wInsLine('<TITLE>\^</TITLE>')
  128.         wNewLine()
  129.         wInsLine('<META NAME="Generator" CONTENT="Winedit 2000">')
  130.         wInsLine('<META NAME="Author" CONTENT="?">')
  131.         wInsLine('<META NAME="Keywords" CONTENT="?">')
  132.         wInsLine('<META NAME="Description" CONTENT="?">')
  133.         wNewLine()
  134.         wInsLine('</HEAD>')
  135.         wNewLine()
  136.         wInsLine('<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#FF0000" VLINK="#800000" ALINK="#FF00FF" BACKGROUND="?">')
  137.         wNewLine()
  138.         wNewLine()
  139.         wInsLine('</BODY>')
  140.         wNewLine()
  141.         wInsLine('</HTML>')
  142.         wNewLine()
  143.         wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
  144.         wPaste()
  145.         ClipPut(s)  ; restore the clipboard
  146.  
  147. _Undo              ; Undoes the last editing action
  148.     wUndo() 
  149.  
  150. ;Redo              ; Redoes the last editing action
  151. ;    wRedo()
  152.  
  153. _Cut              ; Cut the selection and put it on the clipboard
  154.     wCut()
  155.  
  156. Copy              ; Copy the selection and put it on the clipboard
  157.     wCopy()
  158.  
  159. Paste             ; Insert the clipboard contents
  160.     wPaste()
  161.  
  162. _Properties
  163.     wProperties()
  164.  
  165. _File
  166.  New        \ ^N
  167.     wFileNew()
  168.  Open highlighted file    \ ^F       ; Open selected file
  169.     name = wEdGetWord()
  170.     length = strlen(name)
  171.     if length==0 then goto DONE
  172.     b = FileLocate(name)
  173.     if b == "" then Message("Open selected file","Cannot find %name%")
  174.     if b == "" then goto DONE
  175.     wFileOpen(b)
  176.     :DONE
  177.     drop(name,length,b)
  178.  
  179.  Open     \ ^O
  180.      wFileOpen()
  181.  Close    \ ^{F4}
  182.     wWinClose()
  183.  Print    \ ^P
  184.     wPrintDirect()
  185.  _FTP Open
  186.     wFTPOpen()
  187.  
  188.  FTP Save
  189.     wFTPSave()
  190.  
  191. _How do I?...        ; Learn about using scripts
  192.  Customize Menus           ; Menu file reference
  193.     helpfile = strcat(DirHome(),"Windows Interface Language.hlp")
  194.     WinHelp(helpFile, "PartialKey", "Menu Files")
  195.  Write Macro Scripts       ; WIL scripting language reference
  196.     helpfile = strcat(home,"Windows Interface Language.hlp")
  197.     WinHelp(helpFile, "PartialKey", "Tutorial")
  198. Customize this menu...   ; Manage WinEdit Popup menu 
  199.     TheFile=strcat(DirHome(),"System\JAVAPOPUP.MNU")
  200.     WFileOpen(TheFile)
  201.     Drop(TheFile)
  202.  
  203.  
  204.