TweetFollow Us on Twitter

MPW Menus
Volume Number:9
Issue Number:10
Column Tag:MPW Workshop

Dynamically Customizable Menu in MPW

Launching applications from an MPW Script

By Lee D. Rimar, Absoft Corporation

Note: Source code files accompanying article are located on MacTech CD-ROM or source code disks.

When I first started programming on the Macintosh, the text editor I used had a “Transfer” menu for launching other applications. When I switched to MPW a few years ago, I missed this feature. This was before the advent of System 7 with its “Apple Menu Items” folder, so I had to create my own solution.

Because it is easy to add custom menus to MPW, I created a special “Run” menu. This menu initially had only 2 items: “Add Application...” and “Add Document...”. These let you add commonly used applications and documents to the Run menu.

Each of the “Add...” items also updates a UserStartup•RunMenu file, which reloads the menu each time you launch MPW. Apart from its general usefulness, there is a technically interesting side to this script. To keep the Run menu in alphabetical order, the UserStartup•RunMenu file is automatically sorted, rewritten, and executed every time you add an item to Run menu. You don’t often see “self-modifying” gymnastics like this in a scripting language.

I usually use the Run menu to launch my word processor or communications software with a specific setting file, from inside of MPW. I could do the same thing from the System 7 Apple menu, but I find the Run menu easier to maintain. Also, I sometimes intentionally kill the Finder under System 7 to get extra memory for MPW and other programs. Without Finder running, custom items on the Apple Menu are unavailable.

To create your own Run menu and UserStartup•RunMenu file, the MPW script below should be copied to your MPW folder as “NewRunMenu,” and executed just once.

# Script: NewRunMenu
 
# A dynamically customizable menu for sublaunching commonly used files.
# To install, type NewRunMenu in the Worksheet window and hit Enter.
 
# This adds a "Run" menu to the MPW menu bar.  It also creates a file 
called
# UserStartup•RunMenu in the MPW folder (or the MPW PrefsFolder, if using 
MPW
# 3.3 or newer), to re-create the menu each time you load MPW.
# UserStartup•RunMenu is updated every time you add an item to the menu
 
# When you select Add Application, you can choose any application and 
specify
# how it should appear on the menu.  When you select Add Document, you 
can
# select a document, an application to open it with, and how it should
# appear on the menu.
 
# The Run menu does not provide for DELETING an item.  To do that, open 
the
# UserStartup•RunMenu file and delete the unwanted Addmenu lines.
 
# Important typographic notes:
 
# 1) The Add Application and Add Document menu item names start with 
one space,
# so they sort alphabetically to the top of the menu.
 
# 2) The script for each AddMenu item is one long, continued command, 
so
# most of the lines end with semi-colon ; and option-d  characters.
 
# 3) Some of the prompt strings that appear in this script contain underscores.
# I did this so they would be visible on a printed page.  However, in 
my
# working copy of the script, the underscores are replaced with non-breaking
# spaces (typed in MPW as option-space).  Strings containing non-breaking
# spaces don't have to be placed in quotes.
 
# 4) Any place you see ... in this script, it really is 3 periods, not 
the
# option-colon ellipsis   character.
 
# 5) Quote " apostrophe ' and grave accent ` are not interchangeable!
 
Set Exit 0
 
DeleteMenu Run   Dev:Null
 
# "Add Application..." presents a Standard GetFile dialog, filtered for
# applications only.  After you choose an application, it prompts you 
for
# how the item should appear in the menu.  The default is the full path
# and filename, which I usually edit to just the filename.
 
AddMenu Run ' Add Application...' 
'Begin ; 
  Set Exit 0 ; 
  Set menuChanged 0 ; 
  Set theAppl "`getfilename -b Add -m Select_application... -t APPL`" 
; 
  Exit If {theAppl} == "" ; 
  Set menuItem "`request -d {theAppl} How_should_the_menu_item_read...`" 
; 
  Exit If {menuItem} == "" ; AddMenu Run "{menuItem}" "{theAppl}" ; 
  Set menuChanged 1 ; 
  Unset theAppl ; 
  Unset menuItem ; 
  If ({menuChanged}) ; 
    Set savedDir `Directory` ; 
    Directory "{MPW}" ; 
    Echo Set Exit 0 >"{PrefsFolder}"UserStartup•RunMenu ; 
    Echo DeleteMenu Run   Dev:Null >> "{PrefsFolder}"UserStartup•RunMenu 
; 
    AddMenu Run | Sort -u -quote >> "{PrefsFolder}"UserStartup•RunMenu 
