More gmodel improvements.

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/apps/gorm/trunk@20355 72102866-910b-0410-8b05-ffd578937521

ChangeLog

@@ -1,3 +1,11 @@
+2004-11-16 19:19 Gregory John Casamento <greg_casamento@yahoo.com>
+
+	* GormClassPanelController.[hm]: Added method browserAction:.  Changed
+	okButton: to use the value from the textfield.  Added new textfield
+	so that the user can type the name of the class.
+	* GormClassPanel.gorm: Added textfield.  Changed connection so that
+	the browser now invokes browserAction: on the controller.
+	
 2004-11-13 00:03 Gregory John Casamento <greg_casamento@yahoo.com>
 
 	* GModelDecoder.m: Added GModelMenuTemplate to allow decoding

GormClassPanelController.h

@@ -33,10 +33,12 @@
   id okButton;
   id classBrowser;
   id panel;
+  id classNameForm;
   NSString *className;
   NSMutableArray *allClasses;
 }
 - (id) initWithTitle: (NSString *)title classList: (NSArray *)classes;
 - (void) okButton: (id)sender;
+- (void) browserAction: (id)sender;
 - (NSString *)runModal;
 @end

GormClassPanelController.m

@@ -67,10 +67,15 @@
 
 - (void) okButton: (id)sender
 {
-  ASSIGN(className, [[classBrowser selectedCell] stringValue]);
+  ASSIGN(className, [[classNameForm cellAtIndex: 0] stringValue]);
   [NSApp stopModal];
 }
 
+- (void) browserAction: (id)sender
+{
+  [[classNameForm cellAtIndex: 0] setStringValue: [[classBrowser selectedCell] stringValue]];
+}
+
 - (int) browser: (NSBrowser*)sender numberOfRowsInColumn: (int)column
 {
   return [allClasses count];

Resources/GormClassPanel.gorm/data.classes

@@ -2,26 +2,25 @@
     "## Comment" = "Do NOT change this file, Gorm maintains it";
     FirstResponder = {
 	Actions = (
-	    "cut:",
 	    "indent:",
-	    "moveToBeginningOfLine:",
 	    "orderFront:",
-	    "performZoom:",
 	    "selectAll:",
-	    "takeDoubleValueFrom:",
 	    "underline:",
-	    "okButton:"
+	    "okButton:",
+	    "browserAction:"
 	);
 	Super = NSObject;
     };
     GormClassPanelController = {
 	Actions = (
-	    "okButton:"
+	    "okButton:",
+	    "browserAction:"
 	);
 	Outlets = (
 	    okButton,
 	    classBrowser,
-	    panel
+	    panel,
+	    classNameForm
 	);
 	Super = NSObject;
     };