Download fmenus-example-pas.hqx (23,410 KB)
Date: Tue, 24 Nov 1992 13:45:06 +0800
From: Peter N Lewis
Subject: source/pascal/FMenusExample.hqx
_______________________________________________________________________
Peter N Lewis
This is some example code to demonstrate the use of MyFMenus.unit.
This unit implements FMenus in a similar way to the Finder, which
allows decoupling of the menu position from the code that executes
the menu's command. The example program is not a full shell, it
simply implements the Menus, and each menu selection prints a
message to the console window. It should be fairly easy to understand.
I've used this code in several programs, and it works quite nicely,
avoiding the need to keep changing constants in the code every time
you add a menu item.
TopSoft is working on an advanced version of this (written in C
for some strange reason), if you are interested in that, or other
things that TopSoft is doing, check out the ftp site at
syrinx.kgs.ukans.edu in the /topsoft directory, or ask to join
the mailing TS mailing list at ts-request@syrinx.kgs.ukans.edu
(hopefully you'll join inbetween the flame wars and not in the
middle of one :-)
[Wouldn't it be nice if this came out comp.sources.mac?
Too much to ask I guess]
Hope its useful to someone,
Peter.
FMenus Example v1.0.0 Copyright 1992 Peter N Lewis