; 
    Echo Set Exit 1 >> "{PrefsFolder}"UserStartup•RunMenu ; 
    Execute "{PrefsFolder}"UserStartup•RunMenu ; 
    Directory "{savedDir}" ; 
    Unset savedDir ; 
  End ; 
  Unset menuChanged ; 
  Set Exit 1 ; 
End   Dev:Null'
 
# Add Document... works a lot like Add Application..., except that you 
are
# prompted to select TWO files.  The first can be any document, the second
# must be an application which can open that document.
 
AddMenu Run ' Add Document...' 
'Begin ; 
  Set Exit 0 ; 
  Set menuChanged 0 ; 
  Set theDoc "`getfilename -m Select_document_to_open...`" ; 
  Exit If {theDoc} == "" ; 
  Set theAppl "`getfilename -b With -m To_open_with... -t APPL`" ; 
  Exit If {theAppl} == "" ; 
  Set menuItem "`request -d {theDoc} How_should_the_menu_item_read...`" 
; 
  Exit If {menuItem} == "" ; 
  AddMenu Run "{menuItem}" "{theAppl} {theDoc}" ; 
  Set menuChanged 1 ; 
  Export menuChanged ; 
  Unset theAppl ; 
  Unset menuItem ; 
  If ({menuChanged}) ; 
    Set savedDir `Directory` ; 
    Directory "{MPW}" ; 
    Echo Set Exit 0 >"{PrefsFolder}"UserStartup•RunMenu ; 
    Echo DeleteMenu Run   Dev:Null >> "{PrefsFolder}"UserStartup•RunMenu 
; 
    AddMenu Run | Sort -u -quote >> "{PrefsFolder}"UserStartup•RunMenu 
; 
    Echo Set Exit 1 >> "{PrefsFolder}"UserStartup•RunMenu ; 
    Execute "{PrefsFolder}"UserStartup•RunMenu ; 
    Directory "{savedDir}" ; 
    Unset savedDir ; 
  End ; 
  Unset menuChanged ; 
  Set Exit 1 ; 
End   Dev:Null'
 
# Add a separator line, which will appear between the default and user
# configured menu items.
 
AddMenu Run '-' ''
 
# Create the UserStartup•RunMenu file.  This will be placed in either 
the
# MPW folder, or MPW's PrefsFolder if using MPW 3.3 or newer.
 
# The UserStartup•RunMenu contains all of the commands needed to initialize
# the Run menu, without any formatting or script comments.
 
Set savedDir `Directory`
Directory "{MPW}"
Echo Set Exit 0 > "{PrefsFolder}"UserStartup•RunMenu
Echo DeleteMenu Run   Dev:Null >> "{PrefsFolder}"UserStartup•RunMenu
AddMenu Run >> "{PrefsFolder}"UserStartup•RunMenu
Echo Set Exit 1 >> "{PrefsFolder}"UserStartup•RunMenu
Directory "{savedDir}"
Unset savedDir
 
# Announce completion
 
Alert -s Run Menu successfully installed.
 
# End of NewRunMenu script

A word of warning: If you plan to type this in from the magazine pages, you may be in for a rough time. The MPW scripting language is powerful, but it can be a typographic nightmare. A single character error can give bizarre results, and may be very hard to track down.

This is an excellent reason to buy MacTech magazine source code on disk, or to power up the modem and download this file. If you don’t have an account any place where MacTech source code is available, you can also find this script on the Absoft Technical Support BBS, at 313-853-0000.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Latest Forum Discussions

See All

