Part of Nobumi Iyanaga's website. n-iyanag@ppp.bekkoame.or.jp. 8/13/98.

---

Glue table for Jedit 2.0x

Nobumi Iyanaga
version 1.0b2
Thu, Aug 13, 1998

Jedit 2.0x is a Japanese text editor program developped by Matsumoto. It is a shareware costing 2,500 yen. You can download a demo version (limited to 30 days use) at:

http://www.iijnet.or.jp/matsumoto/

Jedit has a good AppleScript support; it can deal with the most commonly used Japanese encoding (SJIS, EUC, JIS, and Unicode); it can, on certain configuration, deal with other languages, like Chinese.

Notes on this version (1.0b2)
First, I updated the table for Jedit 2.0.5 in which some new commands are added.

I also added some new scripts:

• jedit.basicUtilities.evaluateLine ()
  

  This script may be most useful in many situations, when called from the shared menu for Jedit. It evaluates a line of Jedit document as UserTalk script (the script may be followed by the character "«" and any other text.)

• jedit.basicUtilities.find (s, findIn = nil, caseSensitive = nil, zenkakuSensitive = nil, entireWord = nil, wrapAround = nil, startAtTop = nil, reverseSearch = nil, grep = nil, originalSelection = false)
  
• jedit.basicUtilities.getDocumentText ()
  
• jedit.basicUtilities.utilities.openAndJumpMacro (lineText, fpath, offsetList)
  

  An application which can be used in combination with jedit.basicUtilities.evaluateLine ()

Finally, I updated the menubar at jedit.JEDT.

---

I made this glue table for Jedit (15K to download) with the Commercial Developers Suite. However, I made some changes:

I moved all the string4's and enumerators to the "eventInfo" table (except Jedit.id); and I made a table at "Jedit.basicUtilities", in which you will find some basic scripts. Here is the list of this table:

• allDocumentNames ()
• currentSelectionOffset ()
• displayDialog (str)
• getCurrentParagraphNum ()
• getDocumentText ()
• getFileName ()
• getFilePath ()
• getSelection ()
• gotoLine (lineNum)
• gotoParagraph (paragrNum)
• newDocumentWithStr (str = "")
• selectCurrentParagraph ()
• selectionLength ()
• selectLine (lineNumList)
• selectParagraph (paragraphNumList)
• setSelect (offsetList)
• setSelection (str)
• utilities
  • displayDialog (prompt, defaultAnswer = nil, buttons = nil, defaultButton = nil, withIcon = nil)

jedit.basicUtilities.utilities.displayDialog () is a script written by John Delacour.

I included also a menubar, at jedit.JEDT, which can be used as a shared menu for Jedit if Jedit is registered in OSA Menu resource. Some of the menu items require a suite I made, named: "odbTextEditorNoTrap", that you will find at:

http://www.bekkoame.or.jp/~n-iyanag/nisus/nisusindex.html

Some other menu items require another suite I made, "textIndexSearch", that I am intending to upload to my web site, in the directory "researchTools".

Finally, some menu items require my glue table for MacPerl. You will find it at:

http://www.bekkoame.or.jp/~n-iyanag/Frontier/macperlglue.html

---

You can easily create a shared menu for Jedit with the following script:

on addSharedMenu ()
   local (appPath)
   if not file.getFileDialog ("Locate the application...", @appPath, 'APPL')
      return
   if file.type (appPath) != 'APPL'
      return
   local (OSAMenuPath, theId, theName, tempRez)
   if not file.getFileDialog ("Locate OSA Menu...", @OSAMenuPath, 'INIT')
      return
   theId = file.creator (appPath)
   theName = file.fileFromPath (appPath)
   rez.getResource (OSAMenuPath, 'OSMs', 128, @temp)
   temp = string (temp)
   pascalNumber = string.length (theName)
   temp = temp + string (theId) + char (pascalNumber) + theName + string.filledString ('\x00', 35 - pascalNumber)
   temp = binary (temp)
   setBinaryType (@temp, 'OSMs')
   rez.putResource (OSAMenuPath, 'OSMs', 128, @tempRez)

---

I would be very grateful if you could send me any comments, bug reports or suggestions. Thank you in advance,

and

Enjoy!

---

Go to NI Frontier Page
Go to Home Page

---

This page was last built with Frontier on a Macintosh on Thu, Aug 13, 1998 at 21:16:19. Thanks for checking it out! Nobumi Iyanaga