Part of the Samples Website. 8/16/97.

---

samples.NewIn97.countMenuCommands

«Counts the commands in the Finder's Scripts menu.

«There are 39 on my machine.

«Tue, Jan 21, 1997 at 3:29:39 PM by DW

local (adrmenu = @system.menubars.macs)

target.set (adrmenu)

op.firstSummit ()

op.fullExpand ()

local (localscript, ct = 0)

loop

if menu.getScript (@localscript)

ct++

msg (ct)

if not op.go (flatdown, 1)

break

dialog.alert ("There are " + ct + " scripts attached to " + adrmenu + ".")

target.clear ()

This page was last built on Sat, Aug 16, 1997 at 6:43:52 PM. You can download the current set of sample scripts from our FTP site. Dave