Six fantastic ways to spend National Vid...
As if anyone needed an excuse to play games today, I am about to give you one: it is National Video Games Day. A day for us to play games, like we no doubt do every day. Let’s not look a gift horse in the mouth. Instead, feast your eyes on this... | Read more »
Old School RuneScape players turn out in...
The sheer leap in technological advancements in our lifetime has been mind-blowing. We went from Commodore 64s to VR glasses in what feels like a heartbeat, but more importantly, the internet. It can be a dark mess, but it also brought hundreds of... | Read more »
Today's Best Mobile Game Discounts...
Every day, we pick out a curated list of the best mobile discounts on the App Store and post them here. This list won't be comprehensive, but it every game on it is recommended. Feel free to check out the coverage we did on them in the links below... | Read more »
Nintendo and The Pokémon Company's...
Unless you have been living under a rock, you know that Nintendo has been locked in an epic battle with Pocketpair, creator of the obvious Pokémon rip-off Palworld. Nintendo often resorts to legal retaliation at the drop of a hat, but it seems this... | Read more »
Apple exclusive mobile games don’t make...
If you are a gamer on phones, no doubt you have been as distressed as I am on one huge sticking point: exclusivity. For years, Xbox and PlayStation have done battle, and before this was the Sega Genesis and the Nintendo NES. On console, it makes... | Read more »
Regionally exclusive events make no sens...
Last week, over on our sister site AppSpy, I babbled excitedly about the Pokémon GO Safari Days event. You can get nine Eevees with an explorer hat per day. Or, can you? Specifically, you, reader. Do you have the time or funds to possibly fly for... | Read more »
As Jon Bellamy defends his choice to can...
Back in March, Jagex announced the appointment of a new CEO, Jon Bellamy. Mr Bellamy then decided to almost immediately paint a huge target on his back by cancelling the Runescapes Pride event. This led to widespread condemnation about his perceived... | Read more »
Marvel Contest of Champions adds two mor...
When I saw the latest two Marvel Contest of Champions characters, I scoffed. Mr Knight and Silver Samurai, thought I, they are running out of good choices. Then I realised no, I was being far too cynical. This is one of the things that games do best... | Read more »
Grass is green, and water is wet: Pokémo...
It must be a day that ends in Y, because Pokémon Trading Card Game Pocket has kicked off its Zoroark Drop Event. Here you can get a promo version of another card, and look forward to the next Wonder Pick Event and the next Mass Outbreak that will be... | Read more »
Enter the Gungeon review
It took me a minute to get around to reviewing this game for a couple of very good reasons. The first is that Enter the Gungeon's style of roguelike bullet-hell action is teetering on the edge of being straight-up malicious, which made getting... | Read more »

Price Scanner via MacPrices.net

Take $150 off every Apple 11-inch M3 iPad Air
Amazon is offering a $150 discount on 11-inch M3 WiFi iPad Airs right now. Shipping is free: – 11″ 128GB M3 WiFi iPad Air: $449, $150 off – 11″ 256GB M3 WiFi iPad Air: $549, $150 off – 11″ 512GB M3... Read more
Apple iPad minis back on sale for $100 off MS...
Amazon is offering $100 discounts (up to 20% off) on Apple’s newest 2024 WiFi iPad minis, each with free shipping. These are the lowest prices available for new minis among the Apple retailers we... Read more
Apple’s 16-inch M4 Max MacBook Pros are on sa...
Amazon has 16-inch M4 Max MacBook Pros (Silver and Black colors) on sale for up to $410 off Apple’s MSRP right now. Shipping is free. Be sure to select Amazon as the seller, rather than a third-party... Read more
Red Pocket Mobile is offering a $150 rebate o...
Red Pocket Mobile has new Apple iPhone 17’s on sale for $150 off MSRP when you switch and open up a new line of service. Red Pocket Mobile is a nationwide MVNO using all the major wireless carrier... Read more
Switch to Verizon, and get any iPhone 16 for...
With yesterday’s introduction of the new iPhone 17 models, Verizon responded by running “on us” promos across much of the iPhone 16 lineup: iPhone 16 and 16 Plus show as $0/mo for 36 months with bill... Read more
Here is a summary of the new features in Appl...
Apple’s September 2025 event introduced major updates across its most popular product lines, focusing on health, performance, and design breakthroughs. The AirPods Pro 3 now feature best-in-class... Read more
Apple’s Smartphone Lineup Could Use A Touch o...
COMMENTARY – Whatever happened to the old adage, “less is more”? Apple’s smartphone lineup. — which is due for its annual refresh either this month or next (possibly at an Apple Event on September 9... Read more
Take $50 off every 11th-generation A16 WiFi i...
Amazon has Apple’s 11th-generation A16 WiFi iPads in stock on sale for $50 off MSRP right now. Shipping is free: – 11″ 11th-generation 128GB WiFi iPads: $299 $50 off MSRP – 11″ 11th-generation 256GB... Read more
Sunday Sale: 14-inch M4 MacBook Pros for up t...
Don’t pay full price! Amazon has Apple’s 14-inch M4 MacBook Pros (Silver and Black colors) on sale for up to $220 off MSRP right now. Shipping is free. Be sure to select Amazon as the seller, rather... Read more
Mac mini with M4 Pro CPU back on sale for $12...
B&H Photo has Apple’s Mac mini with the M4 Pro CPU back on sale for $1259, $140 off MSRP. B&H offers free 1-2 day shipping to most US addresses: – Mac mini M4 Pro CPU (24GB/512GB): $1259, $... Read more

Jobs Board

All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.