[Scopeapp-cvs]scopeapp/src ScopeAppDelegate.m,1.9,1.10

[<sco...@li...>]

Update of /cvsroot/scopeapp/scopeapp/src
In directory usw-pr-cvs1:/tmp/cvs-serv4372

Modified Files:
	ScopeAppDelegate.m 
Log Message:
Added simplest of menus.

Index: ScopeAppDelegate.m
===================================================================
RCS file: /cvsroot/scopeapp/scopeapp/src/ScopeAppDelegate.m,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** ScopeAppDelegate.m	29 Jul 2002 09:40:38 -0000	1.9
--- ScopeAppDelegate.m	31 Jul 2002 09:23:21 -0000	1.10
***************
*** 37,40 ****
--- 37,42 ----
  	id sampler;
  
+ 	[self createMenu];
+ 
  	// FIXME choose an appropriate InputSampler
  	sampler = [[TestSampler alloc] init];
***************
*** 60,63 ****
--- 62,77 ----
  {
  	return YES; // FIXME change after adding support for reading from files ?
+ }
+ 
+ - (void) createMenu
+ {
+ 	NSMenu* menu;
+ 	menu = [[NSMenu new] autorelease];
+ 
+ 	[menu addItemWithTitle: @"Quit"
+ 		action: @selector (terminate:)
+ 		keyEquivalent: @"q"];
+ 
+ 	[NSApp setMainMenu: menu];
  }