Received: from ATHENA-AS-WELL.MIT.EDU by po7.MIT.EDU (5.61/4.7) id AA27892; Tue, 26 Jan 93 16:27:18 EST
Received: from CECI.MIT.EDU by Athena.MIT.EDU with SMTP
	id AA06371; Tue, 26 Jan 93 16:27:03 EST
Message-Id: <9301262127.AA06371@Athena.MIT.EDU>
Received: by ceci.mit.edu id AA07606g; Tue, 26 Jan 93 16:27:08 EST
Date: Tue, 26 Jan 93 16:27:08 EST
From: Toshiharu Harada <harada@ceci.mit.edu>
To: aybee@ceci.mit.edu, harada@ceci.mit.edu, jud@ceci.mit.edu,
        pbailey@ceci.mit.edu
Subject: minute

class ViewerModule : MLtop
{
	XFList	choices;
	STenum	current;
	XFView	view;
	CT	content;

	on Construct
	{
		current.states @= content.keylist;
		choices.list @= current.states;
		content.target := &view;
		current.current @= choices.choice;
		content.key @= current.current;
	}
};

unique "APnormal" myViewer
{
	ViewerModule theViewer
	{
		content.list := {
			{ "myDog", 'still, 1234, 'HomeVideos },
			{ "myCar", 'still, 1235, 'HomeVideos }
		};
	}
	...
};

Gee, I'm not supposed to develop AM2 applications. ;-)