[MacPerl] LookupPerl - MPW script

["Thomas R. Kimpton" <tkimpton@maned.com>]

For those to whom MPW Shell still remains a sadly neglected
and heavily battered champion among editors, I offer this script
to lookup the current selection with the Shuck Application.

Save the following in a file, then add it to a menu so
you can use it on the current file (addmenu PERL "Lookup Topic" \ "Internal:Development:MPWEnhance:EScripts:LookupPERL"):


-------------- LookupPerl --------------
# Grab the selection from the current window.
set topic "`catenate "{active}.¤"`"

# The Shuck AppleEvent class
set class "misc"

# The Shuck AppleEvent id
set eventID "mvis"

# We'll use this name to launch the application
set App 'Internal:Development:MacPerl app:Shuck'

# Grab the short name of the application
if ( "{App}" =~ /(Å)¨1:(Å)¨2/ )
	set AppName "{¨2}"
else
	set AppName "{App}"
end

# Do this in a "sub-shell" so we can throw away any error output.
(

# Launch the app, or bring it to the front.
"{App}"

# Lookup up the topic.
set retVal "`sendae -e "{class}{eventID}" -t "{AppName}" -----TEXT "{topic}" -do`"

) · Dev:Null

-------------- LookupPerl --------------

Tom Kimpton
--
Mrs. Bun: Have you got anything without spam?
Waitress: Well, there's spam egg sausage and spam, that's not got
much spam in it.
Mrs. Bun: I don't want any spam!



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch